Commit 7d1a9163 authored by Michael Albinus's avatar Michael Albinus
Browse files

* auth-source.el (netrc-machine-user-or-password): Autoload.

parent a3ab37b3
2010-03-19 Michael Albinus <michael.albinus@gmx.de>
* auth-source.el (netrc-machine-user-or-password): Autoload.
2010-03-19 Glenn Morris <rgm@gnu.org>
Stop message.el from loading about 40 libraries it doesn't always need.
......
......@@ -34,7 +34,7 @@
(require 'gnus-util)
(eval-when-compile (require 'cl))
(eval-when-compile (require 'netrc))
(autoload 'netrc-machine-user-or-password "netrc")
(defgroup auth-source nil
"Authentication sources."
......@@ -86,7 +86,7 @@ If the value is a function, debug messages are logged by calling
that function using the same arguments as `message'."
:group 'auth-source
:version "23.1" ;; No Gnus
:type `(choice
:type `(choice
:tag "auth-source debugging mode"
(const :tag "Log using `message' to the *Messages* buffer" t)
(function :tag "Function that takes arguments like `message'")
......@@ -145,7 +145,7 @@ Each entry is the authentication type with optional properties."
;; we also check the value
(when auth-source-debug
(let ((logger (if (functionp auth-source-debug)
auth-source-debug
auth-source-debug
'message)))
(apply logger msg))))
......
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