Changes committed gnus/lisp (ChangeLog gnus-registry.el)

Modified: ChangeLog 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 <[email protected]>.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1757 gnus/lisp/ChangeLog:7.1758
--- ChangeLog:7.1757	Sun Feb 24 16:39:37 2008
+++ ChangeLog	Tue Feb 26 17:52:20 2008
@@ -1,3 +1,10 @@
+2008-02-26  Teodor Zlatanov  <[email protected]>
+
+	* 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 <[email protected]>.
+
 2008-02-20  Katsumi Yamaoka  <[email protected]>
 
 	* lpath.el: Fbind pgg-display-output-buffer for systems in which EasyPG
Index: gnus-registry.el
diff -u gnus/lisp/gnus-registry.el:7.45 gnus/lisp/gnus-registry.el:7.46
--- gnus-registry.el:7.45	Sun Jan 20 06:23:57 2008
+++ gnus-registry.el	Tue Feb 26 17:52:20 2008
@@ -334,7 +334,6 @@
 
 (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 @@
        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 @@
   (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)))))))