- (setq dir (nnmail-group-pathname
- (gnus-group-short-name group)
- (gnus-namazu/server-directory method))))
+ (setq dir (let (file-name-handler-alist)
+ (nnmail-group-pathname
+ (gnus-group-short-name group)
+ (gnus-namazu/server-directory method)))))
(and (stringp (car pair))
(string-match (car pair) group)
(substring group (match-end 0)))))
(and (stringp (car pair))
(string-match (car pair) group)
(substring group (match-end 0)))))
(push (cons (concat (cdr pair)
;; nnmail-group-pathname() on some
;; systems returns pathnames which
(push (cons (concat (cdr pair)
;; nnmail-group-pathname() on some
;; systems returns pathnames which
(defun gnus-namazu/update-p (directory &optional force)
"Return the DIRECTORY when the index undef the DIRECTORY should be updated."
(setq directory (file-name-as-directory (expand-file-name directory)))
(defun gnus-namazu/update-p (directory &optional force)
"Return the DIRECTORY when the index undef the DIRECTORY should be updated."
(setq directory (file-name-as-directory (expand-file-name directory)))
(if gnus-namazu/update-process
(error-message "%s" "Can not run two update processes simultaneously")
(and (or force
(if gnus-namazu/update-process
(error-message "%s" "Can not run two update processes simultaneously")
(and (or force