From eb7003dfec62a4b8d421186c7cbd602c1dba9f7e Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 23 May 2004 05:07:12 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-edit-string): To judge sender address, use wl-address-user-mail-address-p. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 5 +---- 2 files changed, 6 insertions(+), 4 deletions(-) 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 + + * wl-draft.el (wl-draft-edit-string): To judge sender address, + use wl-address-user-mail-address-p. + 2004-05-22 Yoichi NAKAYAMA * 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) -- 1.7.10.4