From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Albinus Newsgroups: gmane.emacs.bugs Subject: bug#6019: 23.3; Can't visit VMS file from Windows Emacs 23.3.1 Date: Wed, 31 Aug 2011 13:39:14 +0200 Message-ID: <8739gh6c9p.fsf@gmx.de> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1314790800 6810 80.91.229.12 (31 Aug 2011 11:40:00 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 31 Aug 2011 11:40:00 +0000 (UTC) Cc: 6019@debbugs.gnu.org To: Alan.Grunwald@tatasteel.com Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Aug 31 13:39:54 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Qyj97-0002aH-Kc for geb-bug-gnu-emacs@m.gmane.org; Wed, 31 Aug 2011 13:39:53 +0200 Original-Received: from localhost ([::1]:40603 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qyj97-0002V5-3f for geb-bug-gnu-emacs@m.gmane.org; Wed, 31 Aug 2011 07:39:53 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:56285) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qyj94-0002V0-UN for bug-gnu-emacs@gnu.org; Wed, 31 Aug 2011 07:39:51 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qyj93-0003lp-RP for bug-gnu-emacs@gnu.org; Wed, 31 Aug 2011 07:39:50 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:33727) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qyj93-0003ll-OW for bug-gnu-emacs@gnu.org; Wed, 31 Aug 2011 07:39:49 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1QyjCA-0002Py-4k; Wed, 31 Aug 2011 07:43:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: Michael Albinus Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 31 Aug 2011 11:43:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 6019 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: moreinfo Original-Received: via spool by 6019-submit@debbugs.gnu.org id=B6019.13147909549251 (code B ref 6019); Wed, 31 Aug 2011 11:43:02 +0000 Original-Received: (at 6019) by debbugs.gnu.org; 31 Aug 2011 11:42:34 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QyjBh-0002P9-OI for submit@debbugs.gnu.org; Wed, 31 Aug 2011 07:42:33 -0400 Original-Received: from mailout-de.gmx.net ([213.165.64.22]) by debbugs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1QyjBf-0002P0-5P for 6019@debbugs.gnu.org; Wed, 31 Aug 2011 07:42:32 -0400 Original-Received: (qmail invoked by alias); 31 Aug 2011 11:39:16 -0000 Original-Received: from p57BB99E8.dip0.t-ipconnect.de (EHLO detlef.gmx.de) [87.187.153.232] by mail.gmx.net (mp064) with SMTP; 31 Aug 2011 13:39:16 +0200 X-Authenticated: #3708877 X-Provags-ID: V01U2FsdGVkX1/4sv0lk1/4hqfqC6ivtxrCB9BLNdPFMRl5UD9gGu lYqltA9tgNdMnA User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) X-Y-GMX-Trusted: 0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Wed, 31 Aug 2011 07:43:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 1) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:50467 Archived-At: Alan.Grunwald@tatasteel.com writes: > Michael, Hi Alan, > Please find attached the contents of the *trace-output* and *ftp > grunwald@confid* buffers afetr I executed > > C-x C-f /grunwald@confid:login.com > > Best of luck :-) Thanks, it helps :-) The following call is guilty: 8 -> ange-ftp-fix-name-for-vms: name="\"/$DISK1!/GRUNWALD/\"" reverse=nil 8 <- ange-ftp-fix-name-for-vms: "[.\".$DISK1!.GRUNWALD]\"" This reminds me, that we have changed the quoting for file names a while ago. This results in surrounding a file name under Windows by '"', like "/$DISK1!/GRUNWALD/". Obviously, ange-ftp-fix-name-for-vms must be aware of it. Could you, please, check whether the following patch helps? --8<---------------cut here---------------start------------->8--- *** /home/albinus/src/emacs-23/lisp/net/ange-ftp.el.~100624~ 2011-08-31 13:30:47.905559520 +0200 --- /home/albinus/src/emacs-23/lisp/net/ange-ftp.el 2011-08-31 13:28:25.395350494 +0200 *************** *** 5017,5023 **** dir (and dir "/") file)) (error "name %s didn't match" name)) ! (let (drive dir file tmp) (if (string-match "\\`/[^:]+:/" name) (setq drive (substring name 1 (1- (match-end 0))) --- 5017,5027 ---- dir (and dir "/") file)) (error "name %s didn't match" name)) ! (let (drive dir file tmp quote) ! (if (string-match "\\`\".+\"\\'" name) ! (setq name (substring name 1 -1) ! quote "\"") ! (setq quote "")) (if (string-match "\\`/[^:]+:/" name) (setq drive (substring name 1 (1- (match-end 0))) *************** *** 5026,5034 **** (if tmp (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t))) (setq file (file-name-nondirectory name)) ! (concat drive (and dir (concat "[" (if drive nil ".") dir "]")) ! file))))) ;; (ange-ftp-fix-name-for-vms "/PUB$:/ANONYMOUS/SDSCPUB/NEXT/Readme.txt;1") ;; (ange-ftp-fix-name-for-vms "/PUB$:[ANONYMOUS.SDSCPUB.NEXT]Readme.txt;1" t) --- 5030,5038 ---- (if tmp (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t))) (setq file (file-name-nondirectory name)) ! (concat quote drive (and dir (concat "[" (if drive nil ".") dir "]")) ! file quote))))) ;; (ange-ftp-fix-name-for-vms "/PUB$:/ANONYMOUS/SDSCPUB/NEXT/Readme.txt;1") ;; (ange-ftp-fix-name-for-vms "/PUB$:[ANONYMOUS.SDSCPUB.NEXT]Readme.txt;1" t) --8<---------------cut here---------------end--------------->8--- > Alan Best regards, Michael.