From 550cff721f0f5db3959ad322d96fc2295a318dbe Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Fri, 9 Aug 2024 17:41:51 +0200 Subject: [PATCH] Reuse already read `capabilities' * lisp/mail/smtpmail.el (smtpmail-via-smtp): Reuse already read `capabilities'. (Bug#72544) (cherry picked from commit 24b7f810d843f2264131b881c6f451e7bd041b40) --- lisp/mail/smtpmail.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 98083c0489a..c98fdfd10ed 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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 -- 2.39.2