[mew-dist 27494] Re: 続 char-equal

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 27493] 続 char-equal
Message-ID: <20061130.171344.258038558.shirai.hideyuki at example.com>
Date: Thu, 30 Nov 2006 17:13:44 +0900 (JST)

> 上記の設定で、最近、IMAP も使い出したのですが、ぼくの環境では、
> mew-mark-unlink を付けて "X" してもメッセージが %trash に移動す
> るだけで消えてくれませんので、添付のパッチをお願いします。

よくよく見たら、もうちょっとはまりそうなところがあったので、パッ
チを出し直します。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-exec.el
===================================================================
RCS file: /cvsmew/mew/mew-exec.el,v
retrieving revision 1.69
diff -u -r1.69 mew-exec.el
--- mew-exec.el	12 Jul 2006 09:22:48 -0000	1.69
+++ mew-exec.el	30 Nov 2006 09:04:09 -0000
@@ -418,6 +418,7 @@
   (let* ((case (mew-sinfo-get-case))
 	 (folder (mew-sinfo-get-folder))
 	 (m (copy-marker end))
+	 (case-fold-search nil)
 	 trash trash-list lomov
 	 siz msg uid ref flds del regex trss rmvs kils refs movs
 	 refinfo refile-back mark rttl dttl)
Index: mew-refile.el
===================================================================
RCS file: /cvsmew/mew/mew-refile.el,v
retrieving revision 1.136
diff -u -r1.136 mew-refile.el
--- mew-refile.el	12 Jul 2006 09:22:52 -0000	1.136
+++ mew-refile.el	30 Nov 2006 09:04:09 -0000
@@ -830,6 +830,7 @@
      (mew-decode-syntax-delete)
      (let ((mew-use-highlight-x-face nil)
 	   (lines (mew-sinfo-get-ttl-line))
+	   (case-fold-search nil)
 	   (line 1) (mark nil) msg)
        (cond
 	(mew-mark-review-only
Index: mew-virtual.el
===================================================================
RCS file: /cvsmew/mew/mew-virtual.el,v
retrieving revision 1.82
diff -u -r1.82 mew-virtual.el
--- mew-virtual.el	12 Jul 2006 09:22:55 -0000	1.82
+++ mew-virtual.el	30 Nov 2006 09:04:09 -0000
@@ -172,6 +172,7 @@
 	   (vfolder (mew-folder-to-virtual folder))
 	   (mark mew-mark-review)
 	   (start (point))
+	   (case-fold-search nil)
 	   beg line med regex)
       (if ask-mark (setq mark (mew-input-mark)))
       (setq regex (mew-mark-regex mark))