mirror of https://github.com/djcb/mu.git
Merge pull request #2329 from seanfarley/smf/save-excursion-html
mu4e-view: use `save-excursion' around toggling html
This commit is contained in:
commit
7f0497638c
|
@ -1257,12 +1257,13 @@ the third MIME-part."
|
|||
(interactive)
|
||||
;; This function assumes `gnus-article-mime-handle-alist' is sorted by
|
||||
;; pertinence, i.e. the first HTML part found in it is the most important one.
|
||||
(if-let ((html-part
|
||||
(seq-find (lambda (handle)
|
||||
(equal (mm-handle-media-type (cdr handle)) "text/html"))
|
||||
gnus-article-mime-handle-alist)))
|
||||
(gnus-article-inline-part (car html-part))
|
||||
(mu4e-warn "No html part in this message")))
|
||||
(save-excursion
|
||||
(if-let ((html-part
|
||||
(seq-find (lambda (handle)
|
||||
(equal (mm-handle-media-type (cdr handle)) "text/html"))
|
||||
gnus-article-mime-handle-alist)))
|
||||
(gnus-article-inline-part (car html-part))
|
||||
(mu4e-warn "No html part in this message"))))
|
||||
|
||||
(defun mu4e-process-file-through-pipe (path pipecmd)
|
||||
"Process file at PATH through a pipe with PIPECMD."
|
||||
|
|
Loading…
Reference in New Issue