From: kaoru <kaoru>
Date: Fri, 10 Jan 2003 19:51:47 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-self-reply-p): New function.
X-Git-Tag: wl-2_10_1pre~59
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd8d686a7bd3081254c2100fbde33beffbc786d9;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-self-reply-p): New function.
(wl-draft-reply-list-symbol): Use it.
---

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  <kaoru@kaisei.org>
+
+	* wl-draft.el (wl-draft-self-reply-p): New function.
+	(wl-draft-reply-list-symbol): Use it.
+
 2003-01-10  Masahiro Murata  <muse@ba2.so-net.ne.jp>
 
 	* 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)