[Emacs-diffs] emacs/lisp ChangeLog mail/smtpmail.el

[Simon Josefsson]

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