projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200502120211.
[elisp/gnus.git-]
/
lisp
/
gnus-namazu.el
diff --git
a/lisp/gnus-namazu.el
b/lisp/gnus-namazu.el
index
4579c76
..
081ba22
100644
(file)
--- a/
lisp/gnus-namazu.el
+++ b/
lisp/gnus-namazu.el
@@
-294,7
+294,8
@@
This means that the group \"nnimap+server:INBOX.group\" is placed in
(push (cons gnus-namazu/group-name-regexp
gnus-namazu-coding-system)
gnus-group-name-charset-group-alist))))
(push (cons gnus-namazu/group-name-regexp
gnus-namazu-coding-system)
gnus-group-name-charset-group-alist))))
- (gnus-namazu-update-all-indices))
+ (unless gnus-namazu-command-prefix
+ (gnus-namazu-update-all-indices)))
(defun gnus-namazu/server-directory (server)
"Return the top directory of the server SERVER."
(defun gnus-namazu/server-directory (server)
"Return the top directory of the server SERVER."
@@
-370,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))
"/"))
(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))
alist)))))
gnus-newsrc-hashtb)
(dolist (pair (nconc agent cache alist))