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

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 4b015c1..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>
@@ -95,9 +95,10 @@
 (defun gnus-draft-edit-message ()
   "Enter a mail/post buffer to edit and send the draft."
   (interactive)
-  (let ((article (gnus-summary-article-number)))
+  (let ((article (gnus-summary-article-number))
+	(group gnus-newsgroup-name))
     (gnus-summary-mark-as-read article gnus-canceled-mark)
-    (gnus-draft-setup-for-editing article gnus-newsgroup-name)
+    (gnus-draft-setup-for-editing article group)
     (set-buffer-modified-p t)
     (save-excursion
       (save-restriction
@@ -105,7 +106,7 @@
 	(message-remove-header "date")))
     (message-save-drafts)
     (let ((gnus-verbose-backends nil))
-      (gnus-request-expire-articles (list article) gnus-newsgroup-name t))
+      (gnus-request-expire-articles (list article) group t))
     (push
      `((lambda ()
 	 (when (gnus-buffer-exists-p ,gnus-summary-buffer)
@@ -248,12 +249,18 @@
     (gnus-backlog-remove-article group narticle)
     (when (and ga
 	       (ignore-errors (setq ga (car (read-from-string ga)))))
+      (setq gnus-newsgroup-name
+	    (if (equal (car ga) "") nil (car ga)))
       (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)))))
 
 (defvar gnus-draft-send-draft-buffer " *send draft*")
 (defun gnus-draft-setup-for-sending (narticle group)