[Emacs-diffs] /srv/bzr/emacs/trunk r103970: nnimap.el (nnimap-user): New backend variable.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103970
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-04-22 01:01:32 +0000
message:
  nnimap.el (nnimap-user): New backend variable.
   (nnimap-open-connection-1): Use it.
   (nnimap-credentials): Accept user parameter so it's explicit what user name 
is desired.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-22 00:37:01 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-22 01:01:32 +0000
@@ -1,4 +1,9 @@
-2011-04-21  Teodor Zlatanov  <address@hidden>
+2011-04-22  Teodor Zlatanov  <address@hidden>
+
+       * nnimap.el (nnimap-user): New backend variable.
+       (nnimap-open-connection-1): Use it.
+       (nnimap-credentials): Accept user parameter so it's explicit what user
+       name is desired.
 
        * gnus-sum.el (gnus-extra-headers): Add Keywords, Cc, and Gcc to
        default.

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2011-04-02 23:41:03 +0000
+++ b/lisp/gnus/nnimap.el       2011-04-22 01:01:32 +0000
@@ -58,6 +58,9 @@
 (defvoo nnimap-address nil
   "The address of the IMAP server.")
 
+(defvoo nnimap-user nil
+  "Username to use for authentication to the IMAP server.")
+
 (defvoo nnimap-server-port nil
   "The IMAP port used.
 If nnimap-stream is `ssl', this will default to `imaps'.  If not,
@@ -283,13 +286,14 @@
     (push (current-buffer) nnimap-process-buffers)
     (current-buffer)))
 
-(defun nnimap-credentials (address ports)
+(defun nnimap-credentials (address ports user)
   (let* ((auth-source-creation-prompts
           '((user  . "IMAP user at %h: ")
             (secret . "IMAP password for address@hidden: ")))
          (found (nth 0 (auth-source-search :max 1
                                            :host address
                                            :port ports
+                                           :user user
                                            :require '(:user :secret)
                                            :create t))))
     (if found
@@ -408,7 +412,8 @@
                                 (list
                                  nnimap-address
                                  (nnoo-current-server 'nnimap)))
-                                ports))))
+                                ports
+                                nnimap-user))))
                  (setq nnimap-object nil)
                (let ((nnimap-inhibit-logging t))
                  (setq login-result