From 1c9e1f4be10e0948043f5ada76dd3f63ca4d1b83 Mon Sep 17 00:00:00 2001 From: Christophe Troestler Date: Wed, 17 Mar 2021 00:34:04 +0100 Subject: [PATCH] mu4e/icalendar: Use a closure to trash the original message This work around the fact that `defun' has an undefined return value. --- mu4e/mu4e-icalendar.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/mu4e/mu4e-icalendar.el b/mu4e/mu4e-icalendar.el index 5bac2872..2f2b60a9 100644 --- a/mu4e/mu4e-icalendar.el +++ b/mu4e/mu4e-icalendar.el @@ -140,6 +140,10 @@ (or (mu4e-view-headers-next) (kill-buffer-and-window)))))) +(defun mu4e~icalendar-trash-message-hook (original-msg) + (lambda () (setq mu4e-sent-func + (mu4e~icalendar-trash-message original-msg)))) + (defun mu4e-icalendar-reply-ical (original-msg event status buffer-name) "Reply to ORIGINAL-MSG containing invitation EVENT with STATUS. See `gnus-icalendar-event-reply-from-buffer' for the possible @@ -171,9 +175,8 @@ response in icalendar format." ;; also trash the message (thus must be appended to hooks). (add-hook 'message-sent-hook - (defun mu4e~icalendar-trash-hook() - (setq mu4e-sent-func (mu4e~icalendar-trash-message original-msg))) - t t)))) + (mu4e~icalendar-trash-message-hook original-msg) + 90 t)))) (defun mu4e~icalendar-insert-diary (event reply-status filename) "Insert a diary entry for the EVENT in file named FILENAME.