Mercurial > emacs
changeset 107433:02eb32da1fbb
* auth-source.el (netrc-machine-user-or-password): Autoload.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Fri, 19 Mar 2010 11:29:02 +0100 |
| parents | 340849d761a5 |
| children | 11244653958e d9d618029804 |
| files | lisp/gnus/ChangeLog lisp/gnus/auth-source.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Mar 19 02:46:08 2010 -0700 +++ b/lisp/gnus/ChangeLog Fri Mar 19 11:29:02 2010 +0100 @@ -1,3 +1,7 @@ +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.
--- a/lisp/gnus/auth-source.el Fri Mar 19 02:46:08 2010 -0700 +++ b/lisp/gnus/auth-source.el Fri Mar 19 11:29:02 2010 +0100 @@ -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 @@ 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 @@ ;; 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))))