Re: Error in nnmail-group-pathname with TRAMP

--=-=-=
Content-Type: text/plain; charset=iso-2022-jp

>> On Fri, 15 Oct 2010 21:34:44 +0900
>> [email protected] (TSUCHIYA Masatoshi) said as follows:

>$BK\<AE*$K$O(B (nnmail-group-pathname "nndraft:drafts" "/") $B$H$$$&$h$&$J8F$S(B
>$BJ}$r$9$k$H!$(B(file-directory-p "/nndraft:drafts") $B$H$$$&8F$S=P$7$,H/@8$7(B
>$B$F!$(BTRAMP $B$N%U%!%$%kL>%O%s%I%i$r%-%C%/$7$F$7$^$&$,%(%i!<$G<:GT$9$k!$$H$$(B
>$B$&8=>]$H;W$o$l$^$9!%(B

nnmail-group-pathname $B$r8F$S=P$9$H$-$K!$$^$H$b$K(B remote directory $B$r;XDj(B
$B$7$F$d$k$3$H$K$7$F$_$^$7$?!%$^$"!$$3$l$O$3$l$GIT6q9g$r0z$-5/$3$7$=$&$J$N(B
$B$G$9$,!D!%(B

$BFC$K!$(Bwindows $B4D6-$G$NF0:nJs9p$r$*4j$$$7$^$9!%(B

-- 
$BEZ20(B $B2mL-(B ( TSUCHIYA Masatoshi )

--=-=-=
Content-Type: text/x-diff
Content-Disposition: inline

--- a/contrib/gnus-namazu.el
+++ b/contrib/gnus-namazu.el
@@ -377,12 +377,10 @@ 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 "/"))
-	       (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))))
+	       (setq dir (nnmail-group-pathname dir (cdr pair)))
+	       ;; nnmail-group-pathname() on some systems returns
+	       ;; pathnames which have drive letters at their top.
+	       (push (cons (substring dir (string-match "/" dir))
 			   group)
 		     alist)))))
        gnus-newsrc-hashtb)

--=-=-=--