From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 19 Mar 2010 10:29:02 +0000 (+0100)
Subject: * auth-source.el (netrc-machine-user-or-password): Autoload.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~711
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d1a916339218bdbd5654dc69f90a5d0ecdb80c0;p=emacs.git

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8a3aee285d1..58d1c0dc8da 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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.
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 284e6e911bd..82c9ea8a44d 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))))