2001-10-17 Per Abrahamsen <abraham@dina.kvl.dk>

	* message.el (message-check-news-header-syntax): Special case
	nnvirtual groups.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4049ab..c91887c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-17  Per Abrahamsen  <abraham@dina.kvl.dk>
 
+       * message.el (message-check-news-header-syntax): Special case
+       nnvirtual groups.
+
        * gnus-sum.el (gnus-summary-respool-default-method): Changed
        customize type to `symbol'.
 

diff --git a/lisp/message.el b/lisp/message.el
index 730d6e2..c7eb5ec 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2919,9 +2919,20 @@ to find out how to use this."
                     (if followup-to
                         (concat newsgroups "," followup-to)
                       newsgroups)))
-           (method (if (message-functionp message-post-method)
-                       (funcall message-post-method)
-                     message-post-method))
+           (post-method (if (message-functionp message-post-method)
+                            (funcall message-post-method)
+                          message-post-method))
+           ;; KLUDGE to handle nnvirtual groups.  Doing this right
+           ;; would probably involve a new nnoo function.
+           ;; -- Per Abrahamsen <abraham@dina.kvl.dk>, 2001-10-17.
+           (method (if (and (consp post-method) 
+                            (eq (car post-method) 'nnvirtual)
+                            gnus-message-group-art)
+                       (let ((group (car (nnvirtual-find-group-art
+                                          (car gnus-message-group-art)
+                                          (cdr gnus-message-group-art)))))
+                         (gnus-find-method-for-group group))
+                     post-method))
            (known-groups
             (mapcar (lambda (n)
                       (gnus-group-name-decode