[Emacs-diffs] Changes to emacs/lisp/gnus/auth-source.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/05/10 05:34:55

Index: auth-source.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/auth-source.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- auth-source.el      6 May 2008 03:54:51 -0000       1.5
+++ auth-source.el      10 May 2008 05:34:55 -0000      1.6
@@ -39,8 +39,18 @@
 
 ;; before you put some data in ~/.authinfo.gpg (the default place)
 
+;;; For url-auth authentication (HTTP/HTTPS), you need to use:
+
+;;; machine yourmachine.com:80 port http login testuser password testpass
+
+;;; This will match any realm and authentication method (basic or
+;;; digest).  If you want finer controls, explore the url-auth source
+;;; code and variables.
+
 ;;; Code:
 
+(require 'gnus-util)
+
 (eval-when-compile (require 'cl))
 (eval-when-compile (require 'netrc))
 
@@ -135,6 +145,9 @@
 
 (defun auth-source-user-or-password (mode host protocol)
   "Find user or password (from the string MODE) matching HOST and PROTOCOL."
+  (gnus-message 9 
+               "auth-source-user-or-password: get %s for %s (%s)"
+               mode host protocol)
   (let (found)
     (dolist (choice (auth-source-pick host protocol))
       (setq found (netrc-machine-user-or-password 
@@ -144,6 +157,12 @@
                   (list (format "%s" protocol))
                   (auth-source-protocol-defaults protocol)))
       (when found
+       (gnus-message 9 
+                     "auth-source-user-or-password: found %s=%s for %s (%s)"
+                     mode 
+                     ;; don't show the password
+                     (if (equal mode "password") "SECRET" found) 
+                     host protocol)
        (return found)))))
 
 (defun auth-source-protocol-defaults (protocol)