aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/net/tramp.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 08e9e6bc3f4..a558ccd41fd 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -151,7 +151,12 @@
151 'tramp-gvfs) 151 'tramp-gvfs)
152 152
153 ;; Load gateways. It needs `make-network-process' from Emacs 22. 153 ;; Load gateways. It needs `make-network-process' from Emacs 22.
154 (when (functionp 'make-network-process) 'tramp-gw))) 154 (when (functionp 'make-network-process) 'tramp-gw)
155
156 ;; tramp-imap needs both epa (from Emacs 23.1) and imap-hash
157 ;; (from Emacs 23.2).
158 (when (and (locate-library "epa") (locate-library "imap-hash"))
159 'tramp-imap)))
155 160
156 (when feature 161 (when feature
157 ;; We have used just some basic tests, whether a package shall 162 ;; We have used just some basic tests, whether a package shall
@@ -3788,7 +3793,7 @@ This is like `dired-recursive-delete-directory' for Tramp files."
3788 (if (memq (char-after end) '(?\n ?\ )) 3793 (if (memq (char-after end) '(?\n ?\ ))
3789 ;; End is followed by \n or by " -> ". 3794 ;; End is followed by \n or by " -> ".
3790 (put-text-property start end 'dired-filename t))))) 3795 (put-text-property start end 'dired-filename t)))))
3791 ;; Reove training lines. 3796 ;; Remove trailing lines.
3792 (goto-char (tramp-compat-line-beginning-position)) 3797 (goto-char (tramp-compat-line-beginning-position))
3793 (while (looking-at "//") 3798 (while (looking-at "//")
3794 (forward-line 1) 3799 (forward-line 1)