diff options
| -rw-r--r-- | lisp/gnus/nnimap.el | 9 | ||||
| -rw-r--r-- | lisp/mail/smtpmail.el | 7 |
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. |
| 100 | This may be either nil (upgrade with STARTTLS if possible), | 100 | This 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 | ||
| 104 | to `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. |