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

mu4e: Add back the `h' keybinding to toggle HTML view in a gnus article

Browse Source 
Fixes: https://github.com/djcb/mu/issues/2013
This commit is contained in:
Étienne Deparis
2021-08-14 17:41:19 +02:00
parent d6658c49b8
commit 1f98060ef3
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-view-gnus.el
View File

@ -328,6 +328,7 @@ some Gnus-functionality that does not work in mu4e."
(define-key map "M" #'mu4e-view-massage) (define-key map "M" #'mu4e-view-massage)
(define-key map "w" 'visual-line-mode) (define-key map "w" 'visual-line-mode)
(define-key map "h" #'mu4e-view-toggle-html)
(define-key map (kbd "M-q") 'article-fill-long-lines) (define-key map (kbd "M-q") 'article-fill-long-lines)
;; next 3 only warn user when attempt in the message view ;; next 3 only warn user when attempt in the message view
@ -629,6 +630,19 @@ I.e., '3 A o' opens the third MIME-part."
(mu4e~view-mime-part-to-temp-file handle)))))) (mu4e~view-mime-part-to-temp-file handle))))))
(t (mu4e-error "Invalid action %S" action)))))))) (t (mu4e-error "Invalid action %S" action))))))))
(defun mu4e-view-toggle-html ()
"Toggle html-display of the first HTML body found, if any."
(interactive)
(let ((html-part
(catch :found
;; This function assume `gnus-article-mime-handle-alist' is sorted
;; by pertinence, i.e. the first HTML part found in it is the most
;; important one.
(dolist (part-handle gnus-article-mime-handle-alist)
(when (equal (mm-handle-media-type (cdr part-handle)) "text/html")
(throw :found (car part-handle)))))))
(when html-part (gnus-article-inline-part html-part))))
;;; ;;;
(provide 'mu4e-view-gnus) (provide 'mu4e-view-gnus)
;;; mu4e-view.el ends here ;;; mu4e-view.el ends here