Posting from an nnvirtual group kludge

Posting from an nnvirtual group kludge

[Per Abrahamsen]

For some reason, posting from a nnvirtual group started to complain
about all groups being unknown.  I added the kludge below, but if
anyone who knows what is going on would find a better solution, that
would probably be good.

Should ve add a new nnoo virtual function to do it right?

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

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

*** message.el.~6.130.~	Wed Oct 17 10:57:59 2001
--- message.el	Wed Oct 17 19:51:04 2001
***************
*** 2919,2927 ****
  		     (if followup-to
  			 (concat newsgroups "," followup-to)
  		       newsgroups)))
! 	    (method (if (message-functionp message-post-method)
! 			(funcall message-post-method)
! 		      message-post-method))
  	    (known-groups
  	     (mapcar (lambda (n)
  		       (gnus-group-name-decode 
--- 2919,2938 ----
  		     (if followup-to
  			 (concat newsgroups "," followup-to)
  		       newsgroups)))
! 	    (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