From 97d0a92c79a5190291ae46dac668b0031ce6fe64 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Tue, 18 Oct 2011 14:10:52 +0000 Subject: Merge changes made in Gnus trunk. gnus-util.el (gnus-bound-and-true-p): Macro for XEmacs compatibility. nnir.el (nnir-mode): Use it. nnmairix.el (nnmairix-determine-original-group-from-registry): Use it. nnir.el (gnus-registry-enabled): Defvar to keep the compiler happy. nnmairix.el (gnus-registry-enabled): Ditto. --- lisp/gnus/nnir.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/gnus/nnir.el') diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index cbd3f743b3..2d3c05864e 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -292,6 +292,8 @@ is `(valuefunc member)'." (autoload 'nnimap-make-thread-query "nnimap") (autoload 'gnus-registry-action "gnus-registry")) +;; Suppress byte-compiler warning `reference to free variable' +(defvar gnus-registry-enabled) (nnoo-declare nnir) (nnoo-define-basics nnir) @@ -1740,7 +1742,7 @@ environment unless `not-global' is non-nil." (when (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nnir) (setq gnus-summary-line-format (or nnir-summary-line-format gnus-summary-line-format)) - (when (bound-and-true-p gnus-registry-enabled) + (when (gnus-bound-and-true-p gnus-registry-enabled) (remove-hook 'gnus-summary-article-delete-hook 'gnus-registry-action t) (remove-hook 'gnus-summary-article-move-hook 'gnus-registry-action t) (remove-hook 'gnus-summary-article-expire-hook 'gnus-registry-action t) -- cgit v1.2.3