auth-source.el (auth-source-netrc-cache): Move forward.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f0b8c205c9e2778302cd411ee0cf734404896caf..e08d52ddbde2313a6fb9d793f5236fdb958f9852 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * auth-source.el (auth-source-netrc-cache): Move forward.
+
 2011-06-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * auth-source.el (auth-source-netrc-create): Don't query the bits that

diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 6fe033fea790ce5eea5ad40eb502ac35633a6076..66497cd9a0c867d729037453ea78b551b5b86159 100644 (file)
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -705,6 +705,8 @@ Returns the deleted entries."
       (equal collection value)
       (member value collection)))
 
+(defvar auth-source-netrc-cache nil)
+
 (defun auth-source-forget-all-cached ()
   "Forget all cached auth-source data."
   (interactive)
@@ -816,8 +818,6 @@ while \(:host t) would find all host entries."
 
 ;;; Backend specific parsing: netrc/authinfo backend
 
-(defvar auth-source-netrc-cache nil)
-
 ;;; (auth-source-netrc-parse "~/.authinfo.gpg")
 (defun* auth-source-netrc-parse (&rest
                                  spec