From b34b5d962624afe720fbcaa4b377dbb981c8b7b3 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Fri, 5 Sep 2003 12:20:12 +0000 Subject: [PATCH] (gnus-registry-fetch-extra-entry): don't use puthash unless gnus-registry-entry-caching is on (gnus-registry-split-fancy-with-parent): misplaced parenthesis made everything a part of the 'else' --- lisp/ChangeLog | 7 +++++++ lisp/gnus-registry.el | 13 +++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 54e24baa0..bd4c6ed2e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-09-05 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-fetch-extra-entry): don't use + puthash unless gnus-registry-entry-caching is on + (gnus-registry-split-fancy-with-parent): misplaced parenthesis + made everything a part of the 'else' + 2003-09-05 Jesper Harder * gnus-art.el (gnus-button-alist): Improve Info regexp. diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index fc667de18..ada28f028 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -357,11 +357,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (setq references (nreverse (gnus-split-references refstr))) (mapcar (lambda (x) (setq res (or (gnus-registry-fetch-group x) res)) - (when (or (gnus-registry-grep-in-list + (when (or (gnus-registry-grep-in-list res gnus-registry-unfollowed-groups) (gnus-registry-grep-in-list - res + res nnmail-split-fancy-with-parent-ignore-groups)) (setq res nil))) references)) @@ -385,13 +385,13 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." "gnus-registry-split-fancy-with-parent" subject (if res res "nil"))))) - gnus-registry-hashtb)))) - + gnus-registry-hashtb))))) + (debug res) (gnus-message 5 "gnus-registry-split-fancy-with-parent traced %s to group %s" refstr (if res res "nil")) - res))) + res)) (defun gnus-registry-register-message-ids () "Register the Message-ID of every article in the group" @@ -469,7 +469,8 @@ Update the entry cache if needed." (unless entree (setq entree (assq entry alist)) - (puthash id entree entry-cache)) + (when gnus-registry-entry-caching + (puthash id entree entry-cache))) entree) alist)) -- 2.25.1