[Mew-dist 495] Re: archives

[SAKAI Kiyotaka]

>> In article <19970218121459J.ksakai at example.com>, SAKAI Kiyotaka <ksakai at example.com> writes:

> ・"From: foo at example.com", "To: myfoo at example.com" のような、To が From の
>   substring になっているメールに reply すると、Cc から To に記述されて
>   いた問題の修正。
>   ([Mew-dist 460] Murata Shuuichirou <mrt at example.com>)
>   ([Mew-dist 463] "Mikayama Shigemi" <mikayama at example.com>)

先にまとめて送ったパッチのうち、この部分では string-match の代わりに 
string= を使うような修正がなされていましたが、よくよく考えてみると、
mew-mail-address-list には正規表現を用いることができるというのが仕様で
したので、これらのパッチではまずかったですね。

mew-draft.el は、以下のようにすればいいと思います。
(オリジナルの mew-draft.el からの差分です。)
-- 
酒井 清隆 (E-mail: ksakai at example.com)


--- mew-1.54.orig/mew-draft.el	Tue Nov 26 01:34:25 1996
+++ mew-1.54/mew-draft.el	Tue Feb 18 18:20:31 1997
@@ -401,15 +401,15 @@
      ;; To: collected by reply
      ((listp tf)
       (insert (format "To: %s" (car tf)))
-      (setq del (cons (car tf) del))
+      (setq del (cons (concat "^" (regexp-quote (car tf)) "$") del))
       (while tf
 	(setq c (car tf) tf (cdr tf))
 	(if (mew-to-cc-magic)
 	    ()
 	  (insert (format ",\n\t%s" c))
-	  (setq del (cons c del))
+	  (setq del (cons (concat "^" (regexp-quote c) "$") del))
 	  ))
-	(insert "\n"))
+      (insert "\n"))
      )
     (cond
      ((null cc) ()) ; do nothing 
@@ -426,7 +426,7 @@
 	      ()
 	    (insert "Cc: ")
 	    (insert c)
-	    (setq del (cons c del))
+	    (setq del (cons (concat "^" (regexp-quote c) "$") del))
 	    (setq cep t)
 	    (throw 'first nil))
 	  ))
@@ -436,7 +436,7 @@
 	(if (mew-to-cc-magic)
 	    ()
 	  (insert (format ",\n\t%s" c))
-	  (setq del (cons c del))
+	  (setq del (cons (concat "^" (regexp-quote c) "$") del))
 	  ))
 	(if cep (insert "\n")))
      ))
@@ -535,7 +535,8 @@
 	 (mimedir (mew-expand-file-name mimefolder))
 	 (msg (file-name-nondirectory (buffer-file-name)))
 	 (fcc nil)
-	 (delete nil))
+	 (delete nil)
+	 (process-connection-type nil))
     (set-buffer-modified-p t)		; Make sure buffer is written
     (let ((file-coding-system (if mew-mule-p mew-mule-charset-mime-trans)))
       (save-buffer)