(gnus-draft-setup): Mark all replied as replied.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ccf4f69..d2a92da 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-05-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-draft.el (gnus-draft-setup): Mark all replied as replied. 
+
        * gnus-group.el (gnus-group-mode): Set show-trailing-whitespace
        to nil.
        

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 12fa9c2..51f22e6 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -271,12 +271,13 @@
              `(lambda (arg)
                 (gnus-post-method arg ,(car ga))))
        (unless (equal (cadr ga) "")
-         (message-add-action
-          `(progn
-             (gnus-add-mark ,(car ga) 'replied ,(cadr ga))
-             (gnus-request-set-mark ,(car ga) (list (list (list ,(cadr ga))
-                                                          'add '(reply)))))
-          'send))))))
+         (dolist (article (cdr ga))
+           (message-add-action
+            `(progn
+               (gnus-add-mark ,(car ga) 'replied ,article)
+               (gnus-request-set-mark ,(car ga) (list (list (list ,article)
+                                                            'add '(reply)))))
+            'send)))))))
 
 (defun gnus-draft-article-sendable-p (article)
   "Say whether ARTICLE is sendable."

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d3f754d..dea6e3b 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -359,10 +359,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)
@@ -404,7 +404,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
@@ -432,12 +432,9 @@ 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 &rest articles)
   (concat "(\"" group "\" "
-         (if article (number-to-string
-                      (if (listp article)
-                          (car article)
-                        article)) "\"\"")
+         (if articles (mapconcat #'number-to-string articles " "))
          ")"))
 
 ;;;###autoload