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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 57182504331cf4ba02b3064cb51f1f5436becb65..4a8311f6e0a559930f696db516a21aa309262f95 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,4 +1,9 @@
-2011-04-21  Teodor Zlatanov  <tzz@lifelogs.com>
+2011-04-22  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * 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.

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index afdea185dd3111db27eb8b26eb0176260932cd96..f819c17afe8fdbc85c9fc3075c7ab92fe43699a9 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -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 @@ textual parts.")
     (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 %u@%h: ")))
          (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 @@ textual parts.")
                                 (list
                                  nnimap-address
                                  (nnoo-current-server 'nnimap)))
-                                ports))))
+                                ports
+                                nnimap-user))))
                  (setq nnimap-object nil)
                (let ((nnimap-inhibit-logging t))
                  (setq login-result