diff options
| author | Michael Albinus <[email protected]> | 2010-03-19 11:29:02 +0100 |
|---|---|---|
| committer | Michael Albinus <[email protected]> | 2010-03-19 11:29:02 +0100 |
| commit | 7d1a916339218bdbd5654dc69f90a5d0ecdb80c0 (patch) | |
| tree | bdbc7412a3293af8aca7884f413540ed354d4ebb | |
| parent | a3ab37b334b5de7fc55423aff0d174b3edb52a81 (diff) | |
* auth-source.el (netrc-machine-user-or-password): Autoload.
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/auth-source.el | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8a3aee285d..58d1c0dc8d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-03-19 Michael Albinus <[email protected]> + + * auth-source.el (netrc-machine-user-or-password): Autoload. + 2010-03-19 Glenn Morris <[email protected]> Stop message.el from loading about 40 libraries it doesn't always need. diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 284e6e911b..82c9ea8a44 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -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)))) |