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

	* gnus-draft.el (gnus-draft-setup): Don't set mark when there
	isn't an article to set it on (e.g. when you `a' in a group).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c95f71d..fb5cc41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-14  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-draft.el (gnus-draft-setup): Don't set mark when there
+       isn't an article to set it on (e.g. when you `a' in a group).
+
 2001-09-12  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * mm-util.el (mm-charset-synonym-alist): add windows-1250 so we

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 2627c50..1be1e1c 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -244,9 +244,10 @@
        (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
+          `(gnus-add-mark ,(car ga) 'replied ,(cadr ga))
+          'send))))))
 
 (defun gnus-draft-article-sendable-p (article)
   "Say whether ARTICLE is sendable."