X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnvirtual.el;h=edc9fb655a3358dcd296553e41410619a9b02ad8;hb=dee0c694f05b79f8ee3a20ec30064c829288ef44;hp=18faa23a80ea55a703324b0b7dac5d48f85f3434;hpb=a4cc1a7862f0e7e0eba0acadfe8ffad990e4fe41;p=gnus

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index 18faa23a8..edc9fb655 100644
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -1,7 +1,6 @@
 ;;; nnvirtual.el --- virtual newsgroups access for Gnus
 
-;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-;;   2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1994-2012 Free Software Foundation, Inc.
 
 ;; Author: David Moore <dmoore@ucsd.edu>
 ;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -195,10 +194,11 @@ component group will show up when you enter the virtual group.")
 	    (when buffer
 	      (set-buffer buffer))
 	    (let* ((gnus-override-method nil)
-		   (method (gnus-find-method-for-group
-			    nnvirtual-last-accessed-component-group)))
-	      (funcall (gnus-get-function method 'request-article)
-		       article nil (nth 1 method) buffer)))))
+		   (gnus-command-method
+		    (gnus-find-method-for-group
+		     nnvirtual-last-accessed-component-group)))
+	      (funcall (gnus-get-function gnus-command-method 'request-article)
+		       article nil (nth 1 gnus-command-method) buffer)))))
       ;; This is a fetch by number.
       (let* ((amap (nnvirtual-map-article article))
 	     (cgroup (car amap)))
@@ -247,7 +247,7 @@ component group will show up when you enter the virtual group.")
       t)))
 
 
-(deffoo nnvirtual-request-group (group &optional server dont-check)
+(deffoo nnvirtual-request-group (group &optional server dont-check info)
   (nnvirtual-possibly-change-server server)
   (setq nnvirtual-component-groups
 	(delete (nnvirtual-current-group) nnvirtual-component-groups))