alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-view: remove overlays when erasing

Browse Source 
erase-buffer is not enough (you'd see '[1][2]' etc. in the buffer beginning)
This commit is contained in:
Dirk-Jan C. Binnema
2021-08-29 21:38:45 +03:00
parent e3080e39ab
commit 42f2e73025
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-view.el
View File

@ -328,6 +328,7 @@ Add this function to `mu4e-view-mode-hook' to enable this feature."
ov-inv (make-overlay ov-beg ov-end) ov-inv (make-overlay ov-beg ov-end)
beg ov-end) beg ov-end)
(overlay-put ov-inv 'invisible t) (overlay-put ov-inv 'invisible t)
(overlay-put ov-inv 'mu4e-overlay t)
(when (re-search-forward (when (re-search-forward
(concat "^" message-mark-insert-end) nil t) (concat "^" message-mark-insert-end) nil t)
(setq ov-beg (match-beginning 0) (setq ov-beg (match-beginning 0)
@ -337,6 +338,7 @@ Add this function to `mu4e-view-mode-hook' to enable this feature."
(overlay-put ov-inv 'invisible t)) (overlay-put ov-inv 'invisible t))
(when (and beg end) (when (and beg end)
(let ((ov (make-overlay beg end))) (let ((ov (make-overlay beg end)))
(overlay-put ov 'mu4e-overlay t)
(overlay-put ov 'face 'mu4e-region-code)) (overlay-put ov 'face 'mu4e-region-code))
(setq beg nil end nil)))))) (setq beg nil end nil))))))
@ -494,6 +496,7 @@ Also number them so they can be opened using `mu4e-view-go-to-url'."
keymap ,mu4e-view-active-urls-keymap keymap ,mu4e-view-active-urls-keymap
help-echo help-echo
"[mouse-1] or [M-RET] to open the link")) "[mouse-1] or [M-RET] to open the link"))
(overlay-put ov 'mu4e-overlay t)
(overlay-put ov 'after-string (overlay-put ov 'after-string
(propertize (format "\u200B[%d]" num) (propertize (format "\u200B[%d]" num)
'face 'mu4e-url-number-face))))))))) 'face 'mu4e-url-number-face)))))))))
@ -621,6 +624,7 @@ marking if it still had that."
(kill-buffer gnus-article-buffer)) (kill-buffer gnus-article-buffer))
(with-current-buffer (get-buffer-create gnus-article-buffer) (with-current-buffer (get-buffer-create gnus-article-buffer)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(remove-overlays (point-min)(point-max) 'mu4e-overlay t)
(erase-buffer) (erase-buffer)
(insert-file-contents-literally (insert-file-contents-literally
(mu4e-message-field msg :path) nil nil nil t))) (mu4e-message-field msg :path) nil nil nil t)))
@ -1203,7 +1207,6 @@ the third MIME-part."
(gnus-article-inline-part (car html-part)) (gnus-article-inline-part (car html-part))
(mu4e-warn "No html part in this message"))) (mu4e-warn "No html part in this message")))
(defun mu4e-process-file-through-pipe (path pipecmd) (defun mu4e-process-file-through-pipe (path pipecmd)
"Process file at PATH through a pipe with PIPECMD." "Process file at PATH through a pipe with PIPECMD."
(let ((buf (get-buffer-create "*mu4e-output"))) (let ((buf (get-buffer-create "*mu4e-output")))
@ -1213,7 +1216,6 @@ the third MIME-part."
(call-process-shell-command pipecmd path t t) (call-process-shell-command pipecmd path t t)
(view-mode))) (view-mode)))
(switch-to-buffer buf))) (switch-to-buffer buf)))
;;; Bug Reference mode support ;;; Bug Reference mode support