From 450ca9951a87a055eb00bd161a372cc1de02736f Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sat, 23 Sep 2023 15:33:53 -0700 Subject: [PATCH] Use delete-region in Gnus message yanking See Bug#66106 * lisp/gnus/gnus-msg.el (gnus-summary-reply): Not erase-buffer. The intention was to narrow the buffer to the headers, and then delete just those headers. But erase-buffer doesn't respect narrowing, so use (delete-region (point-min) (point-max)) instead. --- lisp/gnus/gnus-msg.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 0439bf0d59b..b065ae34851 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1104,12 +1104,12 @@ gnus-summary-reply (setq headers (concat headers (buffer-string))))))) (set-buffer (gnus-copy-article-buffer)) (gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to) - (save-restriction - (message-narrow-to-head) - (when very-wide - (erase-buffer) - (insert headers)) - (goto-char (point-max))) + (when very-wide + (save-restriction + (message-narrow-to-head) + (delete-region (point-min) (point-max)) + (insert headers) + (goto-char (point-max)))) (mml-quote-region (point) (point-max)) (message-reply nil wide) (when yank -- 2.42.0