;;; gnus-draft.el --- draft message support for Semi-gnus
-;; Copyright (C) 1997, 1998, 1999, 2000
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
(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)))))
(defvar gnus-draft-send-draft-buffer " *send draft*")