* gnus-draft.el (gnus-draft-setup): Add mark in backend as well.
+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.
(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)