Reuse already read `capabilities'
* lisp/mail/smtpmail.el (smtpmail-via-smtp): Reuse already read `capabilities'. (Bug#72544)
This commit is contained in:
parent
944e45db53
commit
24b7f810d8
1 changed files with 1 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue