1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00

Reuse already read `capabilities'

* lisp/mail/smtpmail.el (smtpmail-via-smtp): Reuse already read
`capabilities'.  (Bug#72544)
This commit is contained in:
Manuel Giraud 2024-08-09 17:41:51 +02:00 committed by Eli Zaretskii
parent 944e45db53
commit 24b7f810d8

View File

@ -800,11 +800,7 @@ Returns an error if the server cannot be contacted."
(smtpmail-command-or-throw
process (format "HELO %s" (smtpmail-fqdn)))
;; EHLO was successful, so we parse the extensions.
(dolist (line (delete
""
(split-string
(plist-get (cdr result) :capabilities)
"\r\n")))
(dolist (line (delete "" (split-string capabilities "\r\n")))
(let ((name
;; Use ASCII case-table to prevent I
;; downcasing to a dotless i under some