From 21186344e31e469c9e64b1b89977a20ed9605914 Mon Sep 17 00:00:00 2001 From: Kevin Brubeck Unhammer Date: Mon, 20 Jun 2022 21:48:21 +0200 Subject: [PATCH] * lisp/mail/mail-extr.el: only set fundamental-mode if unset (mail-extract-address-components): Avoid unnecessarily running mode hooks meant for interactive use --- lisp/mail/mail-extr.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 50ba04ccc1..8713075db0 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -716,7 +716,8 @@ mail-extract-address-components value-list) (with-current-buffer (get-buffer-create extraction-buffer) - (fundamental-mode) + (unless (eq major-mode 'fundamental-mode) + (fundamental-mode)) (buffer-disable-undo extraction-buffer) (set-syntax-table mail-extr-address-syntax-table) (widen) @@ -738,7 +739,7 @@ mail-extract-address-components (set-text-properties (point-min) (point-max) nil) (with-current-buffer (get-buffer-create canonicalization-buffer) - (fundamental-mode) + (unless (eq major-mode 'fundamental-mode) (fundamental-mode)) (buffer-disable-undo canonicalization-buffer) (setq case-fold-search nil)) -- 2.25.1