From 5df1607869c5acff34382b5accf3332b1e72bc2a Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Mon, 23 Jul 2012 11:10:23 +0000 Subject: [PATCH] nnir.el ("nnir"): Add 'virtual ability to nnir backend --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/nnir.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * nnir.el ("nnir"): Add 'virtual ability to nnir backend. + 2012-07-21 Julien Danjou * 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) -- 2.39.2