[Mew-dist 09342] Re: b33

[Kazu Yamamoto ( 山本和彦 )]

From: ayanokoji <cad11870 at example.com>
Subject: [Mew-dist 09284] Re: b33
Date: Wed, 9 Jun 1999 15:26:42 +0900

>  To: bar <foo at example.com>
> 
> 型のアドレスにした場合，PGPでの暗号化ができなくなりました。

以下のパッチで直ると思います。

--かず
-------------- next part --------------
Index: mew-header.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-header.el,v
retrieving revision 1.52
diff -c -r1.52 mew-header.el
*** mew-header.el	1999/06/09 00:43:09	1.52
--- mew-header.el	1999/06/15 12:55:00
***************
*** 355,363 ****
        (setq tmp (mew-alias-get tmp))
        (setq tmp (mapcar (function mew-chop) (mew-split tmp ?,)))
        (setq tmp (delete "" tmp))
!       (setq tmp (mapcar (lambda (x) (if (string-match "@" x)
! 					x
! 				      (concat x "@" mew-mail-domain)))
  			tmp))
        (setq ret (append ret tmp)))
      ret))
--- 355,366 ----
        (setq tmp (mew-alias-get tmp))
        (setq tmp (mapcar (function mew-chop) (mew-split tmp ?,)))
        (setq tmp (delete "" tmp))
!       (setq tmp (mapcar (lambda (x)
! 			  (let ((y (mew-addrstr-parse-address x)))
! 			    (if (or (string-match "@" y)
! 				    (string-match ";$" y))
! 				y
! 			      (concat y "@" mew-mail-domain))))
  			tmp))
        (setq ret (append ret tmp)))
      ret))