From a49cd03f6ba207e73146630da24036ad57bbb296 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Thu, 25 Apr 2024 22:31:43 +0300 Subject: [PATCH] mu4e-drafts: improve mu4e--fcc-path Reworked from the pull #2698 for the new branch. --- mu4e/mu4e-draft.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/mu4e/mu4e-draft.el b/mu4e/mu4e-draft.el index 2dcb1f0b..c8200bd4 100644 --- a/mu4e/mu4e-draft.el +++ b/mu4e/mu4e-draft.el @@ -249,17 +249,19 @@ 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 - (pcase mu4e-sent-messages-behavior + (let* ((behavior + (if (functionp mu4e-sent-messages-behavior) + (funcall mu4e-sent-messages-behavior) mu4e-sent-messages-behavior)) + (sent-dir + (pcase behavior ('delete nil) ('trash (mu4e-get-trash-folder parent)) ('sent (mu4e-get-sent-folder parent)) - ((pred functionp) (funcall mu4e-sent-messages-behavior)) (_ (mu4e-error "Error in `mu4e-sent-messages-behavior'"))))) - (mu4e-join-paths - (mu4e-root-maildir) sent-dir "cur" - (format "%s%s2,S" base-name mu4e-maildir-info-delimiter)))) - + (when sent-dir + (mu4e-join-paths + (mu4e-root-maildir) sent-dir "cur" + (format "%s%s2,S" base-name mu4e-maildir-info-delimiter))))) (defconst mu4e--header-separator