Speed up mail-extr in some configurations

* lisp/mail/mail-extr.el (mail-extract-address-components):
(mail-extract-address-components): The buffer is already in
fundamental-mode, so don't re-enable it (bug#56113).
This commit is contained in:
Kevin Brubeck Unhammer 2022-06-21 13:02:05 +02:00 committed by Lars Ingebrigtsen
parent 3d4b389f32
commit 97950f2bc4

View file

@ -716,7 +716,6 @@ to the results."
value-list)
(with-current-buffer (get-buffer-create extraction-buffer)
(fundamental-mode)
(buffer-disable-undo extraction-buffer)
(set-syntax-table mail-extr-address-syntax-table)
(widen)
@ -738,7 +737,6 @@ to the results."
(set-text-properties (point-min) (point-max) nil)
(with-current-buffer (get-buffer-create canonicalization-buffer)
(fundamental-mode)
(buffer-disable-undo canonicalization-buffer)
(setq case-fold-search nil))