diff lisp/gnus/nnir.el @ 111994:c92e0a5c96e9

Merge changes made in Gnus trunk. nnir.el (nnir-get-active): Ignore nnir-ignored-newsgroups if null. gnus-sum.el (gnus-summary-refer-thread): Simplify code. Restore gnus-use-agent. (gnus-get-newsgroup-headers): Avoid unwanted spaces at eol. gravatar.el (gravatar-retrieve-synchronously): New function. (gravatar-get-data): Make more robust. gnus-util.el (gnus-rescale-image): Allow to resize images even if they are from file. Can also scale up. nnimap.el (nnimap-retrieve-headers): Remove CRLF from the headers. nnir.el (nnir-mode): Make sure 'gnus-registry-install is bound. gnus-sum.el (gnus-get-newsgroup-headers): Revert the last change here, since it's up to the backends to do CRLF removal if their protocol has it. gnus-group.el (gnus-group-delete-articles): New command.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 17 Dec 2010 22:45:16 +0000
parents faa4a1c986c6
children 417b1e4d63cd
line wrap: on
line diff
--- a/lisp/gnus/nnir.el	Fri Dec 17 10:14:57 2010 -0500
+++ b/lisp/gnus/nnir.el	Fri Dec 17 22:45:16 2010 +0000
@@ -1543,7 +1543,8 @@
       (let ((cur (current-buffer))
 	    name)
 	(goto-char (point-min))
-	(unless (string= nnir-ignored-newsgroups "")
+	(unless (or (null nnir-ignored-newsgroups)
+		    (string= nnir-ignored-newsgroups ""))
 	  (delete-matching-lines nnir-ignored-newsgroups))
 	(if (eq (car method) 'nntp)
 	    (while (not (eobp))
@@ -1589,7 +1590,8 @@
   (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 (eq gnus-registry-install t)
+    (when (and (boundp 'gnus-registry-install)
+		       (eq gnus-registry-install t))
       (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)