From 776985840f863a95b789eee32770d666c7651f6c Mon Sep 17 00:00:00 2001 From: kose Date: Thu, 29 Jul 2004 04:16:56 +0000 Subject: [PATCH] * lisp/gnus-namazu.el (gnus-namazu/make-directory-table): Fix normalization of dir (remove drive letter). --- ChangeLog | 5 +++++ lisp/gnus-namazu.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 65481e0..a11237c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-07-29 KOSEKI Yoshinori + + * lisp/gnus-namazu.el (gnus-namazu/make-directory-table): Fix normalization + of dir (remove drive letter). + 2004-07-20 TAKAHASHI Kaoru * 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)) -- 1.7.10.4