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

mu4e/icalendar: Use a closure to trash the original message

Browse Source 
This work around the fact that `defun' has an undefined return value.
This commit is contained in:
Christophe Troestler
2021-03-17 00:34:04 +01:00
parent 2d67b66506
commit 1c9e1f4be1
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-icalendar.el
View File

@ -140,6 +140,10 @@
(or (mu4e-view-headers-next) (or (mu4e-view-headers-next)
(kill-buffer-and-window)))))) (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) (defun mu4e-icalendar-reply-ical (original-msg event status buffer-name)
"Reply to ORIGINAL-MSG containing invitation EVENT with STATUS. "Reply to ORIGINAL-MSG containing invitation EVENT with STATUS.
See `gnus-icalendar-event-reply-from-buffer' for the possible 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). ;; also trash the message (thus must be appended to hooks).
(add-hook (add-hook
'message-sent-hook 'message-sent-hook
(defun mu4e~icalendar-trash-hook() (mu4e~icalendar-trash-message-hook original-msg)
(setq mu4e-sent-func (mu4e~icalendar-trash-message original-msg))) 90 t))))
t t))))
(defun mu4e~icalendar-insert-diary (event reply-status filename) (defun mu4e~icalendar-insert-diary (event reply-status filename)
"Insert a diary entry for the EVENT in file named FILENAME. "Insert a diary entry for the EVENT in file named FILENAME.