[gnus git] branch master updated: m0-5-156-g58f894a =1= * 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.

       via  58f894afa1e24b93368bf087fc27641eb211edb6 (commit)
      from  1b49ef0e2c49672d4d546ef32a6603577519f8d7 (commit)


- Log -----------------------------------------------------------------
commit 58f894afa1e24b93368bf087fc27641eb211edb6
Author: TSUCHIYA Masatoshi <[email protected]>
Date:   Thu Nov 8 14:10:26 2012 +0900

    * 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
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,9 @@
+2012-11-08  TSUCHIYA Masatoshi  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* 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
--- 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
+		    (setq dir (let (file-name-handler-alist)
+				(nnmail-group-pathname
 			       (gnus-group-short-name group)
-			       (gnus-namazu/server-directory method))))
+				 (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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 contrib/ChangeLog      |    6 ++++++
 contrib/gnus-namazu.el |   10 ++++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project