* 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 (file)
--- 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 (file)
--- 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)