diff options
| author | Andrew Cohen <cohen@andy.bu.edu> | 2013-04-04 22:15:25 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-04-04 22:15:25 +0000 |
| commit | 567d89caf1304c780e3cedc9db4c31a2ce57d588 (patch) | |
| tree | 9b1e70a237ac4ca17242257f5b9b4202a1d2ec86 /lisp/gnus/nnir.el | |
| parent | 47d038b3af124e8244e5c8248a71dc169f5dfaac (diff) | |
| download | emacs-567d89caf1304c780e3cedc9db4c31a2ce57d588.tar.gz | |
gnus-msg.el: Fix detection of nnir group
Diffstat (limited to 'lisp/gnus/nnir.el')
| -rw-r--r-- | lisp/gnus/nnir.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index e7d004a8b2c..b96f0c1cb78 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -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")) |