Mercurial > hg > xemacs-beta
diff lisp/gnus/gnus-sum.el @ 151:59463afc5666 r20-3b2
Import from CVS: tag r20-3b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:37:19 +0200 |
parents | 318232e2a3f0 |
children | 25f70ba0133c |
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el Mon Aug 13 09:36:20 2007 +0200 +++ b/lisp/gnus/gnus-sum.el Mon Aug 13 09:37:19 2007 +0200 @@ -5145,7 +5145,8 @@ (if (and (or (eq t unreads) (and unreads (not (zerop unreads)))) (gnus-summary-read-group - target-group nil no-article current-buffer)) + target-group nil no-article + (and (buffer-name current-buffer) current-buffer))) (setq entered t) (setq current-group target-group target-group nil))))))) @@ -6331,6 +6332,9 @@ "Search for an article containing REGEXP. Optional argument BACKWARD means do search for backward. `gnus-select-article-hook' is not called during the search." + ;; We have to require this here to make sure that the following + ;; dynamic binding isn't shadowed by autoloading. + (require 'gnus-asynch) (let ((gnus-select-article-hook nil) ;Disable hook. (gnus-article-display-hook nil) (gnus-mark-article-hook nil) ;Inhibit marking as read.