From 50fa79d1f27db20c812d6da2f982e1fb7834805c Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Tue, 26 Feb 2008 16:52:20 +0000 Subject: [PATCH] (gnus-registry-register-message-ids): Use `id' instead of making an extra function call. Don't add the current group to articles only when they have the group. Reported by David . --- lisp/ChangeLog | 7 +++++++ lisp/gnus-registry.el | 9 ++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 980c6e62b..bd623e991 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-02-26 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-register-message-ids): Use `id' + instead of making an extra function call. Don't add the current group + to articles only when they have the group. + Reported by David . + 2008-02-20 Katsumi Yamaoka * lpath.el: Fbind pgg-display-output-buffer for systems in which EasyPG diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index 4c2e77e4d..c3c8bdf6f 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -334,7 +334,6 @@ considered precious) will not be trimmed." (defun gnus-registry-trim (alist) "Trim alist to size, using gnus-registry-max-entries. -Also, drop all gnus-registry-ignored-groups matches. Any entries with extra data (marks, currently) are left alone." (if (null gnus-registry-max-entries) alist ; just return the alist @@ -360,7 +359,7 @@ Any entries with extra data (marks, currently) are left alone." gnus-registry-hashtb) (dolist (item alist) - (let ((key (nth 0 item))) + (let ((key (nth 0 item))) (if (gethash key precious) (push item precious-list) (push item junk-list)))) @@ -578,11 +577,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (unless (gnus-parameter-registry-ignore gnus-newsgroup-name) (dolist (article gnus-newsgroup-articles) (let ((id (gnus-registry-fetch-message-id-fast article))) - (unless (gnus-registry-fetch-group id) + (unless (member gnus-newsgroup-name (gnus-registry-fetch-group id)) (gnus-message 9 "Registry: Registering article %d with group %s" article gnus-newsgroup-name) - (gnus-registry-add-group - (gnus-registry-fetch-message-id-fast article) + (gnus-registry-add-group + id gnus-newsgroup-name (gnus-registry-fetch-simplified-message-subject-fast article) (gnus-registry-fetch-sender-fast article))))))) -- 2.25.1