From: yoichi <yoichi>
Date: Sun, 2 Mar 2003 01:52:00 +0000 (+0000)
Subject: 2003-03-02  Jeremy Shaw  <jeremy.shaw@lindows.com>
X-Git-Tag: merged-trunk-to-elmo-mark-15~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7359ec1ce1039440755ed54fc2f3e848602d40b4;p=elisp%2Fwanderlust.git

2003-03-02  Jeremy Shaw  <jeremy.shaw@lindows.com>

	* wl-draft.el (wl-draft-reply): Fixed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index baf193b..f1cbc46 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-02  Jeremy Shaw  <jeremy.shaw@lindows.com>
+
+	* wl-draft.el (wl-draft-reply): Fixed.
+
 2003-02-28  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft-send-confirm): Rewritten. Invoke preview
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a572663..81fbd07 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -329,7 +329,7 @@ Reply to author if WITH-ARG is non-nil."
 					      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 (funcall r-cc-list) ","))
 	      (setq cc (wl-concat-list (cons cc
 					     (elmo-multiple-fields-body-list
 					      r-cc-list))