(gnus-namazu/make-directory-table): Treat drive letters when

calcurating pathnames of remote groups.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index a7e8bda..0db5f62 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-30  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+       * gnus-namazu.el (gnus-namazu/make-directory-table): Treat drive
+       letters when calcurating pathnames of remote groups.
+
 2004-05-27  Simon Josefsson  <jas@extundo.com>
 
        * starttls.el: Moved to ../lisp/.

diff --git a/contrib/gnus-namazu.el b/contrib/gnus-namazu.el
index bd8a94e..40c35a1 100644 (file)
--- a/contrib/gnus-namazu.el
+++ b/contrib/gnus-namazu.el
@@ -371,7 +371,12 @@ 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)
+                                  ;; nnmail-group-pathname() on some
+                                  ;; systems returns pathnames which
+                                  ;; have drive letters at their top.
+                                  (substring dir (1+ (string-match "/" dir))))
+                          group)
                     alist)))))
        gnus-newsrc-hashtb)
       (dolist (pair (nconc agent cache alist))