diff options
| author | Katsumi Yamaoka | 2011-06-23 23:17:26 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2011-06-23 23:17:26 +0000 |
| commit | 74e8193b79e4badaf098d0736110c493a6c8aa96 (patch) | |
| tree | 84831721adf2cb0efb9cd2a18ee9c72805bf4861 | |
| parent | 14b4e83d6235ac48c563deda84f5fffe489f9a95 (diff) | |
| download | emacs-74e8193b79e4badaf098d0736110c493a6c8aa96.tar.gz emacs-74e8193b79e4badaf098d0736110c493a6c8aa96.zip | |
auth-source.el (auth-source-netrc-cache): Move forward.
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/auth-source.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f0b8c205c9e..e08d52ddbde 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-06-23 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 2 | |||
| 3 | * auth-source.el (auth-source-netrc-cache): Move forward. | ||
| 4 | |||
| 1 | 2011-06-22 Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 | 2011-06-22 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 6 | ||
| 3 | * auth-source.el (auth-source-netrc-create): Don't query the bits that | 7 | * 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 6fe033fea79..66497cd9a0c 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el | |||
| @@ -705,6 +705,8 @@ Returns the deleted entries." | |||
| 705 | (equal collection value) | 705 | (equal collection value) |
| 706 | (member value collection))) | 706 | (member value collection))) |
| 707 | 707 | ||
| 708 | (defvar auth-source-netrc-cache nil) | ||
| 709 | |||
| 708 | (defun auth-source-forget-all-cached () | 710 | (defun auth-source-forget-all-cached () |
| 709 | "Forget all cached auth-source data." | 711 | "Forget all cached auth-source data." |
| 710 | (interactive) | 712 | (interactive) |
| @@ -816,8 +818,6 @@ while \(:host t) would find all host entries." | |||
| 816 | 818 | ||
| 817 | ;;; Backend specific parsing: netrc/authinfo backend | 819 | ;;; Backend specific parsing: netrc/authinfo backend |
| 818 | 820 | ||
| 819 | (defvar auth-source-netrc-cache nil) | ||
| 820 | |||
| 821 | ;;; (auth-source-netrc-parse "~/.authinfo.gpg") | 821 | ;;; (auth-source-netrc-parse "~/.authinfo.gpg") |
| 822 | (defun* auth-source-netrc-parse (&rest | 822 | (defun* auth-source-netrc-parse (&rest |
| 823 | spec | 823 | spec |