New command `gnus-summary-reply-to-list-with-original'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c58790..0e4fca9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-26  Timo Juhani Lindfors <timo.lindfors@iki.fi>  (tiny change)
+
+       * gnus-msg.el (gnus-summary-reply-to-list-with-original): New command
+       and keystroke.
+
 2011-06-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * auth-source.el (auth-source-netrc-cache): Move forward.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 093eec3..e256446 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -351,6 +351,7 @@ Thank you for your help in stamping out bugs.
   "r" gnus-summary-reply
   "y" gnus-summary-yank-message
   "R" gnus-summary-reply-with-original
+  "L" gnus-summary-reply-to-list-with-original
   "w" gnus-summary-wide-reply
   "W" gnus-summary-wide-reply-with-original
   "v" gnus-summary-very-wide-reply
@@ -1154,6 +1155,16 @@ The original article will be yanked."
   (interactive "P")
   (gnus-summary-reply (gnus-summary-work-articles n) wide))
 
+(defun gnus-summary-reply-to-list-with-original (n &optional wide)
+  "Start composing a reply mail to the current message.
+The reply goes only to the mailing list.
+The original article will be yanked."
+  (interactive "P")
+  (let ((message-reply-to-function
+        (lambda nil
+          `((To . ,(gnus-mailing-list-followup-to))))))
+    (gnus-summary-reply (gnus-summary-work-articles n) wide)))
+
 (defun gnus-summary-reply-broken-reply-to (&optional yank wide very-wide)
   "Like `gnus-summary-reply' except removing reply-to field.
 If prefix argument YANK is non-nil, the original article is yanked

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 2b31a56..295dcd4 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Summary Mail Commands): Document
+       `gnus-summary-reply-to-list-with-original'.
+
 2011-05-31  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus.texi (Store custom flags and keywords): Refer to

diff --git a/texi/gnus.texi b/texi/gnus.texi
index a61b5b1..8350be7 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -5568,6 +5568,13 @@ message (@code{gnus-summary-wide-reply-with-original}).  This command uses
 the process/prefix convention, but only uses the headers from the
 first article to determine the recipients.
 
+@item S L
+@kindex S L (Summary)
+@findex gnus-summary-reply-to-list-with-original
+When replying to a message from a mailing list, send a reply to that
+message to the mailing list, and include the original message
+(@code{gnus-summary-reply-to-list-with-original}).
+
 @item S v
 @kindex S v (Summary)
 @findex gnus-summary-very-wide-reply