From: yoichi <yoichi>
Date: Sun, 23 May 2004 05:07:12 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-edit-string): To judge sender address,
X-Git-Tag: wl-2_11_30~40
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eb7003dfec62a4b8d421186c7cbd602c1dba9f7e;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-edit-string): To judge sender address,
use wl-address-user-mail-address-p.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index eb81de6..9a00d75 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-23  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-edit-string): To judge sender address,
+	use wl-address-user-mail-address-p.
+
 2004-05-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-folder.el (wl-folder-open-close): Keep cursor on the line
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 56e2050..10e07bd 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -609,10 +609,7 @@ Reply to author if WITH-ARG is non-nil."
 	(set-buffer
 	 (wl-draft (list
 		    (cons 'From
-			  (if (member
-			       (nth 1 (std11-extract-address-components from))
-			       wl-user-mail-address-list)
-			      from))
+			  (if (wl-address-user-mail-address-p from) from))
 		    (cons 'To to)
 		    (cons 'Cc cc)
 		    (cons 'Subject subject)