X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-draft.el;h=9fa69b573669f1f8ac2c9c32d03d07644e669607;hb=36bd162f4f7cd40453b8683e796730836c352b2a;hp=4704739599a42ee34017a85b756ebf5b0ee31bcd;hpb=cd1e2a6b8c45abd9b701753cedffa6581c2ff35d;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 4704739..9fa69b5 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -1,5 +1,5 @@
 ;;; 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>
@@ -256,7 +256,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)))))
 
 (defvar gnus-draft-send-draft-buffer " *send draft*")