From bd8d686a7bd3081254c2100fbde33beffbc786d9 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 10 Jan 2003 19:51:47 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-self-reply-p): New function. (wl-draft-reply-list-symbol): Use it. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 590c797..a306ff8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-01-10 TAKAHASHI Kaoru + + * wl-draft.el (wl-draft-self-reply-p): New function. + (wl-draft-reply-list-symbol): Use it. + 2003-01-10 Masahiro Murata * wl-draft.el (wl-draft-reedit): Avoid error on Meadow [wl:11209]. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 88b7897..bcb09bd 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -313,10 +313,14 @@ e.g. (substring subject (match-end 0)) subject)) +(defun wl-draft-self-reply-p () + "Return t when From address in the current message is user's self one or not." + (wl-address-user-mail-address-p (or (elmo-field-body "From") ""))) + (defun wl-draft-reply-list-symbol (with-arg) "Return symbol `wl-draft-reply-*-argument-list' match condition. Check WITH-ARG and From: field." - (if (wl-address-user-mail-address-p (or (elmo-field-body "From") "")) + (if (wl-draft-self-reply-p) (if with-arg 'wl-draft-reply-myself-with-argument-list 'wl-draft-reply-myself-without-argument-list) -- 1.7.10.4