[Emacs-diffs] /srv/bzr/emacs/trunk r99694: * auth-source.el (netrc-machine-user-or-password): Autoload.

[Michael Albinus]

------------------------------------------------------------
revno: 99694
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2010-03-19 11:29:02 +0100
message:
  * auth-source.el (netrc-machine-user-or-password): Autoload.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/auth-source.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-03-19 02:55:37 +0000
+++ b/lisp/gnus/ChangeLog       2010-03-19 10:29:02 +0000
@@ -1,3 +1,7 @@
+2010-03-19  Michael Albinus  <address@hidden>
+
+       * auth-source.el (netrc-machine-user-or-password): Autoload.
+
 2010-03-19  Glenn Morris  <address@hidden>
 
        Stop message.el from loading about 40 libraries it doesn't always need.

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2010-01-13 08:35:10 +0000
+++ b/lisp/gnus/auth-source.el  2010-03-19 10:29:02 +0000
@@ -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))))