From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Alan.Grunwald@tatasteel.com 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:41:25 +0100 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1314794221 30399 80.91.229.12 (31 Aug 2011 12:37:01 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 31 Aug 2011 12:37:01 +0000 (UTC) Cc: 6019@debbugs.gnu.org To: Michael Albinus Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Aug 31 14:36:57 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 1Qyk2J-000459-M5 for geb-bug-gnu-emacs@m.gmane.org; Wed, 31 Aug 2011 14:36:56 +0200 Original-Received: from localhost ([::1]:53366 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qyk2I-0002kD-Tn for geb-bug-gnu-emacs@m.gmane.org; Wed, 31 Aug 2011 08:36:54 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:33688) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qyk2G-0002jc-Di for bug-gnu-emacs@gnu.org; Wed, 31 Aug 2011 08:36:53 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qyk2D-0008Rq-Tr for bug-gnu-emacs@gnu.org; Wed, 31 Aug 2011 08:36:52 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:57987) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qyk2D-0008Rd-SL for bug-gnu-emacs@gnu.org; Wed, 31 Aug 2011 08:36:49 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1Qyk5J-0006OV-Rr; Wed, 31 Aug 2011 08:40:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Alan.Grunwald@tatasteel.com 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 12:40:01 +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.131479437224542 (code B ref 6019); Wed, 31 Aug 2011 12:40:01 +0000 Original-Received: (at 6019) by debbugs.gnu.org; 31 Aug 2011 12:39:32 +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 1Qyk4q-0006Nm-7v for submit@debbugs.gnu.org; Wed, 31 Aug 2011 08:39:32 -0400 Original-Received: from eu1sys200aog110.obsmtp.com ([207.126.144.129]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Qyk4n-0006Ne-E8 for 6019@debbugs.gnu.org; Wed, 31 Aug 2011 08:39:30 -0400 Original-Received: from nlamvmg00.corusgroup.com ([212.1.8.6]) (using TLSv1) by eu1sys200aob110.postini.com ([207.126.147.11]) with SMTP ID DSNKTl4qv+59zN4IJiWmECPP69pHs55CKyi+@postini.com; Wed, 31 Aug 2011 12:36:16 UTC Original-Received: from gbrmmr01.rotherham.corusgroup.com (notesmailuk [145.8.104.68]) by nlamvmg00.corusgroup.com (Postfix) with ESMTP id C2F0F234E; Wed, 31 Aug 2011 14:36:14 +0200 (CEST) In-Reply-To: <8739gh6c9p.fsf@gmx.de> X-KeepSent: B44C74C0:D5ADF24E-802578FD:00458F16; name=$KeepSent; type=4 X-Mailer: Lotus Notes Release 7.0.2 September 26, 2006 X-Disclaimed: 59291 X-MIMETrack: CD-MIME by Router on GBRMMR01/Servers/CorusGroup at 31/08/2011 13:38:04,CD-MIME complete at 31/08/2011 13:38:04,Itemize by Router on GBRMMR01/Servers/CorusGroup at 31/08/2011 13:38:04 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Wed, 31 Aug 2011 08:40:01 -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:50468 Archived-At: Michael, > > 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=3D"\"/$DISK1!/GRUNWALD/\"" reverse= =3Dnil > 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--- > I haven't got access to a handy method to convert the changes listing above into a new file - could you send me a full ang-ftp.el please? Thanks, Alan **********************************************************************=20 This transmission is confidential and must not be used or disclosed by anyo= ne other than the intended recipient. Neither Tata Steel Europe Limited nor= any of its subsidiaries can accept any responsibility for any use or misus= e of the transmission by anyone. =20 For address and company registration details of certain entities within the= Tata Steel Europe group of companies, please visit http://www.tatasteeleu= rope.com/entities=20 ********************************************************************** = =