(gnus-cache-generate-active): Fix bug in

replacement.  From Vagn Johansen <v@johansen.mail.dk> (tiny
change).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64369a0..ef16819 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,10 @@
-2003-08-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+2003-08-27  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-cache.el (gnus-cache-generate-active): Fix bug in
+       replacement.  From Vagn Johansen <v@johansen.mail.dk> (tiny
+       change).
+
+22003-08-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el: Don't use defvaralias.
        (gnus-treat-display-x-face): Warn if the obsolete variable

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 7e10353..d8bdd35 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -677,7 +677,7 @@ If LOW, update the lower bound instead."
       (gnus-message 5 "Generating the cache active file...")
       (setq gnus-cache-active-hashtb (gnus-make-hashtable 123)))
     (when (string-match "^\\(nn[^_]+\\)_" group)
-      (setq group (replace-match "\\1:" t t group)))
+      (setq group (replace-match "\\1:" t nil group)))
     ;; Separate articles from all other files and directories.
     (while files
       (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))