bug#13636: 24.3.50; tramp+ftp broken

[Michael Albinus <michael.albinus@gmx.de>]

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> Hi Michael,

Hi Thierry,

>> What happens, if you move your ~/.netrc away (temporarily)?
> It is working when I remove .netrc
> (file-remote-p "/ftp:mafreebox.freebox.fr:")
> => "/ftp:mafreebox.freebox.fr:"
>
> Here the entry in .netrc:
>
> machine mafreebox.freebox.fr login freebox password xxxxx

Finally, it looks like this error has been introduced with revno
#111057. Tramp/ange-ftp is just a victim, the same error might happen in
other constellations as well.

The following patch cures it for me:

--8<---------------cut here---------------start------------->8---
*** /usr/local/src/emacs/lisp/vc/vc-hooks.el.~111682~	2013-02-06 21:11:32.205313196 +0100
--- /usr/local/src/emacs/lisp/vc/vc-hooks.el	2013-02-06 20:54:51.324349951 +0100
***************
*** 858,865 ****
  	  (set (make-local-variable 'backup-inhibited) t))
  	;; Let the backend setup any buffer-local things he needs.
  	(vc-call-backend backend 'find-file-hook))
!        ((let* ((truename (expand-file-name buffer-file-truename))
! 	       (link-type (and (not (equal buffer-file-name truename))
  			       (vc-backend truename))))
  	  (cond ((not link-type) nil)	;Nothing to do.
  		((eq vc-follow-symlinks nil)
--- 858,867 ----
  	  (set (make-local-variable 'backup-inhibited) t))
  	;; Let the backend setup any buffer-local things he needs.
  	(vc-call-backend backend 'find-file-hook))
!        ((let* ((truename (and buffer-file-truename
! 			      (expand-file-name buffer-file-truename)))
! 	       (link-type (and truename
! 			       (not (equal buffer-file-name truename))
  			       (vc-backend truename))))
  	  (cond ((not link-type) nil)	;Nothing to do.
  		((eq vc-follow-symlinks nil)
--8<---------------cut here---------------end--------------->8---

Could you, please, check?

Best regards, Michael.