aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/nnimap.el9
-rw-r--r--lisp/mail/smtpmail.el7
2 files changed, 10 insertions, 6 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 566c3e3fba4..2eb6751a211 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -448,13 +448,14 @@ during splitting, which may be slow."
448 448
449(defun nnimap-open-connection (buffer) 449(defun nnimap-open-connection (buffer)
450 ;; Be backwards-compatible -- the earlier value of nnimap-stream was 450 ;; Be backwards-compatible -- the earlier value of nnimap-stream was
451 ;; `ssl' when nnimap-server-port was nil. Sort of. 451 ;; `ssl' when nnimap-server-port was nil. Sort of. But it's `tls'
452 ;; now, because we're post the Great 2025 Spelling Reform.
452 (when (and nnimap-server-port 453 (when (and nnimap-server-port
453 (eq nnimap-stream 'undecided)) 454 (eq nnimap-stream 'undecided))
454 (setq nnimap-stream 'ssl)) 455 (setq nnimap-stream 'tls))
455 (let ((stream 456 (let ((stream
456 (if (eq nnimap-stream 'undecided) 457 (if (eq nnimap-stream 'undecided)
457 (cl-loop for type in '(ssl network) 458 (cl-loop for type in '(tls network)
458 for stream = (let ((nnimap-stream type)) 459 for stream = (let ((nnimap-stream type))
459 (nnimap-open-connection-1 buffer)) 460 (nnimap-open-connection-1 buffer))
460 while (eq stream 'no-connect) 461 while (eq stream 'no-connect)
@@ -493,7 +494,7 @@ during splitting, which may be slow."
493 (nnheader-message 7 "Opening connection to %s via shell..." 494 (nnheader-message 7 "Opening connection to %s via shell..."
494 nnimap-address) 495 nnimap-address)
495 '("imap")) 496 '("imap"))
496 ((memq nnimap-stream '(ssl tls)) 497 ((memq nnimap-stream '(tls ssl))
497 (nnheader-message 7 "Opening connection to %s via tls..." 498 (nnheader-message 7 "Opening connection to %s via tls..."
498 nnimap-address) 499 nnimap-address)
499 '("imaps" "imap" "993" "143")) 500 '("imaps" "imap" "993" "143"))
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 2461ddcfd0d..2acb48438ec 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -99,12 +99,15 @@ don't define this value."
99 "Type of SMTP connections to use. 99 "Type of SMTP connections to use.
100This may be either nil (upgrade with STARTTLS if possible), 100This may be either nil (upgrade with STARTTLS if possible),
101`starttls' (refuse to send if STARTTLS isn't available), 101`starttls' (refuse to send if STARTTLS isn't available),
102`plain' (never use STARTTLS), or `ssl' (to use TLS/SSL)." 102`plain' (never use STARTTLS), or `tls' (to use TLS/SSL).
103`ssl' is accepted as a backwards-compatible equivalent
104to `tls'"
103 :version "24.1" 105 :version "24.1"
104 :type '(choice (const :tag "Possibly upgrade to STARTTLS" nil) 106 :type '(choice (const :tag "Possibly upgrade to STARTTLS" nil)
105 (const :tag "Always use STARTTLS" starttls) 107 (const :tag "Always use STARTTLS" starttls)
106 (const :tag "Never use STARTTLS" plain) 108 (const :tag "Never use STARTTLS" plain)
107 (const :tag "Use TLS/SSL" ssl))) 109 (const :tag "Use TLS/SSL" tls)
110 (const :tag "Use TLS/SSL (old name)" ssl)))
108 111
109(defcustom smtpmail-sendto-domain nil 112(defcustom smtpmail-sendto-domain nil
110 "Local domain name without a host name. 113 "Local domain name without a host name.