From: Andrew Cohen <cohen@bu.edu>
Date: Mon, 23 Jul 2012 11:10:23 +0000 (+0000)
Subject: nnir.el ("nnir"): Add 'virtual ability to nnir backend
X-Git-Tag: emacs-24.2.90~1097
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5df1607869c5acff34382b5accf3332b1e72bc2a;p=emacs.git

nnir.el ("nnir"): Add 'virtual ability to nnir backend
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 17e8006659f..957f38ca4c7 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-22  Andrew Cohen  <cohen@bu.edu>
+
+	* nnir.el ("nnir"): Add 'virtual ability to nnir backend.
+
 2012-07-21  Julien Danjou  <julien@danjou.info>
 
 	* message.el (message-dont-reply-to-names): Replace deprecated
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index d1ca0213ed9..1d787035659 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -288,7 +288,7 @@ is `(valuefunc member)'."
 (eval-when-compile
   (autoload 'nnimap-buffer "nnimap")
   (autoload 'nnimap-command "nnimap")
-  (autoload 'nnimap-possibly-change-group "nnimap")
+  (autoload 'nnimap-change-group "nnimap")
   (autoload 'nnimap-make-thread-query "nnimap")
   (autoload 'gnus-registry-action "gnus-registry"))
 
@@ -298,7 +298,7 @@ is `(valuefunc member)'."
 (defvoo nnir-address nil
   "The address of the nnir server.")
 
-(gnus-declare-backend "nnir" 'mail)
+(gnus-declare-backend "nnir" 'mail 'virtual)
 
 
 ;;; User Customizable Variables:
@@ -854,7 +854,7 @@ details on the language and supported extensions."
 	  (lambda (group)
 	    (let (artlist)
 	      (condition-case ()
-		  (when (nnimap-possibly-change-group
+		  (when (nnimap-change-group
 			 (gnus-group-short-name group) server)
 		    (with-current-buffer (nnimap-buffer)
 		      (message "Searching %s..." group)