From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.devel Subject: nnimap-user setting? Date: Wed, 13 Apr 2011 14:22:47 -0300 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1302715380 31668 80.91.229.12 (13 Apr 2011 17:23:00 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 13 Apr 2011 17:23:00 +0000 (UTC) Cc: emacs-devel@gnu.org To: Lars Magne Ingebrigtsen , Simon Josefsson Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Apr 13 19:22:56 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QA3mJ-0002hS-I3 for ged-emacs-devel@m.gmane.org; Wed, 13 Apr 2011 19:22:55 +0200 Original-Received: from localhost ([::1]:45469 helo=lists2.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QA3mI-0000Ax-W2 for ged-emacs-devel@m.gmane.org; Wed, 13 Apr 2011 13:22:54 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:37442) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QA3mG-0000Aq-ND for emacs-devel@gnu.org; Wed, 13 Apr 2011 13:22:53 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QA3mF-0000Yg-VJ for emacs-devel@gnu.org; Wed, 13 Apr 2011 13:22:52 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]:48923) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QA3mF-0000YZ-TB for emacs-devel@gnu.org; Wed, 13 Apr 2011 13:22:51 -0400 Original-Received: from 213-159-126-200.fibertel.com.ar ([200.126.159.213]:60931 helo=ceviche.home) by fencepost.gnu.org with esmtpsa (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1QA3mF-0008PM-3q; Wed, 13 Apr 2011 13:22:51 -0400 Original-Received: by ceviche.home (Postfix, from userid 20848) id C15B866119; Wed, 13 Apr 2011 14:22:47 -0300 (ART) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 140.186.70.10 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:138462 Archived-At: I'm apparently among the very few users who resist the temptation to save their IMAP password into the authinfo file, but I find that in such a case it is annoying to have to confirm the user name each and every time. So I think a patch like the one below would make sense (tho re-using nnimap-authenticator to store the user name would work as well). Stefan --- lisp/gnus/nnimap.el 2011-04-02 23:41:03 +0000 +++ lisp/gnus/nnimap.el 2011-04-12 13:43:13 +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 %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 @@ (list nnimap-address (nnoo-current-server 'nnimap))) - ports)))) + ports + nnimap-user)))) (setq nnimap-object nil) (let ((nnimap-inhibit-logging t)) (setq login-result