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
(when (version<= "1.6" mu4e-mu-version)
(defun +mu4e-select-attachment ()
(defun +mu4e-view-select-attachment ()
"Use completing-read to select a single attachment.
Acts like a singular `mu4e-view-save-attachments', without the saving."
(let ((parts (mu4e~view-gather-mime-parts)) files)
@ -196,13 +196,13 @@ Acts like a singular `mu4e-view-save-attachments', without the saving."
files))
(user-error (mu4e-format "No attached files found")))))
(defun +mu4e-open-attachment ()
(defun +mu4e-view-open-attachment ()
"Select an attachment, and open it."
(interactive)
(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)
(dolist (part parts)
(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 ()
"Select a MIME part, and perform an action on it."
(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
:ne "A" #'+mu4e-view-select-mime-part-action
:ne "p" #'mu4e-view-save-attachments
:ne "o" #'+mu4e-open-attachment))
:ne "o" #'+mu4e-view-open-attachment))
(map! :localleader
:map mu4e-compose-mode-map