[Mew-dist 05488] Re: mew-gnus.el (Re: 1.93b46)

[SAKAI Kiyotaka]

>> In article <19980711134917J.kayama at example.com>, kayama/かやま <kayama at example.com> writes:

> mew-gnus.el で gnus からフォローしようとすると、
> mew-header-extract-addr  がない、とおこられてしまうようになりました。

このパッチでうまくいくはずです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
--- src/mew-1.93b46/contrib/mew-gnus.el	Sat Jul 11 19:30:17 1998
+++ lib/mule/mew-gnus.el	Mon Jul 13 13:47:41 1998
@@ -123,7 +123,7 @@
     (search-forward "\n\n" nil t)
     (let ((split-window-keep-point t))
       (split-window-vertically))
-    (setq from (mew-header-extract-addr (gnus-fetch-field "From"))
+    (setq from (mew-addrstr-parse-address-list (gnus-fetch-field "From"))
 	  subject (let ((subject (gnus-fetch-field "Subject")))
 		    (if (and subject
 			     (not (string-match "^[Rr][Ee]:.+$" subject)))