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