Commit 43d28dcd authored by Michael Albinus's avatar Michael Albinus
Browse files

* auth-source.el: Precise Tramp doc.

parent 942b4750
2008-06-08 Michael Albinus <>
* auth-source.el: Precise Tramp doc.
2008-06-07 Glenn Morris <>
* nnmairix.el: Remove unnecessary eval-when-compile.
......@@ -48,14 +48,12 @@
;;; digest). If you want finer controls, explore the url-auth source
;;; code and variables.
;;; (Tramp patch pending for this!)
;;; For tramp authentication, use:
;;; machine port tramp login testuser password testpass
;;; machine port scp login testuser password testpass
;;; Note that the port can be scp or ssh, for example, to match only
;;; those protocols. When you use port = tramp, you match any Tramp
;;; protocol.
;;; Note that the port denotes the Tramp connection method. When you
;;; don't use a port entry, you match any Tramp method.
;;; Code:
......@@ -88,7 +86,7 @@
(defconst auth-source-protocols-customize
(mapcar (lambda (a)
(let ((p (car-safe a)))
(list 'const
(list 'const
:tag (upcase (symbol-name p))
......@@ -154,23 +152,23 @@ Returns fallback choices (where PROTOCOL or HOST are nil) with FALLBACK t."
(defun auth-source-user-or-password (mode host protocol)
"Find user or password (from the string MODE) matching HOST and PROTOCOL."
(gnus-message 9
(gnus-message 9
"auth-source-user-or-password: get %s for %s (%s)"
mode host protocol)
(let (found)
(dolist (choice (auth-source-pick host protocol))
(setq found (netrc-machine-user-or-password
(setq found (netrc-machine-user-or-password
(plist-get choice :source)
(list host)
(list (format "%s" protocol))
(auth-source-protocol-defaults protocol)))
(when found
(gnus-message 9
(gnus-message 9
"auth-source-user-or-password: found %s=%s for %s (%s)"
;; don't show the password
(if (equal mode "password") "SECRET" found)
(if (equal mode "password") "SECRET" found)
host protocol)
(return found)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment