* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))