From 4404a5736599e028b3c0b49f371bc6edd5c67bb3 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Mon, 30 Aug 2021 10:13:06 +0300 Subject: [PATCH] mu4e-view: remove overlays before erasing erase-buffer is not enough, and [1][2] can stay behind in the buffer. --- mu4e/mu4e-view-common.el | 1 + mu4e/mu4e-view-gnus.el | 1 + 2 files changed, 2 insertions(+) diff --git a/mu4e/mu4e-view-common.el b/mu4e/mu4e-view-common.el index e4880d53..40fba482 100644 --- a/mu4e/mu4e-view-common.el +++ b/mu4e/mu4e-view-common.el @@ -549,6 +549,7 @@ Also number them so they can be opened using `mu4e-view-go-to-url'." keymap ,mu4e-view-active-urls-keymap help-echo "[mouse-1] or [M-RET] to open the link")) + (overlay-put ov 'mu4e-overlay t) (overlay-put ov 'after-string (propertize (format "\u200B[%d]" num) 'face 'mu4e-url-number-face))))))))) diff --git a/mu4e/mu4e-view-gnus.el b/mu4e/mu4e-view-gnus.el index f4350e2e..bd07e613 100644 --- a/mu4e/mu4e-view-gnus.el +++ b/mu4e/mu4e-view-gnus.el @@ -54,6 +54,7 @@ (kill-buffer gnus-article-buffer)) (with-current-buffer (get-buffer-create gnus-article-buffer) (let ((inhibit-read-only t)) + (remove-overlays (point-min) (point-max) 'mu4e-overlay t) (erase-buffer) (insert-file-contents-literally (mu4e-message-field msg :path) nil nil nil t)))