From Michael Albinus <Michael.Albinus@alcatel.de>.

(ange-ftp-expand-symlink): If result of
expansion is a symlink, expand again.
(ange-ftp-file-symlink-p): Return target of symlink literally.

2 files changed, 16 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55563864e85..0b77e1d148d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-04-13  Kai Gro,A_(Bjohann  <kai.grossjohann@gmx.net>
+        From Michael Albinus <Michael.Albinus@alcatel.de>.
+
+        * net/ange-ftp.el (ange-ftp-expand-symlink): If result of
+        expansion is a symlink, expand again.
+        (ange-ftp-file-symlink-p): Return target of symlink literally.
+
 2003-04-13  Masatake YAMATO  <jet@gyve.org>
 
         * bindings.el (toplevel): Don't change the face
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 58ffe0b27d5..ca5cb193bde 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3356,9 +3356,14 @@ system TYPE.")
       (ange-ftp-real-insert-file-contents filename visit beg end replace))))
 
 (defun ange-ftp-expand-symlink (file dir)
-  (if (file-name-absolute-p file)
-      (ange-ftp-replace-name-component dir file)
-    (expand-file-name file dir)))
+  (let ((res (if (file-name-absolute-p file)
+                 (ange-ftp-replace-name-component dir file)
+               (expand-file-name file dir))))
+    (if (file-symlink-p res)
+        (ange-ftp-expand-symlink
+         (ange-ftp-get-file-entry res)
+         (file-name-directory (directory-file-name res)))
+      res)))
 
 (defun ange-ftp-file-symlink-p (file)
   ;; call ange-ftp-expand-file-name rather than the normal
@@ -3370,11 +3375,7 @@ system TYPE.")
              (gethash
               (ange-ftp-get-file-part file)
               (ange-ftp-get-files (file-name-directory file)))))
-        (if (stringp file-ent)
-            (if (file-name-absolute-p file-ent)
-                (ange-ftp-replace-name-component
-                 (file-name-directory file) file-ent)
-              file-ent)))
+        (and (stringp file-ent) file-ent))
     (ange-ftp-real-file-symlink-p file)))
 
 (defun ange-ftp-file-exists-p (name)