* lisp/gnus-namazu.el (gnus-namazu/make-directory-table): Fix normalization

of dir (remove drive letter).

diff --git a/ChangeLog b/ChangeLog
index 65481e0..a11237c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-29  KOSEKI Yoshinori  <kose@meadowy.org>
+
+       * lisp/gnus-namazu.el (gnus-namazu/make-directory-table): Fix normalization
+       of dir (remove drive letter).
+
 2004-07-20  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * texi/ptexinfmt.el: Support @s.

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index ec638db..d4582ac 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -371,7 +371,8 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in
               (setq dir (nnmail-group-pathname
                          (substring group (match-end 0))
                          "/"))
-              (push (cons (concat (cdr pair) (substring dir 1)) group)
+              (push (cons (concat (cdr pair) 
+                  (substring dir (+ 1 (string-match "/" dir)))) group)
                     alist)))))
        gnus-newsrc-hashtb)
       (dolist (pair (nconc agent cache alist))