Import Oort Gnus v0.09.

[elisp/gnus.git-] / lisp / gnus-draft.el

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 887e12d..b619f8b 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -241,6 +241,7 @@
                 (ignore-errors (setq ga (car (read-from-string ga)))))
        (setq gnus-newsgroup-name
              (if (equal (car ga) "") nil (car ga)))
+       (setq gnus-message-group-art (cons gnus-newsgroup-name (cadr ga)))
        (setq message-post-method
              `(lambda (arg)
                 (gnus-post-method arg ,(car ga))))