From 19fe0c2e44466a0b9457ef11d23ce0b6e18baa99 Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Wed, 3 Aug 2011 22:09:04 +0000 Subject: [PATCH] nnir.el (nnir-read-server-parm): Add an argument to restrict to server-variables only. This should fix a bug introduced with commit e1889675b7f4adf057833c5513c9374134c4e053. (nnir-run-query): 'nnir-search-engine should not be set from the global environment. --- lisp/gnus/ChangeLog | 8 ++++++++ lisp/gnus/nnir.el | 16 +++++++++------- 2 files changed, 17 insertions(+), 7 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e88b5154c76..9029ab8e6fd 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,11 @@ +2011-08-03 Andrew Cohen + + * nnir.el (nnir-read-server-parm): Add an argument to restrict to + server-variables only. This should fix a bug introduced with commit + e1889675b7f4adf057833c5513c9374134c4e053. + (nnir-run-query): 'nnir-search-engine should not be set from the global + environment. + 2011-08-02 Andrew Cohen * nnir.el (nnir-search-thread): Position point on referring article diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index d35e6560e71..17fc3f3fe81 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -1624,7 +1624,7 @@ actually)." (let* ((server (car x)) (nnir-search-engine (or (nnir-read-server-parm 'nnir-search-engine - server) + server t) (cdr (assoc (car (gnus-server-to-method server)) nnir-method-default-engines)))) @@ -1643,14 +1643,16 @@ actually)." nil))) groups)))) -(defun nnir-read-server-parm (key server) - "Returns the parameter value of key for the given server, where -server is of form 'backend:name'." +(defun nnir-read-server-parm (key server &optional not-global) + "Returns the parameter value corresponding to `key' for +`server'. If no server-specific value is found consult the global +environment unless `not-global' is non-nil." (let ((method (gnus-server-to-method server))) (cond ((and method (assq key (cddr method))) - (nth 1 (assq key (cddr method)))) - ((boundp key) (symbol-value key)) - (t nil)))) + (nth 1 (assq key (cddr method)))) + ((and (not not-global) (boundp key)) (symbol-value key)) + (t nil)))) + (defun nnir-possibly-change-server (server) (unless (and server (nnir-server-opened server)) -- 2.39.2