From: teranisi <teranisi>
Date: Sun, 24 Feb 2002 12:33:49 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-reply): If r-to-list is a function, call it;
X-Git-Tag: wl-2_9_8~42
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dee6e39672270f10747aa3c59bc4cc21f4905f92;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-reply): If r-to-list is a function, call it;
Likewise r-cc-list and r-ng-list.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7a44cb6..418da0e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-reply): If r-to-list is a function, call it;
+	Likewise r-cc-list and r-ng-list.
+
 2002-02-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-draft-send): Use mime-header-encode-method-alist
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f565437..d982ecb 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -312,19 +312,26 @@ Reply to author if WITH-ARG is non-nil."
 	    (when (and (member "Followup-To" r-ng-list)
 		       (string= (std11-field-body "Followup-To") "poster"))
 	      (setq r-to-list (cons "From" r-to-list))
-	      (setq r-ng-list (delete "Followup-To" (copy-sequence r-ng-list))))
-	    (setq to (wl-concat-list (cons to
-					   (elmo-multiple-fields-body-list
-					    r-to-list))
-				     ","))
-	    (setq cc (wl-concat-list (cons cc
-					   (elmo-multiple-fields-body-list
-					    r-cc-list))
-				     ","))
-	    (setq newsgroups (wl-concat-list (cons newsgroups
-						   (std11-field-bodies
-						    r-ng-list))
-					     ",")))
+	      (setq r-ng-list (delete "Followup-To"
+				      (copy-sequence r-ng-list))))
+	    (if (and r-to-list (symbolp r-to-list))
+		(setq to (wl-concat-list (funcall r-to-list) ","))
+	      (setq to (wl-concat-list (cons to
+					     (elmo-multiple-fields-body-list
+					      r-to-list))
+				       ",")))
+	    (if (and r-cc-list (symbolp r-cc-list))
+		(setq cc (wl-concat-list (funcall r-to-list) ","))
+	      (setq cc (wl-concat-list (cons cc
+					     (elmo-multiple-fields-body-list
+					      r-cc-list))
+				       ",")))
+	    (if (and r-ng-list (symbolp r-ng-list))
+		(setq newsgroups (wl-concat-list (funcall r-ng-list) ","))
+	      (setq newsgroups (wl-concat-list (cons newsgroups
+						     (std11-field-bodies
+						      r-ng-list))
+					       ","))))
 	  (throw 'done nil))
 	(setq r-list (cdr r-list)))
       (error "No match field: check your `%s'"