From 396ef3f6d4a0a0ced5a040222b447a6c7bc64d8d Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 13 Feb 2007 23:03:51 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-reply): Fix docstring. * wl-draft.el (wl-draft-reply): Ditto. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 5 +++-- wl/wl-summary.el | 3 +-- 3 files changed, 9 insertions(+), 4 deletions(-) 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 + + * wl-summary.el (wl-summary-reply): Fix docstring. + * wl-draft.el (wl-draft-reply): Ditto. + 2007-02-05 Hiroya Murata * 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)) -- 1.7.10.4