[Mew-dist 10264] Re: mew-fromme-to-list

[Kazu Yamamoto ( 山本和彦 )]

From: Hideaki MORINAKA <Hideaki.Morinaka at example.com>
Subject: [Mew-dist 10260] mew-fromme-to-list
Date: Fri, 20 Aug 1999 13:37:40 +0900

> 自分が出した(他人宛の)メイルに対してリプライ(aもしくはA)すると、
> 返答するメッセージのTo:に自分のアドレスが入ってしまいます。

From: から察するに、大文字小文字問題のような気がします。このパッチでい
かがでしょう？

--かず
-------------- next part --------------
Index: mew-func.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-func.el,v
retrieving revision 1.75
diff -c -r1.75 mew-func.el
*** mew-func.el	1999/08/18 05:04:55	1.75
--- mew-func.el	1999/08/20 05:08:54
***************
*** 811,821 ****
    
  (defmacro mew-is-my-address (addrs from)
    (` (and (, from)
! 	  (catch (quote match)
! 	    (car (mapcar (function (lambda (arg)
! 				     (and (string-match arg (, from))
! 					  (throw (quote match) t))))
! 			 (, addrs)))))))
  
  ;;
  ;; Lisp load/save
--- 811,822 ----
    
  (defmacro mew-is-my-address (addrs from)
    (` (and (, from)
! 	  (let ((case-fold-search t))
! 	    (catch (quote match)
! 	      (car (mapcar (function (lambda (arg)
! 				       (and (string-match arg (, from))
! 					    (throw (quote match) t))))
! 			   (, addrs))))))))
  
  ;;
  ;; Lisp load/save