Tramp: sync with upstream version 2.0.39.

8 files changed, 913 insertions, 399 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bb5012c332..d112071c5be 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,102 @@
+2004-02-29  Kai Grossjohann  <kai.grossjohann@gmx.net>
+        Version 2.0.39 of Tramp released.
+
+        * net/tramp.el (tramp-handle-file-local-copy)
+        (tramp-handle-write-region, tramp-open-connection-rsh): Variable
+        name typo.  Small change.  From Patrick Tullmann
+        <tullmann@flux.utah.edu>.
+        (tramp-process-connection-type): New variable.
+        (tramp-maybe-open-connection): Use it.
+        (tramp-do-copy-or-rename-via-buffer): Handle KEEP-DATE arg, if
+        possible.
+        (tramp-touch): Set last-modified time of a remote file.
+        (tramp-handle-write-region): Say which function is used when
+        encoding.
+
+        
+2004-02-29  Michael Albinus  <Michael.Albinus@alcatel.de>
+
+        * net/tramp-smb.el (tramp-smb-handle-file-writable-p): Handle the
+        case of non-existing filename, too.  Reported by Christoph Bauer
+        <c_bauer@informatik.uni-kl.de>.
+        (tramp-smb-get-file-entries): The directory in question should
+        have permissions "drwxrwxrwx".  Just virtual, because we don't
+        know the real permissions.  Don't we know?
+        (tramp-smb-prompt): Add virtual prompt from listing shares, too.
+        (tramp-smb-errors): Add "NT_STATUS_ACCOUNT_LOCKED_OUT".
+        (tramp-smb-wait-for-output): Optimize algorithm getting pending
+        output.  If it was received chunkwise, there have been problems.
+        Remove the "prompt not found" error message; it is obvious.
+        Simplify algorithm.
+        (tramp-smb-process-running): Removed.  Since we acknowledge the
+        virtual prompt for shares, there's no need for distinction of
+        reading shares (process ends afterwards) and interactive mode of
+        smblient.
+        (tramp-smb-open-connection): Setting process sentinel removed.
+        (tramp-smb-errors): Add "NT_STATUS_WRONG_PASSWORD" and
+        "NT_STATUS_NETWORK_ACCESS_DENIED".
+        (tramp-smb-maybe-open-connection): Set `process-connection-type'
+        to 'pty.  Suggested by Piet van Oostrum <piet@cs.uu.nl>.
+        (top-level): Setting default value in `tramp-default-method-alist'
+        corrected.  Order of USER and HOST have been wrong.  Nobody
+        claimed for months ...
+        (tramp-smb-maybe-open-connection): Use
+        `tramp-process-connection-type'.
+        (tramp-smb-open-connection): Clear password cache if login has
+        failed.
+
+        * net/tramp.el (tramp-completion-mode) Don't check for 'xemacs but
+        `tramp-unified-filenames'.
+        (tramp-completion-mode): Make test for XEmacs explicitely.
+        `event-to-character' can exists in Emacs packages too.  Reported
+        by Matt Swift <swift@alum.mit.edu>.
+        (tramp-buffer-name): Buffer name must contain the user if exists.
+        Reported by Adrian Phillips <a.phillips@met.no>.
+        (tramp-do-copy-or-rename-file): Handle out-of-band methods.  Call
+        `tramp-do-copy-or-rename-file-out-of-band' this case.
+        (tramp-do-copy-or-rename-file-out-of-band): Renamed from
+        `tramp-do-copy-or-rename-file-one-local', because it handles also
+        the case both files use the same out-of-band method.
+        Implementation added.
+        (tramp-handle-file-local-copy, tramp-handle-write-region):
+        Out-of-band handling removed.  `copy-file' called instead, which
+        calls `tramp-do-copy-or-rename-file-out-of-band'.
+        (tramp-action-password): Check for out-of-band method removed.
+        This function is used for 'login-program.
+        (tramp-post-connection): Use `tramp-method-out-of-band-p' when
+        appropriate.
+        (tramp-completion-function-alist-ssh): Add `tramp-parse-shostkeys'
+        and `tramp-parse-sknownhosts'.
+        (tramp-completion-function-alist): It's a defvar now, because we
+        want to apply the optimized `tramp-set-completion-function'
+        instead of a static list.
+        (tramp-set-completion-function): Implementation tuned.  Avoid
+        double entries, and entries where the function or the
+        file/directory doesn't exist.
+        (tramp-parse-shostkeys, tramp-parse-sknownhosts): New functions
+        for SSH2.
+        (tramp-file-name-handler-alist): Add `dired-compress-file' entry.
+        (tramp-handle-dired-compress-file): New function.
+        (tramp-async-proc): New variable.
+        (tramp-handle-shell-command): Adding asynchronous processes.  They
+        are far from being perfect, but it works at least for
+        `find-grep-dired' and `find-name-dired' in Emacs 21.4.
+        (top-level): Require password.el if visible.  Should be mandatory
+        once No Gnus has found its way into (X)Emacs.
+        (tramp-read-passwd): Invoke `password-read' if available,
+        `read-passwd' otherwise. `ange-ftp-read-passwd' isn't used as
+        fallback any longer.
+        (tramp-clear-passwd): New function.
+        (tramp-process-actions, tramp-process-multi-actions): Clear
+        password cache if login has failed.
+
+        * net/tramp-ftp.el (Commentary): Remove pointer to EFS.  It has
+        its own module.
+        (tramp-ftp-file-name-handler): Unset `ange-ftp-ftp-name-arg' and
+        `ange-ftp-ftp-name-res'.  There could be incorrect values from
+        previous calls in case the "ftp" method is used in the Tramp file
+        name.  Reported by Katsumi Yamaoka <yamaoka@jpl.org>.
+
 2004-02-28  Richard M. Stallman  <rms@gnu.org>
 
         * term.el (term-mouse-paste): Call mouse-set-point.
diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index c81e49bf77c..3be891a49f8 100644
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -1,6 +1,6 @@
 ;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP and EFS -*- coding: iso-8859-1; -*-
 
-;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <Michael.Albinus@alcatel.de>
 ;; Keywords: comm, processes
@@ -24,8 +24,8 @@
 
 ;;; Commentary:
 
-;; Convenience functions for calling Ange-FTP (and maybe EFS, later on)
-;; from Tramp.  Most of them are displaced from tramp.el.
+;; Convenience functions for calling Ange-FTP from Tramp.
+;; Most of them are displaced from tramp.el.
 
 ;;; Code:
 
@@ -98,9 +98,16 @@ pass to the OPERATION."
            (list (nth 0 tramp-file-name-structure)
                  (nth 3 tramp-file-name-structure)
                  (nth 2 tramp-file-name-structure)
-                 (nth 4 tramp-file-name-structure))))
+                 (nth 4 tramp-file-name-structure)))
+          ;; ange-ftp uses `ange-ftp-ftp-name-arg' and `ange-ftp-ftp-name-res'
+          ;; for optimization in `ange-ftp-ftp-name'. If Tramp wasn't active,
+          ;; there could be incorrect values from previous calls in case the
+          ;; "ftp" method is used in the Tramp file name. So we unset
+          ;; those values.
+          (ange-ftp-ftp-name-arg "")
+          (ange-ftp-ftp-name-res nil))
       (cond
-       ;; If argument is a symlink, 'file-directory-p` and 'file-exists-p`
+       ;; If argument is a symlink, `file-directory-p' and `file-exists-p'
        ;; call the traversed file recursively. So we cannot disable the
        ;; file-name-handler this case.
        ((memq operation '(file-directory-p file-exists-p))
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 95f3fb330c4..ab6ad3310c1 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1,6 +1,6 @@
 ;;; tramp-smb.el --- Tramp access functions for SMB servers -*- coding: iso-8859-1; -*-
 
-;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <Michael.Albinus@alcatel.de>
 ;; Keywords: comm, processes
@@ -50,7 +50,7 @@
 ;; Add a default for `tramp-default-method-alist'. Rule: If there is
 ;; a domain in USER, it must be the SMB method.
 (add-to-list 'tramp-default-method-alist
-             (list "%" "" tramp-smb-method))
+             (list "" "%" tramp-smb-method))
 
 ;; Add completion function for SMB method.
 (tramp-set-completion-function
@@ -62,7 +62,7 @@
   :group 'tramp
   :type 'string)
 
-(defconst tramp-smb-prompt "^smb: \\S-+> "
+(defconst tramp-smb-prompt "^smb: \\S-+> \\|^\\s-+Server\\s-+Comment$"
   "Regexp used as prompt in smbclient.")
 
 (defconst tramp-smb-errors
@@ -71,8 +71,8 @@
    '(; Connection error
      "Connection to \\S-+ failed"
      ; Samba
-     "ERRSRV"
      "ERRDOS"
+     "ERRSRV"
      "ERRbadfile"
      "ERRbadpw"
      "ERRfilexists"
@@ -81,13 +81,16 @@
      "ERRnosuchshare"
      ; Windows NT 4.0, Windows 5.0 (Windows 2000), Windows 5.1 (Windows XP)
      "NT_STATUS_ACCESS_DENIED"
+     "NT_STATUS_ACCOUNT_LOCKED_OUT"
      "NT_STATUS_BAD_NETWORK_NAME"
      "NT_STATUS_CANNOT_DELETE"
      "NT_STATUS_LOGON_FAILURE"
+     "NT_STATUS_NETWORK_ACCESS_DENIED"
      "NT_STATUS_NO_SUCH_FILE"
      "NT_STATUS_OBJECT_NAME_INVALID"
      "NT_STATUS_OBJECT_NAME_NOT_FOUND"
-     "NT_STATUS_SHARING_VIOLATION")
+     "NT_STATUS_SHARING_VIOLATION"
+     "NT_STATUS_WRONG_PASSWORD")
    "\\|")
   "Regexp for possible error strings of SMB servers.
 Used instead of analyzing error codes of commands.")
@@ -102,12 +105,6 @@ This variable is local to each buffer.")
 This variable is local to each buffer.")
 (make-variable-buffer-local 'tramp-smb-share-cache)
 
-(defvar tramp-smb-process-running nil
-  "Flag whether a corresponding process is still running.
-Will be changed by corresponding `process-sentinel'.
-This variable is local to each buffer.")
-(make-variable-buffer-local 'tramp-smb-process-running)
-
 (defvar tramp-smb-inodes nil
   "Keeps virtual inodes numbers for SMB files.")
 
@@ -452,19 +449,23 @@ KEEP-DATE is not handled in case NEWNAME resides on an SMB server."
 
 (defun tramp-smb-handle-file-writable-p (filename)
   "Like `file-writable-p' for tramp files."
-;  (with-parsed-tramp-file-name filename nil
-  (let  (user host localname)
-    (with-parsed-tramp-file-name filename l
-      (setq user l-user host l-host localname l-localname))
-    (save-excursion
-      (let* ((share (tramp-smb-get-share localname))
-             (file (tramp-smb-get-localname localname nil))
-             (entries (tramp-smb-get-file-entries user host share file))
-             (entry (and entries
-                         (assoc (file-name-nondirectory file) entries))))
-        (and entry
-             (string-match "w" (nth 1 entry))
-             t)))))
+  (if (not (file-exists-p filename))
+      (let ((dir (file-name-directory filename)))
+        (and (file-exists-p dir)
+             (file-writable-p dir)))
+;    (with-parsed-tramp-file-name filename nil
+    (let (user host localname)
+      (with-parsed-tramp-file-name filename l
+        (setq user l-user host l-host localname l-localname))
+      (save-excursion
+        (let* ((share (tramp-smb-get-share localname))
+               (file (tramp-smb-get-localname localname nil))
+               (entries (tramp-smb-get-file-entries user host share file))
+               (entry (and entries
+                           (assoc (file-name-nondirectory file) entries))))
+          (and share entry
+               (string-match "w" (nth 1 entry))
+               t))))))
 
 (defun tramp-smb-handle-insert-directory
   (filename switches &optional wildcard full-directory-p)
@@ -733,9 +734,12 @@ Result is a list of (LOCALNAME MODE SIZE MONTH DAY TIME YEAR)."
             ;; Cache share entries
             (setq tramp-smb-share-cache res)))
 
-
         ;; Add directory itself
-        (add-to-list 'res '("" "dr-xr-xr-x" 0 (0 0)))
+        (add-to-list 'res '("" "drwxrwxrwx" 0 (0 0)))
+
+        ;; There's a very strange error (debugged with XEmacs 21.4.14)
+        ;; If there's no short delay, it returns nil.  No idea about
+        (when (featurep 'xemacs) (sleep-for 0.01))
 
         ;; Check for matching entries
         (delq nil (mapcar
@@ -913,7 +917,8 @@ there has been an error message from smbclient."
   "Maybe open a connection to HOST, logging in as USER, using `tramp-smb-program'.
 Does not do anything if a connection is already open, but re-opens the
 connection if a previous connection has died for some reason."
-  (let ((p (get-buffer-process
+  (let ((process-connection-type tramp-process-connection-type)
+        (p (get-buffer-process
             (tramp-get-buffer nil tramp-smb-method user host))))
     (save-excursion
       (set-buffer (tramp-get-buffer nil tramp-smb-method user host))
@@ -987,11 +992,7 @@ Domain names in USER and port numbers in HOST are acknowledged."
         (tramp-message 9 "Started process %s" (process-command p))
         (process-kill-without-query p)
         (set-buffer buffer)
-        (set-process-sentinel
-         p (lambda (proc str) (setq tramp-smb-process-running nil)))
-        ; If no share is given, the process will terminate
-        (setq tramp-smb-process-running share
-              tramp-smb-share share)
+        (setq tramp-smb-share share)
 
         ; send password
         (when real-user
@@ -1000,54 +1001,44 @@ Domain names in USER and port numbers in HOST are acknowledged."
             (tramp-enter-password p pw-prompt)))
 
         (unless (tramp-smb-wait-for-output user host)
+          (tramp-clear-passwd user host)
           (error "Cannot open connection //%s@%s/%s"
                  user host (or share "")))))))
 
 ;; We don't use timeouts.  If needed, the caller shall wrap around.
 (defun tramp-smb-wait-for-output (user host)
   "Wait for output from smbclient command.
-Sets position to begin of buffer.
 Returns nil if an error message has appeared."
-  (save-excursion
-    (let ((proc (get-buffer-process (current-buffer)))
-          (found (progn (goto-char (point-max))
-                        (beginning-of-line)
-                        (looking-at tramp-smb-prompt)))
-          err)
-      (save-match-data
-        ;; Algorithm: get waiting output.  See if last line contains
-        ;; tramp-smb-prompt sentinel, or process has exited.
-        ;; If not, wait a bit and again get waiting output.
-        (while (and (not found) tramp-smb-process-running)
-          (accept-process-output proc)
-          (goto-char (point-max))
-          (beginning-of-line)
-          (setq found (looking-at tramp-smb-prompt)))
-
-        ;; There might be pending output.  If tramp-smb-prompt sentinel
-        ;; hasn't been found, the process has died already.  We should
-        ;; give it a chance.
-        (when (not found) (accept-process-output nil 1))
-
-        ;; Search for errors.
-        (goto-char (point-min))
-        (setq err (re-search-forward tramp-smb-errors nil t)))
-
-      ;; Add output to debug buffer if appropriate.
-      (when tramp-debug-buffer
-        (append-to-buffer
-         (tramp-get-debug-buffer nil tramp-smb-method user host)
-         (point-min) (point-max))
-        (when (and (not found) tramp-smb-process-running)
-          (save-excursion
-            (set-buffer
-             (tramp-get-debug-buffer nil tramp-smb-method user host))
-            (goto-char (point-max))
-            (insert (format "[[Remote prompt `%s' not found]]\n"
-                            tramp-smb-prompt)))))
+  (let ((proc (get-buffer-process (current-buffer)))
+        (found (progn (goto-char (point-min))
+                      (re-search-forward tramp-smb-prompt nil t)))
+        (err   (progn (goto-char (point-min))
+                      (re-search-forward tramp-smb-errors nil t))))
+
+    ;; Algorithm: get waiting output.  See if last line contains
+    ;; tramp-smb-prompt sentinel or tramp-smb-errors strings.
+    ;; If not, wait a bit and again get waiting output.
+    (while (and (not found) (not err))
+
+      ;; Accept pending output.
+      (accept-process-output proc)
+
+      ;; Search for prompt.
       (goto-char (point-min))
-      ;; Return value is whether no error message has appeared.
-      (not err))))
+      (setq found (re-search-forward tramp-smb-prompt nil t))
+
+      ;; Search for errors.
+      (goto-char (point-min))
+      (setq err (re-search-forward tramp-smb-errors nil t)))
+
+    ;; Add output to debug buffer if appropriate.
+    (when tramp-debug-buffer
+      (append-to-buffer
+       (tramp-get-debug-buffer nil tramp-smb-method user host)
+       (point-min) (point-max)))
+
+    ;; Return value is whether no error message has appeared.
+    (not err)))
 
 
 ;; Snarfed code from time-date.el and parse-time.el
@@ -1125,8 +1116,6 @@ Return the difference in the format of a time value."
 ;; * Provide a local smb.conf. The default one might not be readable.
 ;; * Error handling in case password is wrong.
 ;; * Read password from "~/.netrc".
-;; * Use different buffers for different shares.  By this, the password
-;;   won't be requested again when changing shares on the same host.
 ;; * Return more comprehensive file permission string.  Think whether it is
 ;;   possible to implement `set-file-modes'.
 ;; * Handle WILDCARD and FULL-DIRECTORY-P in
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 949d76364fc..cd6ed337927 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1,7 +1,7 @@
 ;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
 ;;; tramp.el --- Transparent Remote Access, Multiple Protocol
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
 
 ;; Author: kai.grossjohann@gmx.net
 ;; Keywords: comm, processes
@@ -72,6 +72,12 @@
 
 (require 'timer)
 (require 'format-spec)                  ;from Gnus 5.8, also in tar ball
+;; As long as password.el is not part of (X)Emacs, it shouldn't
+;; be mandatory
+(if (featurep 'xemacs)
+    (load "password" 'noerror)
+  (require 'password nil 'noerror))     ;from No Gnus, also in tar ball
+
 ;; The explicit check is not necessary in Emacs, which provides the
 ;; feature even if implemented in C, but it appears to be necessary
 ;; in XEmacs.
@@ -628,14 +634,18 @@ See `tramp-methods' for a list of possibilities for METHOD."
 ;; Default values for non-Unices seeked
 (defconst tramp-completion-function-alist-ssh
   (unless (memq system-type '(windows-nt))
-    '((tramp-parse-rhosts  "/etc/hosts.equiv")
-      (tramp-parse-rhosts  "/etc/shosts.equiv")
-      (tramp-parse-shosts  "/etc/ssh_known_hosts")
-      (tramp-parse-sconfig "/etc/ssh_config")
-      (tramp-parse-rhosts  "~/.rhosts")
-      (tramp-parse-rhosts  "~/.shosts")
-      (tramp-parse-shosts  "~/.ssh/known_hosts")
-      (tramp-parse-sconfig "~/.ssh/config")))
+    '((tramp-parse-rhosts      "/etc/hosts.equiv")
+      (tramp-parse-rhosts      "/etc/shosts.equiv")
+      (tramp-parse-shosts      "/etc/ssh_known_hosts")
+      (tramp-parse-sconfig     "/etc/ssh_config")
+      (tramp-parse-shostkeys   "/etc/ssh2/hostkeys")
+      (tramp-parse-sknownhosts "/etc/ssh2/knownhosts")
+      (tramp-parse-rhosts      "~/.rhosts")
+      (tramp-parse-rhosts      "~/.shosts")
+      (tramp-parse-shosts      "~/.ssh/known_hosts")
+      (tramp-parse-sconfig     "~/.ssh/config")
+      (tramp-parse-shostkeys   "~/.ssh2/hostkeys")
+      (tramp-parse-sknownhosts "~/.ssh2/knownhosts")))
   "Default list of (FUNCTION FILE) pairs to be examined for ssh methods.")
 
 ;; Default values for non-Unices seeked
@@ -650,53 +660,79 @@ See `tramp-methods' for a list of possibilities for METHOD."
     '((tramp-parse-passwd "/etc/passwd")))
   "Default list of (FUNCTION FILE) pairs to be examined for su methods.")
 
-(defcustom tramp-completion-function-alist
-  (list (cons "rcp"      tramp-completion-function-alist-rsh)
-        (cons "scp"      tramp-completion-function-alist-ssh)
-        (cons "scp1"     tramp-completion-function-alist-ssh)
-        (cons "scp2"     tramp-completion-function-alist-ssh)
-        (cons "scp1_old" tramp-completion-function-alist-ssh)
-        (cons "scp2_old" tramp-completion-function-alist-ssh)
-        (cons "rsync"    tramp-completion-function-alist-rsh)
-        (cons "remcp"    tramp-completion-function-alist-rsh)
-        (cons "rsh"      tramp-completion-function-alist-rsh)
-        (cons "ssh"      tramp-completion-function-alist-ssh)
-        (cons "ssh1"     tramp-completion-function-alist-ssh)
-        (cons "ssh2"     tramp-completion-function-alist-ssh)
-        (cons "ssh1_old" tramp-completion-function-alist-ssh)
-        (cons "ssh2_old" tramp-completion-function-alist-ssh)
-        (cons "remsh"    tramp-completion-function-alist-rsh)
-        (cons "telnet"   tramp-completion-function-alist-telnet)
-        (cons "su"       tramp-completion-function-alist-su)
-        (cons "sudo"     tramp-completion-function-alist-su)
-        (cons "multi"    nil)
-        (cons "scpx"     tramp-completion-function-alist-ssh)
-        (cons "sshx"     tramp-completion-function-alist-ssh)
-        (cons "krlogin"  tramp-completion-function-alist-rsh)
-        (cons "plink"    tramp-completion-function-alist-ssh)
-        (cons "plink1"   tramp-completion-function-alist-ssh)
-        (cons "pscp"     tramp-completion-function-alist-ssh)
-        (cons "fcp"      tramp-completion-function-alist-ssh)
-     )
+(defvar tramp-completion-function-alist nil
   "*Alist of methods for remote files.
 This is a list of entries of the form (NAME PAIR1 PAIR2 ...).
 Each NAME stands for a remote access method.  Each PAIR is of the form
 \(FUNCTION FILE).  FUNCTION is responsible to extract user names and host
 names from FILE for completion.  The following predefined FUNCTIONs exists:
 
- * `tramp-parse-rhosts'  for \"~/.rhosts\" like files,
- * `tramp-parse-shosts'  for \"~/.ssh/known_hosts\" like files,
- * `tramp-parse-sconfig' for \"~/.ssh/config\" like files,
- * `tramp-parse-hosts'   for \"/etc/hosts\" like files, and
- * `tramp-parse-passwd'  for \"/etc/passwd\" like files.
- * `tramp-parse-netrc'   for \"~/.netrc\" like files.
-
-FUNCTION can also see a customer defined function.  For more details see
-the info pages."
-  :group 'tramp
-  :type '(repeat
-          (cons string
-                (choice (const nil) (repeat (list function file))))))
+ * `tramp-parse-rhosts'      for \"~/.rhosts\" like files,
+ * `tramp-parse-shosts'      for \"~/.ssh/known_hosts\" like files,
+ * `tramp-parse-sconfig'     for \"~/.ssh/config\" like files,
+ * `tramp-parse-shostkeys'   for \"~/.ssh2/hostkeys/*\" like files,
+ * `tramp-parse-sknownhosts' for \"~/.ssh2/knownhosts/*\" like files,
+ * `tramp-parse-hosts'       for \"/etc/hosts\" like files,
+ * `tramp-parse-passwd'      for \"/etc/passwd\" like files.
+ * `tramp-parse-netrc'       for \"~/.netrc\" like files.
+
+FUNCTION can also be a customer defined function.  For more details see
+the info pages.")
+
+(eval-after-load "tramp"
+  '(progn
+     (tramp-set-completion-function
+      "rcp" tramp-completion-function-alist-rsh)
+     (tramp-set-completion-function
+      "scp" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "scp1" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "scp2" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "scp1_old" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "scp2_old" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "rsync" tramp-completion-function-alist-rsh)
+     (tramp-set-completion-function
+      "remcp" tramp-completion-function-alist-rsh)
+     (tramp-set-completion-function
+      "rsh" tramp-completion-function-alist-rsh)
+     (tramp-set-completion-function
+      "ssh" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "ssh1" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "ssh2" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "ssh1_old" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "ssh2_old" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "remsh" tramp-completion-function-alist-rsh)
+     (tramp-set-completion-function
+      "telnet" tramp-completion-function-alist-telnet)
+     (tramp-set-completion-function
+      "su" tramp-completion-function-alist-su)
+     (tramp-set-completion-function
+      "sudo" tramp-completion-function-alist-su)
+     (tramp-set-completion-function
+      "multi" nil)
+     (tramp-set-completion-function 
+      "scpx" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "sshx" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "krlogin" tramp-completion-function-alist-rsh)
+     (tramp-set-completion-function
+      "plink" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "plink1" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "pscp" tramp-completion-function-alist-ssh)
+     (tramp-set-completion-function
+      "fcp" tramp-completion-function-alist-ssh)))
 
 (defcustom tramp-rsh-end-of-line "\n"
   "*String used for end of line in rsh connections.
@@ -1267,6 +1303,17 @@ this variable to be set as well."
   :group 'tramp
   :type '(choice (const nil) integer))
 
+;; Logging in to a remote host normally requires obtaining a pty.  But
+;; Emacs on MacOS X has process-connection-type set to nil by default,
+;; so on those systems Tramp doesn't obtain a pty.  Here, we allow
+;; for an override of the system default.
+(defcustom tramp-process-connection-type t
+  "Overrides `process-connection-type' for connections from Tramp.
+Tramp binds process-connection-type to the value given here before
+opening a connection to a remote host."
+  :group 'tramp
+  :type '(choice (const nil) (const t) (const pty)))
+
 ;;; Internal Variables:
 
 (defvar tramp-buffer-file-attributes nil
@@ -1638,6 +1685,7 @@ on the FILENAME argument, even if VISIT was a string.")
     (insert-file-contents . tramp-handle-insert-file-contents)
     (write-region . tramp-handle-write-region)
     (unhandled-file-name-directory . tramp-handle-unhandled-file-name-directory)
+    (dired-compress-file . tramp-handle-dired-compress-file)
     (dired-call-process . tramp-handle-dired-call-process)
     (dired-recursive-delete-directory
      . tramp-handle-dired-recursive-delete-directory)
@@ -1761,15 +1809,30 @@ Example:
      '((tramp-parse-sconfig \"/etc/ssh_config\")
        (tramp-parse-sconfig \"~/.ssh/config\")))"
 
-  (let ((v (cdr (assoc method tramp-completion-function-alist))))
-    (if v (setcdr v function-list)
+  (let ((r function-list)
+        (v function-list))
+    (setq tramp-completion-function-alist
+          (delete (assoc method tramp-completion-function-alist)
+                  tramp-completion-function-alist))
+
+    (while v
+      ;; Remove double entries
+      (when (member (car v) (cdr v))
+        (setcdr v (delete (car v) (cdr v))))
+      ;; Check for function and file
+      (unless (and (functionp (nth 0 (car v)))
+                   (file-exists-p (nth 1 (car v))))
+        (setq r (delete (car v) r)))
+      (setq v (cdr v)))
+
+    (when r
       (add-to-list 'tramp-completion-function-alist
-                   (cons method function-list)))))
+                   (cons method r)))))
 
 (defun tramp-get-completion-function (method)
   "Returns list of completion functions for METHOD.
 For definition of that list see `tramp-set-completion-function'."
- (cdr (assoc method tramp-completion-function-alist)))
+  (cdr (assoc method tramp-completion-function-alist)))
 
 ;;; File Name Handler Functions:
 
@@ -2586,44 +2649,86 @@ and `rename'.  FILENAME and NEWNAME must be absolute file names."
       (signal 'file-already-exists
               (list newname))))
   (let ((t1 (tramp-tramp-file-p filename))
-        (t2 (tramp-tramp-file-p newname)))
+        (t2 (tramp-tramp-file-p newname))
+        v1-multi-method v1-method v1-user v1-host v1-localname
+        v2-multi-method v2-method v2-user v2-host v2-localname)
+
     ;; Check which ones of source and target are Tramp files.
+    ;; We cannot invoke `with-parsed-tramp-file-name';
+    ;; it fails if the file isn't a Tramp file name.
+    (if t1
+        (with-parsed-tramp-file-name filename l
+          (setq v1-multi-method l-multi-method
+                v1-method l-method
+                v1-user l-user
+                v1-host l-host
+                v1-localname l-localname))
+      (setq v1-localname filename))
+    (if t2
+        (with-parsed-tramp-file-name newname l
+          (setq v2-multi-method l-multi-method
+                v2-method l-method
+                v2-user l-user
+                v2-host l-host
+                v2-localname l-localname))
+      (setq v2-localname newname))
+
     (cond
+     ;; Both are Tramp files.
      ((and t1 t2)
-      ;; Both are Tramp files.
-      (with-parsed-tramp-file-name filename v1
-        (with-parsed-tramp-file-name newname v2
-          ;; Check if we can use a shortcut.
-          (if (and (equal v1-multi-method v2-multi-method)
-                   (equal v1-method v2-method)
-                   (equal v1-host v2-host)
-                   (equal v1-user v2-user))
-              ;; Shortcut: if method, host, user are the same for both
-              ;; files, we invoke `cp' or `mv' on the remote host
-              ;; directly.
-              (tramp-do-copy-or-rename-file-directly
-               op v1-multi-method v1-method v1-user v1-host
-               v1-localname v2-localname keep-date)
-            ;; The shortcut was not possible.  So we copy the
-            ;; file first.  If the operation was `rename', we go
-            ;; back and delete the original file (if the copy was
-            ;; successful).  The approach is simple-minded: we
-            ;; create a new buffer, insert the contents of the
-            ;; source file into it, then write out the buffer to
-            ;; the target file.  The advantage is that it doesn't
-            ;; matter which filename handlers are used for the
-            ;; source and target file.
-
-            ;; CCC: If both source and target are Tramp files,
-            ;; and both are using the same copy-program, then we
-            ;; can invoke rcp directly.  Note that
-            ;; default-directory should point to a local
-            ;; directory if we want to invoke rcp.
-            (tramp-do-copy-or-rename-via-buffer
-             op filename newname keep-date)))))
+      (cond
+       ;; Shortcut: if method, host, user are the same for both
+       ;; files, we invoke `cp' or `mv' on the remote host
+       ;; directly.
+       ((and (equal v1-multi-method v2-multi-method)
+             (equal v1-method v2-method)
+             (equal v1-user v2-user)
+             (equal v1-host v2-host))
+        (tramp-do-copy-or-rename-file-directly
+         op v1-multi-method v1-method v1-user v1-host
+         v1-localname v2-localname keep-date))
+       ;; If both source and target are Tramp files,
+       ;; both are using the same copy-program, then we
+       ;; can invoke rcp directly.  Note that
+       ;; default-directory should point to a local
+       ;; directory if we want to invoke rcp.
+       ((and (not v1-multi-method)
+             (not v2-multi-method)
+             (equal v1-method v2-method)
+             (tramp-method-out-of-band-p
+              v1-multi-method v1-method v1-user v1-host)
+             (not (string-match "\\([^#]*\\)#\\(.*\\)" v1-host))
+             (not (string-match "\\([^#]*\\)#\\(.*\\)" v2-host)))
+        (tramp-do-copy-or-rename-file-out-of-band
+         op filename newname keep-date))
+       ;; No shortcut was possible.  So we copy the
+       ;; file first.  If the operation was `rename', we go
+       ;; back and delete the original file (if the copy was
+       ;; successful).  The approach is simple-minded: we
+       ;; create a new buffer, insert the contents of the
+       ;; source file into it, then write out the buffer to
+       ;; the target file.  The advantage is that it doesn't
+       ;; matter which filename handlers are used for the
+       ;; source and target file.
+       (t
+        (tramp-do-copy-or-rename-via-buffer
+         op filename newname keep-date))))
+
+     ;; One file is a Tramp file, the other one is local.
      ((or t1 t2)
-      ;; Use the generic method via a Tramp buffer.
-      (tramp-do-copy-or-rename-via-buffer op filename newname keep-date))
+      ;; If the Tramp file has an out-of-band method, the corresponding
+      ;; copy-program can be invoked.
+      (if (and (not v1-multi-method)
+               (not v2-multi-method)
+               (or (tramp-method-out-of-band-p
+                    v1-multi-method v1-method v1-user v1-host)
+                   (tramp-method-out-of-band-p
+                    v2-multi-method v2-method v2-user v2-host)))
+          (tramp-do-copy-or-rename-file-out-of-band
+           op filename newname keep-date)
+        ;; Use the generic method via a Tramp buffer.
+        (tramp-do-copy-or-rename-via-buffer op filename newname keep-date)))
+
      (t
       ;; One of them must be a Tramp file.
       (error "Tramp implementation says this cannot happen")))))
@@ -2634,8 +2739,9 @@ and `rename'.  FILENAME and NEWNAME must be absolute file names."
 First arg OP is either `copy' or `rename' and indicates the operation.
 FILENAME is the source file, NEWNAME the target file.
 KEEP-DATE is non-nil if NEWNAME should have the same timestamp as FILENAME."
-  (let ((trampbuf (get-buffer-create "*tramp output*")))
-    (when keep-date
+  (let ((trampbuf (get-buffer-create "*tramp output*"))
+        (modtime (nth 5 (file-attributes filename))))
+    (when (and keep-date (or (null modtime) (equal modtime '(0 0))))
       (tramp-message
        1 (concat "Warning: cannot preserve file time stamp"
                  " with inline copying across machines")))
@@ -2646,7 +2752,12 @@ KEEP-DATE is non-nil if NEWNAME should have the same timestamp as FILENAME."
       ;; `jka-compr-inhibit' to t.
       (let ((coding-system-for-write 'binary)
             (jka-compr-inhibit t))
-        (write-region (point-min) (point-max) newname)))
+        (write-region (point-min) (point-max) newname))
+      ;; KEEP-DATE handling.
+      (when (and keep-date 
+                 (not (null modtime))
+                 (not (equal modtime '(0 0))))
+        (tramp-touch newname modtime)))
     ;; If the operation was `rename', delete the original file.
     (unless (eq op 'copy)
       (delete-file filename))))
@@ -2676,13 +2787,112 @@ If KEEP-DATE is non-nil, preserve the time stamp when copying."
        "Copying directly failed, see buffer `%s' for details."
        (buffer-name)))))
 
-(defun tramp-do-copy-or-rename-file-one-local
-  (op filename newname keep-date)
+(defun tramp-do-copy-or-rename-file-out-of-band (op filename newname keep-date)
   "Invoke rcp program to copy.
 One of FILENAME and NEWNAME must be a Tramp name, the other must
 be a local filename.  The method used must be an out-of-band method."
-  ;; CCC
-  )
+  (let ((trampbuf (get-buffer-create "*tramp output*"))
+        (t1 (tramp-tramp-file-p filename))
+        (t2 (tramp-tramp-file-p newname))
+        v1-multi-method v1-method v1-user v1-host v1-localname
+        v2-multi-method v2-method v2-user v2-host v2-localname
+        method copy-program copy-args source target)
+
+    ;; Check which ones of source and target are Tramp files.
+    ;; We cannot invoke `with-parsed-tramp-file-name';
+    ;; it fails if the file isn't a Tramp file name.
+    (if t1
+        (with-parsed-tramp-file-name filename l
+          (setq v1-multi-method l-multi-method
+                v1-method l-method
+                v1-user l-user
+                v1-host l-host
+                v1-localname l-localname
+                method (tramp-find-method
+                        v1-multi-method v1-method v1-user v1-host)
+                copy-program (tramp-get-method-parameter
+                              v1-multi-method method
+                              v1-user v1-host 'tramp-copy-program)
+                copy-args (tramp-get-method-parameter
+                                 v1-multi-method method
+                                 v1-user v1-host 'tramp-copy-args)))
+      (setq v1-localname filename))
+
+    (if t2
+        (with-parsed-tramp-file-name newname l
+          (setq v2-multi-method l-multi-method
+                v2-method l-method
+                v2-user l-user
+                v2-host l-host
+                v2-localname l-localname
+                method (tramp-find-method
+                        v2-multi-method v2-method v2-user v2-host)
+                copy-program (tramp-get-method-parameter
+                              v2-multi-method method
+                              v2-user v2-host 'tramp-copy-program)
+                copy-args (tramp-get-method-parameter
+                                 v2-multi-method method
+                                 v2-user v2-host 'tramp-copy-args)))
+      (setq v2-localname newname))
+
+    ;; The following should be changed.  We need a more general
+    ;; mechanism to parse extra host args.
+    (if (not t1)
+        (setq source v1-localname)
+      (when (string-match "\\([^#]*\\)#\\(.*\\)" v1-host)
+        (setq copy-args (cons "-P" (cons (match-string 2 v1-host) copy-args)))
+        (setq v1-host (match-string 1 v1-host)))
+      (setq source
+             (tramp-make-copy-program-file-name
+              v1-user v1-host
+              (tramp-shell-quote-argument v1-localname))))
+
+    (if (not t2)
+        (setq target v2-localname)
+      (when (string-match "\\([^#]*\\)#\\(.*\\)" v2-host)
+        (setq copy-args (cons "-P" (cons (match-string 2 v2-host) copy-args)))
+        (setq v2-host (match-string 1 v2-host)))
+      (setq target
+             (tramp-make-copy-program-file-name
+              v2-user v2-host
+              (tramp-shell-quote-argument v2-localname))))
+
+    ;; Handle keep-date argument
+    (when keep-date
+      (if t1
+          (setq copy-args
+                (cons (tramp-get-method-parameter
+                       v1-multi-method method
+                       v1-user v1-host 'tramp-copy-keep-date-arg)
+                      copy-args))
+        (setq copy-args
+              (cons (tramp-get-method-parameter
+                     v2-multi-method method
+                     v2-user v2-host 'tramp-copy-keep-date-arg)
+                    copy-args))))
+
+    (setq copy-args (append copy-args (list source target)))
+
+    ;; Use rcp-like program for file transfer.
+    (tramp-message
+     5 "Transferring %s to file %s..." filename newname)
+    (save-excursion (set-buffer trampbuf) (erase-buffer))
+    (unless (equal
+             0
+             (apply #'call-process copy-program
+                    nil trampbuf nil copy-args))
+      (pop-to-buffer trampbuf)
+      (error
+       (concat
+        "tramp-do-copy-or-rename-file-out-of-band: `%s' didn't work, "
+        "see buffer `%s' for details")
+       copy-program trampbuf))
+    (tramp-message
+     5 "Transferring %s to file %s...done" filename newname)
+
+    ;; If the operation was `rename', delete the original file.
+    (unless (eq op 'copy)
+      (delete-file filename))))
 
 ;; mkdir
 (defun tramp-handle-make-directory (dir &optional parents)
@@ -2745,7 +2955,6 @@ This is like `dired-recursive-delete-directory' for tramp files."
     (and (tramp-handle-file-exists-p filename)
          (error "Failed to recusively delete %s" filename))))
          
-
 (defun tramp-handle-dired-call-process (program discard &rest arguments)
   "Like `dired-call-process' for tramp files."
   (with-parsed-tramp-file-name default-directory nil
@@ -2767,6 +2976,59 @@ This is like `dired-recursive-delete-directory' for tramp files."
           (tramp-send-command-and-check multi-method method user host nil)
         (tramp-send-command multi-method method user host "cd")
         (tramp-wait-for-output)))))
+         
+(defun tramp-handle-dired-compress-file (file &rest ok-flag)
+  "Like `dired-compress-file' for tramp files."
+  ;; OK-FLAG is valid for XEmacs only, but not implemented.
+  ;; Code stolen mainly from dired-aux.el.
+  (with-parsed-tramp-file-name file nil
+    (save-excursion
+      (let ((suffixes
+             (if (not (featurep 'xemacs))
+                 ;; Emacs case
+                 (symbol-value 'dired-compress-file-suffixes)
+               ;; XEmacs has `dired-compression-method-alist', which is
+               ;; transformed into `dired-compress-file-suffixes' structure.
+               (mapcar
+                '(lambda (x)
+                   (list (concat (regexp-quote (nth 1 x)) "\\'")
+                         nil
+                         (mapconcat 'identity (nth 3 x) " ")))
+                (symbol-value 'dired-compression-method-alist))))
+            suffix)
+        ;; See if any suffix rule matches this file name.
+        (while suffixes
+          (let (case-fold-search)
+            (if (string-match (car (car suffixes)) localname)
+                (setq suffix (car suffixes) suffixes nil))
+            (setq suffixes (cdr suffixes))))
+
+        (cond ((file-symlink-p file)
+               nil)
+              ((and suffix (nth 2 suffix))
+               ;; We found an uncompression rule.
+               (message "Uncompressing %s..." file)
+               (when (zerop (tramp-send-command-and-check
+                             multi-method method user host
+                             (concat (nth 2 suffix) " " localname)))
+                 (message "Uncompressing %s...done" file)
+                 (dired-remove-file file)
+                 (string-match (car suffix) file)
+                 (concat (substring file 0 (match-beginning 0)))))
+              (t
+               ;; We don't recognize the file as compressed, so compress it.
+               ;; Try gzip.
+               (message "Compressing %s..." file)
+               (when (zerop (tramp-send-command-and-check
+                             multi-method method user host
+                             (concat "gzip -f " localname)))
+                 (message "Compressing %s...done" file)
+                 (dired-remove-file file)
+                 (cond ((file-exists-p (concat file ".gz"))
+                        (concat file ".gz"))
+                       ((file-exists-p (concat file ".z"))
+                        (concat file ".z"))
+                       (t nil)))))))))
 
 ;; Pacify byte-compiler.  The function is needed on XEmacs only.  I'm
 ;; not sure at all that this is the right way to do it, but let's hope
@@ -2961,17 +3223,40 @@ the result will be a local, non-Tramp, filename."
 
 ;; Remote commands.
 
+(defvar tramp-async-proc nil
+  "Global variable keeping asyncronous process object.
+Used in `tramp-handle-shell-command'")
+
 (defun tramp-handle-shell-command (command &optional output-buffer error-buffer)
   "Like `shell-command' for tramp files.
 This will break if COMMAND prints a newline, followed by the value of
 `tramp-end-of-output', followed by another newline."
+  ;; Asynchronous processes are far from being perfect.  But it works at least
+  ;; for `find-grep-dired' and `find-name-dired' in Emacs 21.4.
   (if (tramp-tramp-file-p default-directory)
       (with-parsed-tramp-file-name default-directory nil
-        (let (status)
-          (when (string-match "&[ \t]*\\'" command)
-            (error "Tramp doesn't grok asynchronous shell commands, yet"))
-;;        (when error-buffer
-;;          (error "Tramp doesn't grok optional third arg ERROR-BUFFER, yet"))
+        (let ((asynchronous (string-match "[ \t]*&[ \t]*\\'" command))
+              status)
+          (unless output-buffer
+            (setq output-buffer
+                  (get-buffer-create
+                   (if asynchronous
+                       "*Async Shell Command*"
+                     "*Shell Command Output*")))
+            (set-buffer output-buffer)
+            (erase-buffer))
+          (unless (bufferp output-buffer)
+            (setq output-buffer (current-buffer)))
+          (set-buffer output-buffer)
+          ;; Tramp doesn't handle the asynchronous case by an asynchronous
+          ;; process.  Instead of, another asynchronous process is opened
+          ;; which gets the output of the (synchronous) Tramp process
+          ;; via process-filter.  ERROR-BUFFER is disabled.
+          (when asynchronous
+            (setq command (substring command 0 (match-beginning 0))
+                  error-buffer nil
+                  tramp-async-proc (start-process (buffer-name output-buffer)
+                                                  output-buffer "cat")))
           (save-excursion
             (tramp-barf-unless-okay
              multi-method method user host
@@ -2979,23 +3264,39 @@ This will break if COMMAND prints a newline, followed by the value of
              nil 'file-error
              "tramp-handle-shell-command: Couldn't `cd %s'"
              (tramp-shell-quote-argument localname))
+            ;; Define the process filter
+            (when asynchronous
+              (set-process-filter
+               (get-buffer-process
+                (tramp-get-buffer multi-method method user host))
+               '(lambda (process string)
+                  ;; Write the output into the Tramp Process
+                  (save-current-buffer
+                    (set-buffer (process-buffer process))
+                    (goto-char (point-max))
+                    (insert string))
+                  ;; Hand-over output to asynchronous process.
+                  (let ((end
+                         (string-match
+                          (regexp-quote tramp-end-of-output) string)))
+                    (when end
+                      (setq string
+                            (substring string 0 (1- (match-beginning 0)))))
+                    (process-send-string tramp-async-proc string)
+                    (when end
+                      (set-process-filter process nil)
+                      (process-send-eof tramp-async-proc))))))
+            ;; Send the command
             (tramp-send-command
              multi-method method user host
              (if error-buffer
                  (format "( %s ) 2>/tmp/tramp.$$.err; tramp_old_status=$?"
                          command)
-               (format "%s ;tramp_old_status=$?" command)))
-            ;; This will break if the shell command prints "/////"
-            ;; somewhere.  Let's just hope for the best...
-            (tramp-wait-for-output))
-          (unless output-buffer
-            (setq output-buffer (get-buffer-create "*Shell Command Output*"))
-            (set-buffer output-buffer)
-            (erase-buffer))
-          (unless (bufferp output-buffer)
-            (setq output-buffer (current-buffer)))
-          (set-buffer output-buffer)
-          (insert-buffer (tramp-get-buffer multi-method method user host))
+               (format "%s; tramp_old_status=$?" command)))
+            (unless asynchronous
+              (tramp-wait-for-output)))
+          (unless asynchronous
+            (insert-buffer (tramp-get-buffer multi-method method user host)))
           (when error-buffer
             (save-excursion
               (unless (bufferp error-buffer)
@@ -3010,17 +3311,19 @@ This will break if COMMAND prints a newline, followed by the value of
                multi-method method user host "rm -f /tmp/tramp.$$.err")))
           (save-excursion
             (tramp-send-command multi-method method user host "cd")
-            (tramp-wait-for-output)
+            (unless asynchronous
+              (tramp-wait-for-output))
             (tramp-send-command
              multi-method method user host
              (concat "tramp_set_exit_status $tramp_old_status;"
                      " echo tramp_exit_status $?"))
-            (tramp-wait-for-output)
-            (goto-char (point-max))
-            (unless (search-backward "tramp_exit_status " nil t)
-              (error "Couldn't find exit status of `%s'" command))
-            (skip-chars-forward "^ ")
-            (setq status (read (current-buffer))))
+            (unless asynchronous
+              (tramp-wait-for-output)
+              (goto-char (point-max))
+              (unless (search-backward "tramp_exit_status " nil t)
+                (error "Couldn't find exit status of `%s'" command))
+              (skip-chars-forward "^ ")
+              (setq status (read (current-buffer)))))
           (unless (zerop (buffer-size))
             (display-buffer output-buffer))
           status))
@@ -3041,16 +3344,7 @@ This will break if COMMAND prints a newline, followed by the value of
 (defun tramp-handle-file-local-copy (filename)
   "Like `file-local-copy' for tramp files."
   (with-parsed-tramp-file-name filename nil
-    (let ((output-buf (get-buffer-create "*tramp output*"))
-          (tramp-buf (tramp-get-buffer multi-method method user host))
-          (copy-program (tramp-get-method-parameter
-                         multi-method
-                         (tramp-find-method multi-method method user host)
-                         user host 'tramp-copy-program))
-          (copy-args (tramp-get-method-parameter
-                      multi-method
-                      (tramp-find-method multi-method method user host)
-                      user host 'tramp-copy-args))
+    (let ((tramp-buf (tramp-get-buffer multi-method method user host))
           ;; We used to bind the following as late as possible.
           ;; loc-enc and loc-dec were bound directly before the if
           ;; statement that checks them.  But the functions
@@ -3066,37 +3360,12 @@ This will break if COMMAND prints a newline, followed by the value of
         (error "Cannot make local copy of non-existing file `%s'"
                filename))
       (setq tmpfil (tramp-make-temp-file))
-      (cond (copy-program
-             ;; The following should be changed.  We need a more general
-             ;; mechanism to parse extra host args.
-             (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
-               (setq copy-args (cons "-p" (cons (match-string 2 host)
-                                                rsh-args)))
-               (setq host (match-string 1 host)))
-             ;; Use rcp-like program for file transfer.
-             (tramp-message-for-buffer
-              multi-method method user host
-              5 "Fetching %s to tmp file %s..." filename tmpfil)
-             (save-excursion (set-buffer output-buf) (erase-buffer))
-             (unless (equal
-                      0
-                      (apply #'call-process
-                             copy-program
-                             nil output-buf nil
-                             (append copy-args
-                                     (list
-                                      (tramp-make-copy-program-file-name
-                                       user host
-                                       (tramp-shell-quote-argument localname))
-                                      tmpfil))))
-               (pop-to-buffer output-buf)
-               (error
-                (concat "tramp-handle-file-local-copy: `%s' didn't work, "
-                        "see buffer `%s' for details")
-                copy-program output-buf))
-             (tramp-message-for-buffer
-              multi-method method user host
-              5 "Fetching %s to tmp file %s...done" filename tmpfil))
+
+
+      (cond ((tramp-method-out-of-band-p multi-method method user host)
+             ;; `copy-file' handles out-of-band methods
+             (copy-file filename tmpfil t t))
+
             ((and rem-enc rem-dec)
              ;; Use inline encoding for file transfer.
              (save-excursion
@@ -3225,14 +3494,6 @@ This will break if COMMAND prints a newline, followed by the value of
       (error "File not overwritten")))
   (with-parsed-tramp-file-name filename nil
     (let ((curbuf (current-buffer))
-          (copy-program (tramp-get-method-parameter
-                         multi-method
-                         (tramp-find-method multi-method method user host)
-                         user host 'tramp-copy-program))
-          (copy-args (tramp-get-method-parameter
-                     multi-method
-                     (tramp-find-method multi-method method user host)
-                     user host 'tramp-copy-args))
           (rem-enc (tramp-get-remote-encoding multi-method method user host))
           (rem-dec (tramp-get-remote-decoding multi-method method user host))
           (loc-enc (tramp-get-local-encoding multi-method method user host))
@@ -3267,44 +3528,10 @@ This will break if COMMAND prints a newline, followed by the value of
       ;; decoding command must be specified.  However, if the method
       ;; _also_ specifies an encoding function, then that is used for
       ;; encoding the contents of the tmp file.
-      (cond (copy-program
-             ;; The following should be changed.  We need a more general
-             ;; mechanism to parse extra host args.
-             (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
-               (setq copy-args (cons "-p" (cons (match-string 2 host)
-                                                rsh-args)))
-               (setq host (match-string 1 host)))
-
-             ;; use rcp-like program for file transfer
-             (let ((argl (append copy-args
-                                 (list
-                                  tmpfil
-                                  (tramp-make-copy-program-file-name
-                                   user host
-                                   (tramp-shell-quote-argument localname))))))
-               (tramp-message-for-buffer
-                multi-method method user host
-                6 "Writing tmp file using `%s'..." copy-program)
-               (save-excursion (set-buffer trampbuf) (erase-buffer))
-               (when tramp-debug-buffer
-                 (save-excursion
-                   (set-buffer (tramp-get-debug-buffer multi-method
-                                                       method user host))
-                   (goto-char (point-max))
-                   (tramp-insert-with-face
-                    'bold (format "$ %s %s\n" copy-program
-                                  (mapconcat 'identity argl " ")))))
-               (unless (equal 0
-                              (apply #'call-process
-                                     copy-program nil trampbuf nil argl))
-                 (pop-to-buffer trampbuf)
-                 (error
-                  "Cannot write region to file `%s', command `%s' failed"
-                  filename copy-program))
-               (tramp-message-for-buffer
-                multi-method method user host
-                6 "Transferring file using `%s'...done"
-                copy-program)))
+      (cond ((tramp-method-out-of-band-p multi-method method user host)
+             ;; `copy-file' handles out-of-band methods
+             (copy-file tmpfil filename t t))
+
             ((and rem-enc rem-dec)
              ;; Use inline file transfer
              (let ((tmpbuf (get-buffer-create " *tramp file transfer*")))
@@ -3319,7 +3546,8 @@ This will break if COMMAND prints a newline, followed by the value of
                      (progn
                        (tramp-message-for-buffer
                         multi-method method user host
-                        6 "Encoding region using function...")
+                        6 "Encoding region using function `%s'..."
+                        (symbol-name loc-enc))
                        (insert-file-contents-literally tmpfil)
                        ;; CCC.  The following `let' is a workaround for
                        ;; the base64.el that comes with pgnus-0.84.  If
@@ -3685,11 +3913,12 @@ necessary anymore."
 ;; shouldn't have partial tramp file name syntax. Maybe another variable should
 ;; be introduced overwriting this check in such cases. Or we change tramp
 ;; file name syntax in order to avoid ambiguities, like in XEmacs ...
-;; In case of XEmacs it can be always true (and wouldn't be necessary).
+;; In case of non unified file names it can be always true (and wouldn't be
+;; necessary, because there are different regexp).
 (defun tramp-completion-mode (file)
   "Checks whether method / user name / host name completion is active."
   (cond
-   ((featurep 'xemacs) t)
+   ((not tramp-unified-filenames) t)
    ((string-match "^/.*:.*:$" file) nil)
    ((string-match
      (concat tramp-prefix-regexp
@@ -3697,11 +3926,21 @@ necessary anymore."
      file)
     (member (match-string 1 file) (mapcar 'car tramp-methods)))
    ((or (equal last-input-event 'tab)
+        ;; Emacs
         (and (integerp last-input-event)
              (not (event-modifiers last-input-event))
              (or (char-equal last-input-event ?\?)
                  (char-equal last-input-event ?\t) ; handled by 'tab already?
-                 (char-equal last-input-event ?\ ))))
+                 (char-equal last-input-event ?\ )))
+        ;; XEmacs
+        (and (featurep 'xemacs)
+             (not (event-modifiers last-input-event))
+             (or (char-equal
+                  (funcall 'event-to-character last-input-event) ?\?)
+                 (char-equal
+                  (funcall 'event-to-character last-input-event) ?\t)
+                 (char-equal
+                  (funcall 'event-to-character last-input-event) ?\ ))))
     t)))
 
 (defun tramp-completion-handle-file-exists-p (filename)
@@ -4050,6 +4289,35 @@ User is always nil."
       (forward-line 1))
      result))
 
+(defun tramp-parse-shostkeys (dirname)
+  "Return a list of (user host) tuples allowed to access.
+User is always nil."
+
+  (let ((regexp (concat "^key_[0-9]+_\\(" tramp-host-regexp "\\)\\.pub$"))
+        (files (when (file-directory-p dirname) (directory-files dirname)))
+        result)
+
+    (while files
+      (when (string-match regexp (car files))
+        (push (list nil (match-string 1 (car files))) result))
+      (setq files (cdr files)))
+    result))
+
+(defun tramp-parse-sknownhosts (dirname)
+  "Return a list of (user host) tuples allowed to access.
+User is always nil."
+
+  (let ((regexp (concat "^\\(" tramp-host-regexp
+                        "\\)\\.ssh-\\(dss\\|rsa\\)\\.pub$"))
+        (files (when (file-directory-p dirname) (directory-files dirname)))
+        result)
+
+    (while files
+      (when (string-match regexp (car files))
+        (push (list nil (match-string 1 (car files))) result))
+      (setq files (cdr files)))
+    result))
+
 (defun tramp-parse-hosts (filename)
   "Return a list of (user host) tuples allowed to access.
 User is always nil."
@@ -4206,14 +4474,29 @@ hosts, or files, disagree."
                (or switch "")
                (tramp-shell-quote-argument localname2))))))
 
+(defun tramp-touch (file time)
+  "Set the last-modified timestamp of the given file.
+TIME is an Emacs internal time value as returned by `current-time'."
+  (let ((touch-time (format-time-string "%Y%m%d%H%M.%S" time)))
+    (with-parsed-tramp-file-name file nil
+      (let ((buf (tramp-get-buffer multi-method method user host)))
+        (unless (zerop (tramp-send-command-and-check
+                        multi-method method user host
+                        (format "touch -t %s %s"
+                                touch-time
+                                localname)))
+          (pop-to-buffer buf)
+          (error "tramp-touch: touch failed, see buffer `%s' for details"
+                 buf))))))
+
 (defun tramp-buffer-name (multi-method method user host)
   "A name for the connection buffer for USER at HOST using METHOD."
   (if multi-method
       (tramp-buffer-name-multi-method "tramp" multi-method method user host)
     (let ((method (tramp-find-method multi-method method user host)))
       (if user
-          (format "*tramp/%s %s@%s*" method user host))
-      (format "*tramp/%s %s*" method host))))
+          (format "*tramp/%s %s@%s*" method user host)
+        (format "*tramp/%s %s*" method host)))))
 
 (defun tramp-buffer-name-multi-method (prefix multi-method method user host)
   "A name for the multi method connection buffer.
@@ -4482,11 +4765,6 @@ Returns nil if none was found, else the command is returned."
 (defun tramp-action-password (p multi-method method user host)
   "Query the user for a password."
   (let ((pw-prompt (match-string 0)))
-    (when (tramp-method-out-of-band-p multi-method method user host)
-      (kill-process (get-buffer-process (current-buffer)))
-      (error (concat "Out of band method `%s' not applicable "
-                     "for remote shell asking for a password")
-             method))
     (tramp-message 9 "Sending password")
     (tramp-enter-password p pw-prompt)))
 
@@ -4597,6 +4875,7 @@ The terminal type can be configured with `tramp-terminal-type'."
                p multi-method method user host actions)
               nil)))
     (unless (eq exit 'ok)
+      (tramp-clear-passwd user host)
       (error "Login failed"))))
 
 ;; For multi-actions.
@@ -4632,6 +4911,7 @@ The terminal type can be configured with `tramp-terminal-type'."
               (tramp-process-one-multi-action p method user host actions)
               nil)))
     (unless (eq exit 'ok)
+      (tramp-clear-passwd user host)
       (error "Login failed"))))
 
 ;; Functions to execute when we have seen the remote shell prompt but
@@ -4768,7 +5048,7 @@ arguments, and xx will be used as the host name to connect to.
       ;; The following should be changed.  We need a more general
       ;; mechanism to parse extra host args.
       (when (string-match "\\([^#]*\\)#\\(.*\\)" host)
-        (setq login-args (cons "-p" (cons (match-string 2 host) rsh-args)))
+        (setq login-args (cons "-p" (cons (match-string 2 host) login-args)))
         (setq host (match-string 1 host)))
       (setenv "TERM" tramp-terminal-type)
       (let* ((default-directory (tramp-temporary-file-directory))
@@ -5308,10 +5588,7 @@ locale to C and sets up the remote shell search path."
                  " -e '" tramp-perl-file-attributes "' $1 $2 2>/dev/null\n"
                  "}"))
         (tramp-wait-for-output)
-        (unless (tramp-get-method-parameter
-                 multi-method
-                 (tramp-find-method multi-method method user host)
-                 user host 'tramp-copy-program)
+        (unless (tramp-method-out-of-band-p multi-method method user host)
           (tramp-message 5 "Sending the Perl `mime-encode' implementations.")
           (tramp-send-string
            multi-method method user host
@@ -5350,10 +5627,7 @@ locale to C and sets up the remote shell search path."
       (tramp-set-connection-property "ln" ln multi-method method user host)))
   (erase-buffer)
   ;; Find the right encoding/decoding commands to use.
-  (unless (tramp-get-method-parameter
-           multi-method
-           (tramp-find-method multi-method method user host)
-           user host 'tramp-copy-program)
+  (unless (tramp-method-out-of-band-p multi-method method user host)
     (tramp-find-inline-encoding multi-method method user host))
   ;; If encoding/decoding command are given, test to see if they work.
   ;; CCC: Maybe it would be useful to run the encoder both locally and
@@ -5566,11 +5840,12 @@ connection if a previous connection has died for some reason."
     (unless (and p (processp p) (memq (process-status p) '(run open)))
       (when (and p (processp p))
         (delete-process p))
-      (funcall (tramp-get-method-parameter
-                multi-method
-                (tramp-find-method multi-method method user host)
-                user host 'tramp-connection-function)
-               multi-method method user host))))
+      (let ((process-connection-type tramp-process-connection-type))
+        (funcall (tramp-get-method-parameter
+                  multi-method
+                  (tramp-find-method multi-method method user host)
+                  user host 'tramp-connection-function)
+                 multi-method method user host)))))
 
 (defun tramp-send-command
   (multi-method method user host command &optional noerase neveropen)
@@ -6223,10 +6498,28 @@ this is the function `temp-directory'."
 
 (defun tramp-read-passwd (prompt)
   "Read a password from user (compat function).
-Invokes `read-passwd' if that is defined, else `ange-ftp-read-passwd'."
-  (apply
-   (if (fboundp 'read-passwd) #'read-passwd #'ange-ftp-read-passwd)
-   (list prompt)))
+Invokes `password-read' if available, `read-passwd' else."
+  (if (functionp 'password-read)
+      (let* ((user (or tramp-current-user (user-login-name)))
+             (host (or tramp-current-host (system-name)))
+             (key (concat user "@" host))
+             (password (apply #'password-read (list prompt key))))
+        (apply #'password-cache-add (list key password))
+        password)
+    (read-passwd prompt)))
+
+(defun tramp-clear-passwd (&optional user host)
+  "Clear password cache for connection related to current-buffer."
+  (interactive)
+  (let ((filename (or buffer-file-name list-buffers-directory "")))
+    (when (and (functionp 'password-cache-remove)
+               (or (and user host) (tramp-tramp-file-p filename)))
+      (let* ((v (when (tramp-tramp-file-p filename)
+                  (tramp-dissect-file-name filename)))
+             (luser (or user (tramp-file-name-user v) (user-login-name)))
+             (lhost (or host (tramp-file-name-host v) (system-name)))
+             (key (concat luser "@" lhost)))
+        (apply #'password-cache-remove (list key))))))
 
 (defun tramp-time-diff (t1 t2)
   "Return the difference between the two times, in seconds.
@@ -6477,7 +6770,6 @@ report.
 
 ;;; TODO:
 
-;; * tramp-copy-keep-date-arg is not used!
 ;; * Allow putting passwords in the filename.
 ;;   This should be implemented via a general mechanism to add
 ;;   parameters in filenames.  There is currently a kludge for
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index 72c8c97899a..b3223d7a46e 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -30,7 +30,7 @@
 ;; are auto-frobbed from configure.ac, so you should edit that file and run
 ;; "autoconf && ./configure" to change them.
 
-(defconst tramp-version "2.0.38"
+(defconst tramp-version "2.0.39"
   "This version of Tramp.")
 
 (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org"
diff --git a/man/ChangeLog b/man/ChangeLog
index 9d95b6bae45..c1e3859986c 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,20 @@
+2004-02-29  Kai Grossjohann  <kgrossjo@eu.uu.net>
+        Tramp version 2.0.39 released.
+
+2004-02-29  Michael Albinus  <Michael.Albinus@alcatel.de>
+
+        * tramp.texi (Customizing Completion): Explain new functions
+        `tramp-parse-shostkeys' and `tramp-parse-sknownhosts'.
+        (all): Savannah URLs unified to "http://savannah.nongnu.org".
+        (Top): Refer to Savannah mailing list as the major one.  Mention
+        older mailing lists in HTML mode only.
+        (Auto-save and Backup): Add auto-save.  Based on wording of Kai.
+        (Frequently Asked Questions): Remote hosts must not be Unix-like
+        for "smb" method.
+        (Password caching): New node.
+        (External transfer methods): Refer to password caching for "smb"
+        method.
+
 2004-02-23  Nick Roberts  <nick@nick.uklinux.net>
 
         * building.texi (Watch Expressions):  Update.
diff --git a/man/tramp.texi b/man/tramp.texi
index ada4d63fa55..ffc22837b54 100644
--- a/man/tramp.texi
+++ b/man/tramp.texi
@@ -30,7 +30,7 @@
 @end macro
 
 @copying
-Copyright @copyright{} 1999, 2000, 2001, 2002, 2003 Free Software
+Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004 Free Software
 Foundation, Inc.
 
 @quotation
@@ -54,10 +54,10 @@ license to the document, as described in section 6 of the license.
 @end copying
 
 @c Entries for @command{install-info} to use
-@dircategory Emacs
+@dircategory @value{emacs-name}
 @direntry
 * TRAMP: (tramp).                Transparent Remote Access, Multiple Protocol
-                                 Emacs remote file access via rsh and rcp.
+                                 @value{emacs-name} remote file access via rsh and rcp.
 @end direntry
 
 @tex
@@ -108,18 +108,27 @@ Japanese translation}.
 @end ifset
 
 The latest release of @tramp{} is available for
-@uref{http://savannah.gnu.org/download/tramp/,
+@uref{http://savannah.nongnu.org/download/tramp/,
 download}, or you may see @ref{Obtaining @tramp{}} for more details,
 including the CVS server details.
 
-@tramp{} also has a @uref{https://savannah.gnu.org/projects/tramp/,
+@tramp{} also has a @uref{http://savannah.nongnu.org/projects/tramp/,
 Savannah Project Page}.
 @end ifhtml
 
 There is a mailing list for @tramp{}, available at
 @email{tramp-devel@@mail.freesoftware.fsf.org}, and archived at
-@uref{http://www.mail-archive.com/emacs-rcp@@ls6.cs.uni-dortmund.de/} as
-well as the usual Savannah archives.
+@uref{http://savannah.nongnu.org/mail/?group=tramp, Savannah Mail
+Archive}.
+@ifhtml
+Older archives are located at
+@uref{http://sourceforge.net/mailarchive/forum.php?forum=tramp-devel,
+SourceForge Mail Archive} and
+@uref{http://www.mail-archive.com/emacs-rcp@@ls6.cs.uni-dortmund.de/,
+The Mail Archive}.
+@c in HTML output, there's no new paragraph.
+@*@*
+@end ifhtml
 
 @insertcopying
 
@@ -168,6 +177,7 @@ Configuring @tramp{} for use
 * Default Method::              Selecting a default method.
 * Customizing Methods::         Using Non-Standard Methods.
 * Customizing Completion::      Selecting config files for user/host name completion.
+* Password caching::            Reusing passwords for several connections.
 * Remote Programs::             How @tramp{} finds and uses programs on the remote machine.
 * Remote shell setup::          Remote shell setup hints.
 * Windows setup hints::         Issues with Cygwin ssh.
@@ -383,20 +393,15 @@ following URL and then clicking on the CVS link in the navigation bar
 at the top.
 
 @noindent
-@uref{http://savannah.gnu.org/projects/tramp/}
+@uref{http://savannah.nongnu.org/projects/tramp/}
 
 @noindent
 Or follow the example session below:
 
 @example
 ] @strong{cd ~/@value{emacs-dir}}
-] @strong{cvs -d:pserver:anoncvs@@subversions.gnu.org:/cvsroot/tramp login}
-
-(Logging in to anoncvs@@subversions.gnu.org)
-CVS password: @strong{(just hit RET here)}
-@dots{}
-
-] @strong{cvs -z3 -d:pserver:anoncvs@@subversions.gnu.org:/cvsroot/tramp co tramp}
+] @strong{export CVS_RSH="ssh"}
+] @strong{cvs -z3 -d:ext:anoncvs@@savannah.nongnu.org:/cvsroot/tramp co tramp}
 @end example
 
 @noindent
@@ -406,6 +411,7 @@ updates from the repository by issuing the command:
 
 @example
 ] @strong{cd ~/@value{emacs-dir}/tramp}
+] @strong{export CVS_RSH="ssh"}
 ] @strong{cvs update -d}
 @end example
 
@@ -480,6 +486,7 @@ Method}.
                                   is right for them.
 * Customizing Methods::         Using Non-Standard Methods.
 * Customizing Completion::      Selecting config files for user/host name completion.
+* Password caching::            Reusing passwords for several connections.
 * Remote Programs::             How @tramp{} finds and uses programs on the remote machine.
 * Remote shell setup::          Remote shell setup hints.
 * Windows setup hints::         Issues with Cygwin ssh.
@@ -554,9 +561,9 @@ allow you to transfer files between @emph{user identities} rather than
 hosts, see below.)
 
 These methods depend on the existence of a suitable encoding and
-decoding command on remote machine.  Locally, @tramp{} may be able to use
-features of Emacs to decode and encode the files or it may require
-access to external commands to perform that task.
+decoding command on remote machine.  Locally, @tramp{} may be able to
+use features of @value{emacs-name} to decode and encode the files or
+it may require access to external commands to perform that task.
 
 @cindex uuencode
 @cindex mimencode
@@ -662,11 +669,11 @@ question (yet), therefore you will need to make sure that you can log
 in without such questions.
 
 This is also useful for Windows users where @command{ssh}, when
-invoked from an Emacs buffer, tells them that it is not allocating a
-pseudo tty.  When this happens, the login shell is wont to not print
-any shell prompt, which confuses @tramp{} mightily.  For reasons
-unknown, some Windows ports for @command{ssh} (maybe the Cygwin one)
-require the doubled @samp{-t} option.
+invoked from an @value{emacs-name} buffer, tells them that it is not
+allocating a pseudo tty.  When this happens, the login shell is wont
+to not print any shell prompt, which confuses @tramp{} mightily.  For
+reasons unknown, some Windows ports for @command{ssh} (maybe the
+Cygwin one) require the doubled @samp{-t} option.
 
 This supports the @samp{-p} kludge.
 
@@ -820,10 +827,10 @@ just gives @tramp{} a more-or-less `standard' login shell to work
 with.
 
 This is also useful for Windows users where @command{ssh}, when
-invoked from an Emacs buffer, tells them that it is not allocating a
-pseudo tty.  When this happens, the login shell is wont to not print
-any shell prompt, which confuses @tramp{} mightily.  Maybe this
-applies to the Cygwin port of SSH.
+invoked from an @value{emacs-name} buffer, tells them that it is not
+allocating a pseudo tty.  When this happens, the login shell is wont
+to not print any shell prompt, which confuses @tramp{} mightily.
+Maybe this applies to the Cygwin port of SSH.
 
 This method supports the @samp{-p} hack.
 
@@ -864,19 +871,21 @@ This method uses the command @samp{fsh @var{host} -l @var{user}
 
 @cindex method fsh
 @cindex fsh method
+
 There is no inline method using @command{fsh} as the multiplexing
 provided by the program is not very useful in our context.  @tramp{}
 opens just one connection to the remote host and then keeps it open,
 anyway.
 
 
-@ifset emacs
 @item @option{ftp}
 @cindex method ftp
 @cindex ftp method
 
 This is not a native @tramp{} method. Instead of, it forwards all
 requests to @value{ftp-package-name}.
+@ifset xemacs
+This works only for unified filenames, see @ref{Issues}.
 @end ifset
 
 
@@ -899,7 +908,7 @@ directory @code{/}), all available shares are listed.
 
 Since authorization is done on share level, you will be prompted
 always for a password if you access another share on the same host.
-Due to security reasons, the password is not cached.
+This can be suppressed by @ref{Password caching}.
 
 MS Windows uses for authorization both a user name and a domain name.
 Because of this, the @tramp{} syntax has been extended: you can
@@ -917,10 +926,11 @@ methods, where in such a case the local user name is taken.
 
 The @option{smb} method supports the @samp{-p} hack.
 
-@strong{Please note:} If Emacs runs locally under MS Windows, this
-method isn't available.  Instead of, you can use UNC file names like
-@file{//melancholia/daniel$$/.emacs}.  The only disadvantage is that
-there's no possibility to specify another user name.
+@strong{Please note:} If @value{emacs-name} runs locally under MS
+Windows, this method isn't available.  Instead of, you can use UNC
+file names like @file{//melancholia/daniel$$/.emacs}.  The only
+disadvantage is that there's no possibility to specify another user
+name.
 
 @end table
 
@@ -1197,6 +1207,21 @@ in such files, it can return host names only.
 This function returns the host nicknames defined by @code{Host} entries
 in @file{~/.ssh/config} style files.
 
+@item @code{tramp-parse-shostkeys}
+@findex tramp-parse-shostkeys
+
+SSH2 parsing of directories @file{/etc/ssh2/hostkeys/*} and
+@file{~/ssh2/hostkeys/*}.  Hosts are coded in file names
+@file{hostkey_PORTNUMBER_HOST-NAME.pub}.  User names are always nil.
+
+@item @code{tramp-parse-sknownhosts}
+@findex tramp-parse-shostkeys
+
+Another SSH2 style parsing of directories like
+@file{/etc/ssh2/knownhosts/*} and @file{~/ssh2/knownhosts/*}.  This
+case, hosts names are coded in file names
+@file{HOST-NAME.ALGORITHM.pub}.  User names are always nil.
+
 @item @code{tramp-parse-hosts}
 @findex tramp-parse-hosts
 
@@ -1233,6 +1258,49 @@ Example:
 @end defun
 
 
+@node Password caching
+@section Reusing passwords for several connections.
+@cindex passwords
+
+Sometimes it is necessary to connect to the same remote host several
+times.  Reentering passwords again and again would be annoying, when
+the choosen method does not support access without password prompt
+throught own configuration.
+
+By default, @tramp{} caches the passwords entered by you.  They will
+be reused next time if a connection needs them for the same user name
+and host name, independant of the connection method.
+
+@vindex password-cache-expiry
+Passwords are not saved permanently, that means the password caching
+is limited to the lifetime of your @value{emacs-name} session.  You
+can influence the lifetime of password caching by customizing the
+variable @code{password-cache-expiry}.  The value is the number of
+seconds how long passwords are cached.  Setting it to @code{nil}
+disables the expiration.
+
+@findex tramp-clear-passwd
+A password is removed from the cache if a connection isn't established
+successfully.  You can remove a password from the cache also by
+executing @kbd{M-x tramp-clear-passwd} in a buffer containing a
+related remote file or directory.
+
+@vindex password-cache
+If you don't like this feature for security reasons, password caching
+can be disabled totally by customizing the variable
+@code{password-cache} (setting it to @code{nil}).
+
+Implementation Note: password caching is based on the package
+password.el in No Gnus.  For the time being, it is activated only when
+this package is seen in the @code{load-path} while loading @tramp{}.
+@ifset tramp-inst
+If you don't use No Gnus, you can take password.el from the @tramp{}
+@file{contrib} directory, see @ref{Installation parameters}.
+@end ifset
+It will be activated mandatory once No Gnus has found its way into
+@value{emacs-name}.
+
+
 @node Remote Programs
 @section How @tramp{} finds and uses programs on the remote machine.
 
@@ -1426,16 +1494,15 @@ find out if the shell is Bourne-ish?
 @cindex backup
 @vindex backup-directory-alist
 
-Explaining auto-save is still to do.
-
-Normally, Emacs writes backup files to the same directory as the
-original files, but this behavior can be changed via the variable
-@code{backup-directory-alist}.  In connection with @tramp{}, this can
-have unexpected side effects.  Suppose that you specify that all backups
-should go to the directory @file{~/.emacs.d/backups/}, and then you edit
-the file @file{/su:root@@localhost:/etc/secretfile}.  The effect is that
-the backup file will be owned by you and not by root, thus possibly
-enabling others to see it even if they were not intended to see it.
+Normally, @value{emacs-name} writes backup files to the same directory
+as the original files, but this behavior can be changed via the
+variable @code{backup-directory-alist}.  In connection with @tramp{},
+this can have unexpected side effects.  Suppose that you specify that
+all backups should go to the directory @file{~/.emacs.d/backups/}, and
+then you edit the file @file{/su:root@@localhost:/etc/secretfile}.
+The effect is that the backup file will be owned by you and not by
+root, thus possibly enabling others to see it even if they were not
+intended to see it.
 
 When @code{backup-directory-alist} is nil (the default), such problems
 do not occur.
@@ -1451,6 +1518,29 @@ effectively `turns off' the effect of @code{backup-directory-alist} for
              (cons tramp-file-name-regexp nil))
 @end lisp
 
+The same problem can happen with auto-saving files.
+@ifset emacs
+Since @value{emacs-name} 21, the variable
+@code{auto-save-file-name-transforms} keeps information, on which
+directory an auto-saved file should go.  By default, it is initialized
+for @tramp{} files to the local temporary directory.
+
+On some versions of @value{emacs-name}, namely the version built for
+Debian Linux, the variable @code{auto-save-file-name-transforms}
+contains the directory where @value{emacs-name} was built.  A
+workaround is to manually set the variable to a sane value.
+
+If auto-saved files should go into the same directory as the original
+files, @code{auto-save-file-name-transforms} should be set to nil.
+
+Another possibility is to set the variable
+@code{tramp-auto-save-directory} to a proper value.
+@end ifset
+@ifset xemacs
+For this purpose you can set the variable
+@code{tramp-auto-save-directory} to a proper value.
+@end ifset
+
 
 @node Windows setup hints
 @section Issues with Cygwin ssh
@@ -1468,29 +1558,30 @@ setting up Cygwin in their FAQ at @uref{http://cygwin.com/faq/}.
 @cindex method scpx with Cygwin
 @cindex scpx method with Cygwin
 If you wish to use the @code{scpx} connection method, then you might
-have the problem that Emacs calls @code{scp} with a Windows filename
-such as @code{c:/foo}.  The Cygwin version of @code{scp} does not know
-about Windows filenames and interprets this as a remote filename on the
-host @code{c}.
+have the problem that @value{emacs-name} calls @code{scp} with a
+Windows filename such as @code{c:/foo}.  The Cygwin version of
+@code{scp} does not know about Windows filenames and interprets this
+as a remote filename on the host @code{c}.
 
 One possible workaround is to write a wrapper script for @code{scp}
 which converts the Windows filename to a Cygwinized filename.
 
-I guess that another workaround is to run Emacs under Cygwin, or to run
-a Cygwinized Emacs.
+I guess that another workaround is to run @value{emacs-name} under
+Cygwin, or to run a Cygwinized @value{emacs-name}.
 
 @cindex Cygwin and ssh-agent
-@cindex SSH_AUTH_SOCK and Emacs on Windows
+@cindex SSH_AUTH_SOCK and @value{emacs-name} on Windows
 If you want to use either @code{ssh} based method on Windows, then you
 might encounter problems with @code{ssh-agent}.  Using this program,
 you can avoid typing the pass-phrase every time you log in (and the
 @code{scpx} method more or less requires you to use @code{ssh-agent}
 because it does not allow you to type a password or pass-phrase).
-However, if you start Emacs from a desktop shortcut, then the
-environment variable @code{SSH_AUTH_SOCK} is not set and so Emacs and
-thus @tramp{} and thus @code{ssh} and @code{scp} started from @tramp{}
-cannot communicate with @code{ssh-agent}.  It works better to start
-Emacs from the shell.
+However, if you start @value{emacs-name} from a desktop shortcut, then
+the environment variable @code{SSH_AUTH_SOCK} is not set and so
+@value{emacs-name} and thus @tramp{} and thus @code{ssh} and
+@code{scp} started from @tramp{} cannot communicate with
+@code{ssh-agent}.  It works better to start @value{emacs-name} from
+the shell.
 
 If anyone knows how to start @code{ssh-agent} under Windows in such a
 way that desktop shortcuts can profit, please holler.  I don't really
@@ -1510,15 +1601,15 @@ details of the system to connect to.  This is similar to the syntax used
 by the @value{ftp-package-name} package.
 
 @cindex type-ahead
-Something that might happen which surprises you is that Emacs
-remembers all your keystrokes, so if you see a password prompt from
-Emacs, say, and hit @kbd{@key{RET}} twice instead of once, then the
-second keystroke will be processed by Emacs after @tramp{} has done
-its thing.  Why, this type-ahead is normal behavior, you say.  Right
-you are, but be aware that opening a remote file might take quite a
-while, maybe half a minute when a connection needs to be opened.
-Maybe after half a minute you have already forgotten that you hit that
-key!
+Something that might happen which surprises you is that
+@value{emacs-name} remembers all your keystrokes, so if you see a
+password prompt from @value{emacs-name}, say, and hit @kbd{@key{RET}}
+twice instead of once, then the second keystroke will be processed by
+@value{emacs-name} after @tramp{} has done its thing.  Why, this
+type-ahead is normal behavior, you say.  Right you are, but be aware
+that opening a remote file might take quite a while, maybe half a
+minute when a connection needs to be opened.  Maybe after half a
+minute you have already forgotten that you hit that key!
 
 @menu
 * Filename Syntax::             @tramp{} filename conventions.
@@ -1606,7 +1697,7 @@ in my home directory I would specify the filename
 
 The syntax of multi-hop file names is necessarily slightly different
 than the syntax of other @tramp{} file names.  Here's an example
-multi-hop file name, first in Emacs syntax and then in XEmacs syntax:
+multi-hop file name:
 
 @example
 @value{tramp-prefix}multi@value{tramp-postfix-single-hop}rsh@value{tramp-postfix-multi-hop}out@@gate@value{tramp-postfix-single-hop}telnet@value{tramp-postfix-multi-hop}kai@@real.host@value{tramp-postfix}/path/to.file
@@ -1769,7 +1860,7 @@ Where can I get the latest @tramp{}?
 There is also a Savannah project page.
 
 @noindent
-@uref{https://savannah.gnu.org/projects/tramp/}
+@uref{http://savannah.nongnu.org/projects/tramp/}
 
 @item
 Which systems does it work on?
@@ -1779,8 +1870,9 @@ as XEmacs 21.  XEmacs 20 is more problematic, see the notes in
 @file{tramp.el}.  I don't think anybody has really tried it on Emacs 19.
 
 The package was intended to work on Unix, and it really expects a
-Unix-like system on the remote end, but some people seemed to have some
-success getting it to work on NT Emacs.
+Unix-like system on the remote end (except the @option{smb} method),
+but some people seemed to have some success getting it to work on NT
+Emacs.
 
 There is some informations on @tramp{} on NT at the following URL;
 many thanks to Joe Stoy for providing the information:
@@ -1888,8 +1980,9 @@ work on NT with some tweaking.
 @item
 How can I get notified when @tramp{} file transfers are complete?
 
-The following snippet can be put in your @file{~/.emacs} file.  It makes
-Emacs beep after reading from or writing to the remote host.
+The following snippet can be put in your @file{~/.emacs} file.  It
+makes @value{emacs-name} beep after reading from or writing to the
+remote host.
 
 @lisp
 (defadvice tramp-handle-write-region
@@ -2036,10 +2129,11 @@ Minor implementation details, &c.
 @node Remote File Ownership
 @subsection How VC determines who owns a workfile
 
-Emacs provides the @code{user-full-name} function to return the login name
-of the current user as well as mapping from arbitrary user id values
-back to login names. The VC code uses this functionality to map from the
-uid of the owner of a workfile to the login name in some circumstances.
+@value{emacs-name} provides the @code{user-full-name} function to
+return the login name of the current user as well as mapping from
+arbitrary user id values back to login names. The VC code uses this
+functionality to map from the uid of the owner of a workfile to the
+login name in some circumstances.
 
 This will not, for obvious reasons, work if the remote system has a
 different set of logins. As such, it is necessary to delegate to the
@@ -2157,6 +2251,29 @@ uses EFS for downloading new packages.  So, obviously, EFS has to be
 installed from the start.  If the filenames were unified, @tramp{}
 would have to be installed from the start, too.
 
+@ifset xemacs
+@strong{Note:} If you'ld like to use a similar syntax like
+@value{ftp-package-name}, you need the following settings in your init
+file:
+
+@lisp
+(setq tramp-unified-filenames t)
+(require 'tramp)
+@end lisp
+
+The autoload of the @value{emacs-name} @tramp{} package must be
+disabled.  This can be achieved by setting file permissions @code{000}
+to the files @file{.../xemacs-packages/lisp/tramp/auto-autoloads.el*}.
+
+In case of unified filenames, all @value{emacs-name} download sites
+are added to @code{tramp-default-method-alist} with default method
+@code{ftp} @xref{Default Method}.  These settings shouldn't be touched
+for proper working of the @value{emacs-name} package system.
+
+The syntax for unified filenames is described in the @tramp{} manual
+for @value{emacs-other-name}.
+@end ifset
+
 @end itemize
 
 @node Concept Index
@@ -2181,7 +2298,3 @@ would have to be installed from the start, too.
 @c ** Use `filename' resp. `file name' consistently.
 @c ** Use `host' resp. `machine' consistently.
 @c ** Consistent small or capitalized words especially in menues.
-
-@ignore
-   arch-tag: f96dd66e-6dd3-4c92-8d77-9c56205ba808
-@end ignore
diff --git a/man/trampver.texi b/man/trampver.texi
index ae80490d703..d6b9c73610b 100644
--- a/man/trampver.texi
+++ b/man/trampver.texi
@@ -5,7 +5,7 @@
 @c configure.ac, so you should edit that file and run
 @c "autoconf && ./configure" to change the version number.
 @macro trampver{}
-2.0.38
+2.0.39
 @end macro
 
 @c Other flags from configuration
@@ -60,6 +60,3 @@
 @c Otherwise, '/dev/null/' is taken, which leaves this part empty.
 
 
-@ignore
-   arch-tag: e0fe322c-e06b-46eb-bb5b-d091b521f41c
-@end ignore