[mew-dist 19899] Re: 特定メールが+mdropで削除できない

[Tatsuya Kinoshita]

In message [mew-dist 19894], on Fri, 21 Dec 2001,
Ta-ku-ya II <ayucat at example.com> wrote:

> 　Mew 2.1.52を使っています。
> 
> 　+mdrop で d でメールを削除指定した後、x でメールを消す操作で、特定メー
> ルが消えてくれません。

> X-Mew-Uidl: 20011221040219969.IKQL.20327.t-webmail2.odn.ne.jp at example.com
>  5117

X-Mew-Uidlに改行が入っているのが原因と見ました。添付のパッチを
試していただけますか?

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -cr mew-2.2rc1.orig/mew-func.el mew-2.2rc1/mew-func.el
*** mew-2.2rc1.orig/mew-func.el	Tue Dec 11 12:14:45 2001
--- mew-2.2rc1/mew-func.el	Fri Dec 21 14:10:53 2001
***************
*** 281,287 ****
  
  (defun mew-replace-white-space (string)
    "Replace white characters to a space."
!   (while (string-match "\t+" string)
      (setq string (replace-match " " nil t string)))
    (while (string-match "  +" string)
      (setq string (replace-match " " nil t string)))
--- 281,287 ----
  
  (defun mew-replace-white-space (string)
    "Replace white characters to a space."
!   (while (string-match "[\n\t]+" string)
      (setq string (replace-match " " nil t string)))
    (while (string-match "  +" string)
      (setq string (replace-match " " nil t string)))
diff -cr mew-2.2rc1.orig/mew-scan.el mew-2.2rc1/mew-scan.el
*** mew-2.2rc1.orig/mew-scan.el	Fri Oct 26 14:19:16 2001
--- mew-2.2rc1/mew-scan.el	Fri Dec 21 14:11:28 2001
***************
*** 441,447 ****
        (mew-erase-buffer)
        (mew-insert-message
         fld msg mew-cs-text-for-read mew-header-reasonable-size)
!       (setq xuidl (mew-header-get-value xmu)))
      (mew-remove-buffer buf)
      xuidl))
  
--- 441,447 ----
        (mew-erase-buffer)
        (mew-insert-message
         fld msg mew-cs-text-for-read mew-header-reasonable-size)
!       (setq xuidl (mew-replace-white-space (mew-header-get-value xmu))))
      (mew-remove-buffer buf)
      xuidl))