X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-namazu.el;h=081ba22ba712a9779e8d89d795f47bfcd16ac431;hb=f702159a4d7cb8471a17884108880aa8d7961728;hp=d4582ac62702b4639e150240a306e0281ff45a7d;hpb=776985840f863a95b789eee32770d666c7651f6c;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index d4582ac..081ba22 100644
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -371,8 +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 (string-match "/" dir)))) 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))