[Mew-dist 15207] Re: 過去のmailアドレスから送信したmailのサマリ表示方法

[Tatsuya Kinoshita]

mew-mail-address-list関連のパッチを作りました。

In message "[Mew-dist 15176] Re: 過去のmailアドレスから送信したmailの ..."
Shun-ichi TAHARA (田原 俊一) <jado at example.com> wrote:

> (setq mew-mail-address-list
>       '("jado at example.com\.gr\.jp"

"^jado at example.com\\.gr\\.jp$"と書く方がよさそうです。

"\."だと"."と同じ意味になってしまいます。"."をregexp-quoteすると
"\\."になります。

また、"hogejado at example.com"のように部分的に一致する別のアドレ
スを、自分のアドレスだと誤認してしまいます。

Mewによって自動生成される正規表現のリストにも、同様の問題があるよう
です。それを修正するためのパッチです。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute and/or modify it 
 without restriction.  There is NO WARRANTY.

diff -ur mew-1.95b82/mew-config.el mew-1.95b82-tats20001129/mew-config.el
--- mew-1.95b82/mew-config.el	Tue Nov 21 16:44:22 2000
+++ mew-1.95b82-tats20001129/mew-config.el	Wed Nov 29 14:32:12 2000
@@ -62,7 +62,7 @@
 	  (setq mew-inbox-folders (cons val mew-inbox-folders)))
       (if (not mew-generate-mail-address-list)
 	  ()
-	(setq val (mew-mail-address case))
+	(setq val (concat "^" (regexp-quote (mew-mail-address case)) "$"))
 	(or (member val mew-mail-address-list)
 	    (setq mew-mail-address-list (cons val mew-mail-address-list))))
       (if (not mew-generate-mail-domain-list)
diff -ur mew-1.95b82/mew-func.el mew-1.95b82-tats20001129/mew-func.el
--- mew-1.95b82/mew-func.el	Sun Nov 26 11:19:57 2000
+++ mew-1.95b82-tats20001129/mew-func.el	Wed Nov 29 14:32:30 2000
@@ -889,7 +889,7 @@
 whether or not a given address is mine. The list is created
 from (mew-user), (mew-mail-address), and 'mew-mail-address-list'."
   '(cons (concat "^" (regexp-quote (mew-user)) "$")
-	 (cons (concat "^" (mew-mail-address) "$")
+	 (cons (concat "^" (regexp-quote (mew-mail-address)) "$")
 	       mew-mail-address-list)))
   
 (defmacro mew-is-my-address (addrs from)