From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 21 Jan 2022 13:20:31 +0000 (+0100)
Subject: Followup fix to previous message-update-smtp-method-header change
X-Git-Tag: emacs-29.0.90~2877^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7f0a0538d954f8e99dd55a2881b905ee053797e;p=emacs.git

Followup fix to previous message-update-smtp-method-header change

* lisp/gnus/message.el (message-update-smtp-method-header): Narrow
to the headers first.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 2735c043b31..a6c6a16653d 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4360,6 +4360,7 @@ it is left unchanged."
     (let ((from (cadr (mail-extract-address-components
                        (save-restriction
                          (widen)
+                         (message-narrow-to-headers-or-head)
                          (message-fetch-field "From")))))
           method)
       (catch 'exit