From: yoichi <yoichi>
Date: Tue, 13 Feb 2007 23:03:51 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-reply): Fix docstring.
X-Git-Tag: wl-2_15_6-fixes~89
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=396ef3f6d4a0a0ced5a040222b447a6c7bc64d8d;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-reply): Fix docstring.
* wl-draft.el (wl-draft-reply): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2253176..895bdcf 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-13  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-reply): Fix docstring.
+	* wl-draft.el (wl-draft-reply): Ditto.
+
 2007-02-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-summary-extract-attachments): New command.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 14c4414..8121eb0 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -326,8 +326,9 @@ e.g.
     result))
 
 (defun wl-draft-reply (buf with-arg summary-buf &optional number)
-  "Reply to BUF buffer message.
-Reply to author if WITH-ARG is non-nil."
+  "Create draft for replying to the message in buffer BUF.
+Recipients are prepared along `wl-draft-reply-without-argument-list',
+or `wl-draft-reply-with-argument-list' if WITH-ARG argument is non-nil."
 ;;;(save-excursion
   (let ((rule-list (if with-arg
 		       'wl-draft-reply-with-argument-list
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index b3256f5..2c40834 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4217,8 +4217,7 @@ Return t if message exists."
 	     nil)))))
 
 (defun wl-summary-reply (&optional arg without-setup-hook)
-  "Reply to current message. Default is \"wide\" reply.
-Reply to author if invoked with ARG."
+  "Reply to current message. See also `wl-draft-reply'."
   (interactive "P")
   (let ((folder wl-summary-buffer-elmo-folder)
 	(number (wl-summary-message-number))