From 58f894afa1e24b93368bf087fc27641eb211edb6 Mon Sep 17 00:00:00 2001 From: TSUCHIYA Masatoshi Date: Thu, 8 Nov 2012 14:10:26 +0900 Subject: [PATCH] * gnus-namazu.el (gnus-namazu/make-directory-table): Bind file-name-handler-alist to nil, in order to avoid that semicolons included in group names trigger tramp related handlers. --- contrib/ChangeLog | 6 ++++++ contrib/gnus-namazu.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/contrib/ChangeLog b/contrib/ChangeLog index 21d253ac7..6f8726210 100644 --- a/contrib/ChangeLog +++ b/contrib/ChangeLog @@ -1,3 +1,9 @@ +2012-11-08 TSUCHIYA Masatoshi + + * gnus-namazu.el (gnus-namazu/make-directory-table): Bind + file-name-handler-alist to nil, in order to avoid that semicolons + included in group names trigger tramp related handlers. + 2011-12-02 Katsumi Yamaoka * compface.el (uncompface): Update the header format of icon data for diff --git a/contrib/gnus-namazu.el b/contrib/gnus-namazu.el index 8ebe54cea..cb57c5e57 100644 --- a/contrib/gnus-namazu.el +++ b/contrib/gnus-namazu.el @@ -363,9 +363,10 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in (when (memq (car (setq method (gnus-find-method-for-group group))) '(nnml nnmh)) (when (file-directory-p - (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))))) (push (cons dir group) alist))) (dolist (pair gnus-namazu-remote-groups) (when (setq dir @@ -375,7 +376,8 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in (and (stringp (car pair)) (string-match (car pair) group) (substring group (match-end 0))))) - (setq dir (nnmail-group-pathname dir "/")) + (setq dir (let (file-name-handler-alist) + (nnmail-group-pathname dir "/"))) (push (cons (concat (cdr pair) ;; nnmail-group-pathname() on some ;; systems returns pathnames which -- 2.25.1