From: kose <kose>
Date: Thu, 29 Jul 2004 04:16:56 +0000 (+0000)
Subject: * lisp/gnus-namazu.el (gnus-namazu/make-directory-table): Fix normalization
X-Git-Tag: t-gnus-6_17_4-quimby-~812
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=776985840f863a95b789eee32770d666c7651f6c;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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))