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

mu4e-view: cosmetics

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2024-12-09 20:39:27 +02:00
parent d8d5e4cca5
commit 18fe56a742
1 changed files with 4 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-view.el
View File

@ -183,11 +183,9 @@ previous header."
(mu4e~headers-move (- (or n 1))))) (mu4e~headers-move (- (or n 1)))))
(defun mu4e--view-prev-or-next (func backwards) (defun mu4e--view-prev-or-next (func backwards)
"Move point to the next or previous message. "Move point to the next or previous message and invoke FUNC.
Go to the previous message if BACKWARDS is non-nil. Go to the previous message if BACKWARDS is non-nil. If this
unread message header in the headers buffer connected with this succeeds, return the new docid. Otherwise, return nil."
message view. If this succeeds, return the new docid. Otherwise,
return nil."
(mu4e--view-in-headers-context (funcall func backwards)) (mu4e--view-in-headers-context (funcall func backwards))
(mu4e-select-other-view) (mu4e-select-other-view)
(mu4e-headers-view-message)) (mu4e-headers-view-message))
@ -231,7 +229,6 @@ If this succeeds, return the new docid. Otherwise, return nil."
(interactive) (interactive)
(mu4e--view-in-headers-context (mu4e-thread-fold-toggle-all))) (mu4e--view-in-headers-context (mu4e-thread-fold-toggle-all)))
;;; Interactive functions ;;; Interactive functions
(defun mu4e-view-action (&optional msg) (defun mu4e-view-action (&optional msg)
"Ask user for some action to apply on MSG, then do it. "Ask user for some action to apply on MSG, then do it.
@ -1018,7 +1015,7 @@ This is useful for advising some Gnus-functionality that does not work in mu4e."
"Keymap for mu4e-view mode.") "Keymap for mu4e-view mode.")
(easy-menu-define mu4e-view-mode-menu (easy-menu-define mu4e-view-mode-menu
mu4e-view-mode-map "Menu for mu4e's view-mode." mu4e-view-mode-map "Menu for mu4e's view mode."
(append (append
'("View" '("View"
"--" "--"
@ -1109,7 +1106,6 @@ Article Treatment' for more options."
(interactive) (interactive)
(funcall (mu4e-read-option "Massage: " mu4e-view-massage-options))) (funcall (mu4e-read-option "Massage: " mu4e-view-massage-options)))
(defun mu4e-view-toggle-html () (defun mu4e-view-toggle-html ()
"Toggle html-display of the first html-part found." "Toggle html-display of the first html-part found."
(interactive) (interactive)
@ -1128,7 +1124,6 @@ Article Treatment' for more options."
gnus-article-mime-handle-alist))) gnus-article-mime-handle-alist)))
(gnus-article-inline-part (car html-part)) (gnus-article-inline-part (car html-part))
(mu4e-warn "Cannot switch; no html and/or text part in this message")))) (mu4e-warn "Cannot switch; no html and/or text part in this message"))))
;;; Bug Reference mode support ;;; Bug Reference mode support
;; Due to mu4e's view buffer handling (mu4e-view-mode is called long before the ;; Due to mu4e's view buffer handling (mu4e-view-mode is called long before the
@ -1169,6 +1164,5 @@ GROUP-REGEXP and each header value against HEADER-REGEXP in
(add-hook 'bug-reference-auto-setup-functions (add-hook 'bug-reference-auto-setup-functions
#'mu4e--view-try-setup-bug-reference-mode)) #'mu4e--view-try-setup-bug-reference-mode))
(provide 'mu4e-view) (provide 'mu4e-view)
;;; mu4e-view.el ends here ;;; mu4e-view.el ends here