* gnus-agent.el (gnus-agent-regenerate-group): New function.

[gnus] / lisp / gnus-draft.el

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 2627c50..9b18989 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -1,5 +1,5 @@
 ;;; gnus-draft.el --- draft message support for Gnus
-;; Copyright (C) 1997, 1998, 1999, 2000
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -176,7 +176,7 @@
   (gnus-uu-mark-buffer)
   (gnus-draft-send-message))
 
-(defun gnus-group-send-drafts ()
+(defun gnus-group-send-queue ()
   "Send all sendable articles from the queue group."
   (interactive)
   (gnus-activate-group "nndraft:queue")
@@ -244,9 +244,13 @@
        (setq message-post-method
              `(lambda (arg)
                 (gnus-post-method arg ,(car ga))))
-       (message-add-action
-        `(gnus-add-mark ,(car ga) 'replied ,(cadr ga))
-        'send)))))
+       (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))))))
 
 (defun gnus-draft-article-sendable-p (article)
   "Say whether ARTICLE is sendable."