From: kaoru <kaoru>
Date: Fri, 26 Jan 2001 09:29:42 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reply-list-symbol): Change argument order.
X-Git-Tag: wl-2_4_1~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3a18413070af950bac0c15de1fc6011af3fada14;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-reply-list-symbol): Change argument order.
FROM was optional argument.
(wl-draft-reply): Fixed `wl-draft-reply-list-symbol' call point.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6c862d9..bb23f47 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-draft.el (wl-draft-reply-list-symbol): Change argument order.
+	FROM was optional argument.
+	(wl-draft-reply): Fixed `wl-draft-reply-list-symbol' call point.
+
 2001-01-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-version.el (wl-version-show): Removed.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index cc3d69e..b2ece71 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -256,15 +256,16 @@
       (substring subject (match-end 0))
     subject))
 
-(defun wl-draft-reply-list-symbol (from no-arg)
-  "Check FROM and NO-ARG, return symbol `wl-draft-reply-*-argument-list'.
-Return symbol, not list.  Use symbol-name"
-  (if (wl-address-user-mail-address-p from)
+(defun wl-draft-reply-list-symbol (no-arg &optional from)
+  "Select `wl-draft-reply-*-argument-list' from condition NO-ARG and FROM.
+Return symbol `wl-draft-reply-*-argument-list' (not value).
+When FROM is nil, use (std11-field-body \"From\") instead."
+  (if (wl-address-user-mail-address-p (or from (std11-field-body "From")))
       (if no-arg
-          'wl-draft-reply-myself-without-argument-list
-        'wl-draft-reply-myself-with-argument-list)
+	  'wl-draft-reply-myself-without-argument-list
+	'wl-draft-reply-myself-with-argument-list)
     (if no-arg
-        'wl-draft-reply-without-argument-list
+	'wl-draft-reply-without-argument-list
       'wl-draft-reply-with-argument-list)))
 
 (defun wl-draft-reply (buf no-arg summary-buf)
@@ -276,8 +277,8 @@ Return symbol, not list.  Use symbol-name"
     (set-buffer buf)
     (setq from (wl-address-header-extract-address (std11-field-body "From")))
     ;; symbol-name use in error message
-    (setq r-list-name (symbol-name (wl-draft-reply-list-symbol from no-arg)))
-    (setq r-list (symbol-value (wl-draft-reply-list-symbol from no-arg)))
+    (setq r-list-name (symbol-name (wl-draft-reply-list-symbol no-arg from)))
+    (setq r-list (symbol-value r-list-name))
     (catch 'done
       (while r-list
 	(when (let ((condition (car (car r-list))))