Synch with Oort Gnus.

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 47cfac7..2aa1615 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -247,6 +247,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))))