Applied a patch from Jesper Harder.

(gnus-draft-setup): Set gnus-message-group-art to allow editing of drafts
 from an nnvirtual group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5be9156..54754af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-06  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-draft.el (gnus-draft-setup): Set gnus-message-group-art to
+       allow editing of drafts from an nnvirtual group.
+
 2002-11-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nndraft.el (nndraft-request-article): Replace emacs-mule with

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))))