[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog mail/smtpmail.el
From: |
Simon Josefsson |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog mail/smtpmail.el |
Date: |
Tue, 03 Mar 2009 16:28:20 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Simon Josefsson <jas> 09/03/03 16:28:19
Modified files:
lisp : ChangeLog
lisp/mail : smtpmail.el
Log message:
(smtpmail-auth-supported): Mention that list is
in preference order.
(smtpmail-try-auth-methods): Improve which authentication
mechanism to use, so that the locally most preferred and mutually
supported mechanism is used.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15426&r2=1.15427
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/smtpmail.el?cvsroot=emacs&r1=1.108&r2=1.109
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15426
retrieving revision 1.15427
diff -u -b -r1.15426 -r1.15427
--- ChangeLog 3 Mar 2009 16:12:02 -0000 1.15426
+++ ChangeLog 3 Mar 2009 16:28:17 -0000 1.15427
@@ -1,3 +1,11 @@
+2009-03-03 Simon Josefsson <address@hidden>
+
+ * mail/smtpmail.el (smtpmail-auth-supported): Mention that list is
+ in preference order.
+ (smtpmail-try-auth-methods): Improve which authentication
+ mechanism to use, so that the locally most preferred and mutually
+ supported mechanism is used.
+
2009-03-03 Stefan Monnier <address@hidden>
* emacs-lisp/lisp.el (end-of-defun-function): Make it more clear that
Index: mail/smtpmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/smtpmail.el,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -b -r1.108 -r1.109
--- mail/smtpmail.el 5 Jan 2009 03:22:37 -0000 1.108
+++ mail/smtpmail.el 3 Mar 2009 16:28:19 -0000 1.109
@@ -218,7 +218,8 @@
(defvar smtpmail-read-point)
(defconst smtpmail-auth-supported '(cram-md5 plain login)
- "List of supported SMTP AUTH mechanisms.")
+ "List of supported SMTP AUTH mechanisms.
+The list is in preference order.")
(defvar smtpmail-mail-address nil
"Value to use for envelope-from address for mail from ambient buffer.")
@@ -534,7 +535,7 @@
(defun smtpmail-try-auth-methods (process supported-extensions host port)
(let* ((mechs (cdr-safe (assoc 'auth supported-extensions)))
- (mech (car (smtpmail-intersection smtpmail-auth-supported mechs)))
+ (mech (car (smtpmail-intersection mechs smtpmail-auth-supported)))
(auth-user (auth-source-user-or-password
"login" host (or port "smtp")))
(auth-pass (auth-source-user-or-password
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog mail/smtpmail.el,
Simon Josefsson <=