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.  Use
`gnus-registry-fetch-groups' instead of `gnus-registry-fetch-group'.
Reported by David <[email protected]>.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1758 gnus/lisp/ChangeLog:7.1759
--- ChangeLog:7.1758	Tue Feb 26 17:52:20 2008
+++ ChangeLog	Tue Feb 26 19:16:38 2008
@@ -2,7 +2,8 @@
 
 	* 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.
+	to articles only when they have the group.  Use
+	`gnus-registry-fetch-groups' instead of `gnus-registry-fetch-group'.
 	Reported by David <[email protected]>.
 
 2008-02-20  Katsumi Yamaoka  <[email protected]>
Index: gnus-registry.el
diff -u gnus/lisp/gnus-registry.el:7.46 gnus/lisp/gnus-registry.el:7.47
--- gnus-registry.el:7.46	Tue Feb 26 17:52:20 2008
+++ gnus-registry.el	Tue Feb 26 19:16:38 2008
@@ -577,7 +577,7 @@
   (unless (gnus-parameter-registry-ignore gnus-newsgroup-name)
     (dolist (article gnus-newsgroup-articles)
       (let ((id (gnus-registry-fetch-message-id-fast article)))
-	(unless (member gnus-newsgroup-name (gnus-registry-fetch-group id))
+	(unless (member gnus-newsgroup-name (gnus-registry-fetch-groups id))
 	  (gnus-message 9 "Registry: Registering article %d with group %s"
 			article gnus-newsgroup-name)
 	  (gnus-registry-add-group