[mew-dist 26519] Re: char-equal

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 26516] Re: char-equal
Message-ID: <20050810.172436.254273537.kazu at example.com>
Date: Wed, 10 Aug 2005 17:24:36 +0900 (JST)

> XEmacs での charactor の振る舞いは、僕はよく理解していません。XEmacs の
> サポートは止めていますが、動いているものを動かなくする必要はないと思い
> ますので、char-equal は eq には変えたくありません。
> 
> 逆に、case-fold-search を nil にバインドしませんか？

了解。

> ちょっと今、時間がないので、気になるところのパッチを作成して頂けると嬉
> しいです。

夏休み中はなにもやらん、と決めていたので、すっかり遅くなってしま
いましたが、以下の二カ所だと思います。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-mark.el
===================================================================
RCS file: /cvsmew/mew/mew-mark.el,v
retrieving revision 1.154
diff -u -u -r1.154 mew-mark.el
--- mew-mark.el	12 Jul 2005 07:13:11 -0000	1.154
+++ mew-mark.el	17 Aug 2005 06:35:41 -0000
@@ -134,7 +134,8 @@
       (mew-sumsyn-mark)))) ;; return char
 
 (defun mew-summary-markable ()
-  (let ((mark (mew-summary-get-mark)))
+  (let ((mark (mew-summary-get-mark))
+	(case-fold-search nil))
     (or (null mark) (char-equal mark mew-mark-unread))))
 
 (defun mew-summary-mark-as (mark)
@@ -239,6 +240,7 @@
 
 (defun mew-summary-mark-recover (mdb &optional refdb refs)
   (let ((opos (point))
+	(case-fold-search nil)
 	ent msg mrk new-ref ref-ent)
     (goto-char (point-min))
     (while mdb