emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-compose: Don't nest pcase

This commit is contained in:
Joseph Turner 2024-04-24 12:49:06 -04:00
parent 4d923b6bbc
commit f00ca68c67
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-compose.el
View File

@ -329,18 +329,18 @@ base filename without any Maildir decoration.
Returns the path for the sent message, either in the sent or
trash folder, or nil if the message should be removed after
sending."
(when-let ((sent-dir
(when-let ((sent-behavior
;; We can't call `functionp' since at least 'delete is a function.
(pcase mu4e-sent-messages-behavior
((or 'delete 'trash 'sent) mu4e-sent-messages-behavior)
((pred functionp mu4e-sent-messages-behavior)
(funcall mu4e-sent-messages-behavior))
(_ mu4e-sent-messages-behavior)))
(sent-dir
(pcase sent-behavior
('delete nil)
('trash (mu4e-get-trash-folder parent))
('sent (mu4e-get-sent-folder parent))
((pred functionp)
(pcase (funcall mu4e-sent-messages-behavior)
('delete nil)
('trash (mu4e-get-trash-folder parent))
('sent (mu4e-get-sent-folder parent))
(_ (mu4e-error "Error in `mu4e-sent-messages-behavior'"))))
(_ (mu4e-error "Error in `mu4e-sent-messages-behavior'")))))
(mu4e-join-paths
(mu4e-root-maildir) sent-dir "cur"