mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

gnus-msg.el: Fix detection of nnir group

Browse source
This commit is contained in:
Andrew Cohen 2013-04-04 22:15:25 +00:00 • committed by Katsumi Yamaoka
parent 47d038b3af
commit 567d89caf1
3 changed files with 23 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/nnir.el
View file

@ -1707,6 +1707,12 @@ actually)."
;;; Util Code:
(defun gnus-nnir-group-p (group)
"Say whether GROUP is nnir or not."
(if (gnus-group-prefixed-p group)
(eq 'nnir (car (gnus-find-method-for-group group)))
(and group (string-match "^nnir" group))))
(defun nnir-read-parms (nnir-search-engine)
"Reads additional search parameters according to `nnir-engines'."
(let ((parmspec (caddr (assoc nnir-search-engine nnir-engines))))
@ -1754,7 +1760,7 @@ environment unless `not-global' is non-nil."
(defun nnir-possibly-change-group (group &optional server)
(or (not server) (nnir-server-opened server) (nnir-open-server server))
(when (and group (string-match "\\`nnir" group))
(when (gnus-nnir-group-p group)
(setq nnir-artlist (gnus-group-get-parameter
(gnus-group-prefixed-name
(gnus-group-short-name group) '(nnir "nnir"))