mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
Code Issues Releases Activity

nnimap.el (nnimap-user): New backend variable.

Browse Source 
(nnimap-open-connection-1): Use it.
 (nnimap-credentials): Accept user parameter so it's explicit what user name is desired.
This commit is contained in:
Teodor Zlatanov 2011-04-22 01:01:32 +00:00 committed by Katsumi Yamaoka
parent a6e77075d4
commit 5e68f8614f
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View File

@ -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.

9
lisp/gnus/nnimap.el
View File

@ -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