(tramp-action-out-of-band): Handle scp message "Permission denied".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c53fb3cf44f0bb8477e7c4c1684c4d6cda475109..581a0569113eceab9cfc7d89155eda664d05cb2d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-02  Lars Hansen  <larsh@soem.dk>
+       * net/tramp.el (tramp-action-out-of-band): Handle scp message
+       "Permission denied".
+
 2005-11-01  Richard M. Stallman  <rms@gnu.org>
 
        * textmodes/flyspell.el (flyspell-external-point-words):

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5dc1356c6d27d00791bfda5484a2dfa55717a1dd..8555c9a83c583238b768eb396adf4c59d992e792 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5361,6 +5361,9 @@ The terminal type can be configured with `tramp-terminal-type'."
               (tramp-message 10 "'set mode' error ignored.")
               (tramp-message 9 "Process has finished.")
               (throw 'tramp-action 'ok))
+          (goto-char (point-min))
+          (when (re-search-forward "^.cp.?: \\(.+: Permission denied.?\\)$" nil t)
+            (error "Remote host: %s" (match-string 1)))
           (tramp-message 9 "Process has died.")
           (throw 'tramp-action 'process-died)))
        (t nil)))