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

mu4e-draft: handle case where draft was not deleted

Browse Source 
Ensure draft is removed also when there's no fcc-path. As suggested by
@malb in #2719.
This commit is contained in:
Dirk-Jan C. Binnema
2024-08-17 11:36:31 +03:00
parent 806033f164
commit 3de2bc04ab
1 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
mu4e/mu4e-draft.el
View File

@ -440,6 +440,21 @@ appropriate flag at the message forwarded or replied-to."
(while (search-forward "\n" nil t) (while (search-forward "\n" nil t)
(put-text-property (1- (point)) (point) 'hard t)))) (put-text-property (1- (point)) (point) 'hard t))))
(defun mu4e--compose-message-sent ()
"Mu4e's `message-sent-hook' handling."
;; typically, draft is gone and the sent message appears in sent. Update flags
;; for related messages, i.e. for Forwarded ('Passed') and Replied messages,
;; try to set the appropriate flag at the message forwarded or replied-to.
(when-let ((fcc-path (message-field-value "Fcc")))
(mu4e--set-parent-flags fcc-path)
;; we end up with a ((buried) buffer here, visiting the
;; fcc-path; not quite sure why. But let's get rid of it (#2681)
(when-let ((buf (find-buffer-visiting fcc-path)))
(kill-buffer buf)))
;; remove draft
(when-let ((draft (buffer-file-name)))
(mu4e--server-remove draft)))
(defun mu4e--compose-before-send () (defun mu4e--compose-before-send ()
"Function called just before sending a message." "Function called just before sending a message."
;; Remove References: if In-Reply-To: is missing. ;; Remove References: if In-Reply-To: is missing.
@ -450,22 +465,8 @@ appropriate flag at the message forwarded or replied-to."
(message-remove-header "References"))) (message-remove-header "References")))
(when use-hard-newlines (when use-hard-newlines
(mu4e--send-harden-newlines)) (mu4e--send-harden-newlines))
;; now handle what happens _after_ sending; typically, draft is gone and ;; now handle what happens _after_ sending
;; the sent message appears in sent. Update flags for related messages, (add-hook 'message-sent-hook #'mu4e--compose-message-sent nil t))
;; i.e. for Forwarded ('Passed') and Replied messages, try to set the
;; appropriate flag at the message forwarded or replied-to.
(add-hook 'message-sent-hook
(lambda ()
(when-let ((fcc-path (message-field-value "Fcc")))
(mu4e--set-parent-flags fcc-path)
;; we end up with a ((buried) buffer here, visiting the
;; fcc-path; not quite sure why. But let's get rid of it (#2681)
(when-let ((buf (find-buffer-visiting fcc-path)))
(kill-buffer buf))
;; remove draft
(when-let ((draft (buffer-file-name)))
(mu4e--server-remove draft))))
nil t))
;; overrides for message-* functions ;; overrides for message-* functions
;; ;;