(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 <de_bb@arcor.de>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd623e9..9542f8a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 <de_bb@arcor.de>.
 
 2008-02-20  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index c3c8bdf..873ebb6 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -577,7 +577,7 @@ 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 (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