Changes committed gnus/lisp (ChangeLog auth-source.el)

Modified: ChangeLog auth-source.el

(auth-sources): Renamed from auth-source-choices.
(auth-source-pick): Use it.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1789 gnus/lisp/ChangeLog:7.1790
--- ChangeLog:7.1789	Wed Mar 12 22:28:45 2008
+++ ChangeLog	Thu Mar 13 10:58:46 2008
@@ -1,3 +1,8 @@
+2008-03-13  Teodor Zlatanov  <[email protected]>
+
+	* auth-source.el (auth-sources): Renamed from auth-source-choices.
+	(auth-source-pick): Use it.
+
 2008-03-12  Teodor Zlatanov  <[email protected]>
 
 	* auth-source.el (auth-source-protocols)
Index: auth-source.el
diff -u gnus/lisp/auth-source.el:7.3 gnus/lisp/auth-source.el:7.4
--- auth-source.el:7.3	Wed Mar 12 22:28:45 2008
+++ auth-source.el	Thu Mar 13 10:58:46 2008
@@ -63,7 +63,7 @@
 	  auth-source-protocols))
 
 ;;; this default will be changed to ~/.authinfo.gpg
-(defcustom auth-source-choices '((:source "~/.authinfo.enc" :host t :protocol t))
+(defcustom auth-sources '((:source "~/.authinfo.enc" :host t :protocol t))
   "List of authentication sources.
 
 Each entry is the authentication type with optional properties."
@@ -86,10 +86,10 @@
 
 ;; temp for debugging
 ;; (unintern 'auth-source-protocols)
-;; (unintern 'auth-source-choices)
-;; (customize-variable 'auth-source-choices)
-;; (setq auth-source-choices nil)
-;; (format "%S" auth-source-choices)
+;; (unintern 'auth-sources)
+;; (customize-variable 'auth-sources)
+;; (setq auth-sources nil)
+;; (format "%S" auth-sources)
 ;; (customize-variable 'auth-source-protocols)
 ;; (setq auth-source-protocols nil)
 ;; (format "%S" auth-source-protocols)
@@ -101,12 +101,12 @@
 ;; (auth-source-protocol-defaults 'imap)
 
 (defun auth-source-pick (host protocol &optional fallback)
-  "Parse `auth-source-choices' for HOST and PROTOCOL matches.
+  "Parse `auth-sources' for HOST and PROTOCOL matches.
 
 Returns fallback choices (where PROTOCOL or HOST are nil) with FALLBACK t."
   (interactive "sHost: \nsProtocol: \n") ;for testing
   (let (choices)
-    (dolist (choice auth-source-choices)
+    (dolist (choice auth-sources)
       (let ((h (plist-get choice :host))
 	    (p (plist-get choice :protocol)))
 	(when (and