[Mew-dist 463] Re: wrong To: field in draft buffer

[Mikayama Shigemi]

三箇山＠北陸ＮＥＳです。

 Murata Shuuichirou <mrt at example.com> さんより
 Mon, 03 Feb 1997 09:20:57 +0900 に受け取った
『 [Mew-dist 460] Re: wrong To: field in draft buffer 』のメールで、

> 
> 同じ宛先のチェックをするのに string-match を用いているのが原因のようで
> す。
> 
> Index: mew-draft.el
> ===================================================================
> RCS file: /usr/home/mrt/CVS/mew/mew-draft.el,v
> retrieving revision 1.2
> diff -u -r1.2 mew-draft.el
> --- mew-draft.el	1997/02/02 22:44:22	1.2
> +++ mew-draft.el	1997/02/02 23:51:29
> @@ -378,7 +378,7 @@
>    (` (or (catch (quote match)
>  	   (car (mapcar
>  		 (function (lambda (arg)
> -			     (and (string-match arg c)
> +			     (and (string= (downcase arg) (downcase c))
>  				  (throw (quote match) t))))
>  		     del)))
>  	 (string-match ":;" c))))
> 
と、string=を使うのでしたら、mew-draft.elの

@@ -380,8 +380,8 @@
 ;; cc -- string or list
 ;; nl -- one empty line under "----", which is necessary if
 ;;      multipart region is prepared
-  (let ((del (cons (concat "^" (regexp-quote (user-login-name)) "$")
-		   (cons (concat "^" mew-mail-address "$")
+  (let ((del (cons (user-login-name)
+		   (cons mew-mail-address
 			 mew-mail-address-list)))
 	;; deleting list for Cc:
 	(c nil)

と、delのリストに自分の名前、メールアドレスに^,$をconcatするのは不要で
すよね？

＃実は、うちでも、これに関するトラブルがあって、Mew-dist 359で質問して
いた件でした。有難うございます。

--
Mikayama