From d7f0a0538d954f8e99dd55a2881b905ee053797e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 21 Jan 2022 14:20:31 +0100 Subject: [PATCH] Followup fix to previous message-update-smtp-method-header change * lisp/gnus/message.el (message-update-smtp-method-header): Narrow to the headers first. --- lisp/gnus/message.el | 1 + 1 file changed, 1 insertion(+) 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 -- 2.39.5