* 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.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 21d253a..6f87262 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,9 @@
+2012-11-08  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+       * 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  <yamaoka@jpl.org>
 
        * compface.el (uncompface): Update the header format of icon data for
 2011-12-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * compface.el (uncompface): Update the header format of icon data for

diff --git a/contrib/gnus-namazu.el b/contrib/gnus-namazu.el
index 8ebe54c..cb57c5e 100644 (file)
--- 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
           (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
               (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)))))
                             (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
               (push (cons (concat (cdr pair)
                                   ;; nnmail-group-pathname() on some
                                   ;; systems returns pathnames which