Reuse already read `capabilities'

* lisp/mail/smtpmail.el (smtpmail-via-smtp): Reuse already read
`capabilities'.  (Bug#72544)

(cherry picked from commit 24b7f810d843f2264131b881c6f451e7bd041b40)

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 98083c0489acec5dbe9bcad5a47bf845cd0c76aa..c98fdfd10ed3954fa550a622121524f0aec010b1 100644 (file)
--- 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