2001-09-23 Simon Josefsson <jas@extundo.com>

	* gnus-draft.el (gnus-draft-setup): Add mark in backend as well.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47a5156..3a9c155 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-23  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-draft.el (gnus-draft-setup): Add mark in backend as well.
+
 2001-09-23 02:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-msg.el (gnus-button-mailto): Hack save-selected-window-window.

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 1be1e1c..1a7b3ad 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -246,7 +246,10 @@
                 (gnus-post-method arg ,(car ga))))
        (unless (equal (cadr ga) "")
          (message-add-action
-          `(gnus-add-mark ,(car ga) 'replied ,(cadr ga))
+          `(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)