X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=ed4ee3fd2cdc2ddeac53656be2a930492ddd0b2b;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=ada3fe658e732e2278acfb06452f3a935d36bfeb;hpb=6250e0fee04211ed52d1fc5d8fb8d37d88446d92;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index ada3fe6..ed4ee3f 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -396,10 +396,10 @@ Thank you for your help in stamping out bugs.
 
 ;;; Internal functions.
 
-(defun gnus-inews-make-draft ()
+(defun gnus-inews-make-draft (articles)
   `(lambda ()
      (gnus-inews-make-draft-meta-information
-      ,gnus-newsgroup-name ',gnus-article-reply)))
+      ,gnus-newsgroup-name ',articles)))
 
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)
@@ -443,7 +443,7 @@ Thank you for your help in stamping out bugs.
 		  (not (string= ,group "")))
 	 (push (cons
 		(intern gnus-draft-meta-information-header)
-		(gnus-inews-make-draft))
+		(gnus-inews-make-draft ,yanked))
 	       message-required-headers))
        (unwind-protect
 	   (progn
@@ -462,12 +462,19 @@ Thank you for your help in stamping out bugs.
        (run-hooks 'post-command-hook)
        (set-buffer-modified-p nil))))
 
-(defun gnus-inews-make-draft-meta-information (group article)
+(defun gnus-inews-make-draft-meta-information (group articles)
+  (when (numberp articles)
+    (setq articles (list articles)))
   (concat "(\"" group "\" "
-	  (if article (number-to-string
-		       (if (listp article)
-			   (car article)
-			 article)) "\"\"")
+	  (if articles
+	      (mapconcat
+	       (lambda (elem)
+		 (number-to-string
+		  (if (consp elem)
+		      (car elem)
+		    elem)))
+	       articles " ")
+	    "")
 	  ")"))
 
 ;;;###autoload
@@ -756,7 +763,9 @@ article number, and the cdr is the string to be yanked."
     (gnus-summary-handle-replysign)))
 
 (defun gnus-summary-followup-with-original (n &optional force-news)
-  "Compose a followup to an article and include the original article."
+  "Compose a followup to an article and include the original article.
+The text in the region will be yanked.  If the region isn't
+active, the entire article will be yanked."
   (interactive "P")
   (gnus-summary-followup (gnus-summary-work-articles n) force-news))