emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tweak(mu4e): be consistent with mu4e naming style

Browse source
This commit is contained in:
TEC 2021-09-11 22:18:41 +08:00
parent c4aba242a3
commit 6d1e86affc
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/email/mu4e/config.el
View file

@ -183,7 +183,7 @@
;; Functionality otherwise obscured in mu4e 1.6 ;; Functionality otherwise obscured in mu4e 1.6
(when (version<= "1.6" mu4e-mu-version) (when (version<= "1.6" mu4e-mu-version)
(defun +mu4e-select-attachment () (defun +mu4e-view-select-attachment ()
"Use completing-read to select a single attachment. "Use completing-read to select a single attachment.
Acts like a singular `mu4e-view-save-attachments', without the saving." Acts like a singular `mu4e-view-save-attachments', without the saving."
(let ((parts (mu4e~view-gather-mime-parts)) files) (let ((parts (mu4e~view-gather-mime-parts)) files)
@ -196,13 +196,13 @@ Acts like a singular `mu4e-view-save-attachments', without the saving."
files)) files))
(user-error (mu4e-format "No attached files found"))))) (user-error (mu4e-format "No attached files found")))))
(defun +mu4e-open-attachment () (defun +mu4e-view-open-attachment ()
"Select an attachment, and open it." "Select an attachment, and open it."
(interactive) (interactive)
(mu4e~view-open-file (mu4e~view-open-file
(mu4e~view-mime-part-to-temp-file (cdr (+mu4e-select-attachment))))) (mu4e~view-mime-part-to-temp-file (cdr (+mu4e-view-select-attachment)))))
(defun +mu4e-select-part () (defun +mu4e-view-select-part ()
(let ((parts (mu4e~view-gather-mime-parts)) labeledparts) (let ((parts (mu4e~view-gather-mime-parts)) labeledparts)
(dolist (part parts) (dolist (part parts)
(push (cons (concat (propertize (format "%-2s " (car part)) 'face '(bold font-lock-type-face)) (push (cons (concat (propertize (format "%-2s " (car part)) 'face '(bold font-lock-type-face))
@ -217,12 +217,12 @@ Acts like a singular `mu4e-view-save-attachments', without the saving."
(defun +mu4e-view-select-mime-part-action () (defun +mu4e-view-select-mime-part-action ()
"Select a MIME part, and perform an action on it." "Select a MIME part, and perform an action on it."
(interactive) (interactive)
(mu4e-view-mime-part-action (car (+mu4e-select-part)))) (mu4e-view-mime-part-action (car (+mu4e-view-select-part))))
(map! :map mu4e-view-mode-map (map! :map mu4e-view-mode-map
:ne "A" #'+mu4e-view-select-mime-part-action :ne "A" #'+mu4e-view-select-mime-part-action
:ne "p" #'mu4e-view-save-attachments :ne "p" #'mu4e-view-save-attachments
:ne "o" #'+mu4e-open-attachment)) :ne "o" #'+mu4e-view-open-attachment))
(map! :localleader (map! :localleader
:map mu4e-compose-mode-map :map mu4e-compose-mode-map