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

mu4e-compose: prepare for rebase

Browse Source 
temporarily remove the mu4e-sent-messages-behavior change, it comes
back in a slightly different way in the next commits.
This commit is contained in:
Dirk-Jan C. Binnema
2024-04-26 22:57:39 +03:00
parent bbd949e9e7
commit 178402fabb
1 changed files with 7 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mu4e/mu4e-compose.el
View File

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