mu4e-icalendar: integrate with mu4e-compose
So we use context and display settings.
This commit is contained in:
@ -134,15 +134,14 @@
|
|||||||
(or organizer
|
(or organizer
|
||||||
(plist-get (car (plist-get msg :reply-to)) :email)
|
(plist-get (car (plist-get msg :reply-to)) :email)
|
||||||
(plist-get (car (plist-get msg :from)) :email)
|
(plist-get (car (plist-get msg :from)) :email)
|
||||||
(mu4e-warn "Cannot find organizer"))))
|
(mu4e-warn "Cannot find organizer")))
|
||||||
(message-reply organizer)
|
(message-cite-function #'mu4e-message-cite-nothing))
|
||||||
(goto-char (point-max))
|
(mu4e-compose-reply-to organizer)
|
||||||
(message-goto-body)
|
(message-goto-body)
|
||||||
(mml-insert-multipart "alternative")
|
(mml-insert-multipart "alternative")
|
||||||
(mml-insert-empty-tag 'part 'type "text/plain")
|
(mml-insert-empty-tag 'part 'type "text/plain")
|
||||||
(mml-attach-buffer ical-name
|
(mml-attach-buffer ical-name
|
||||||
"text/calendar; method=REPLY; charset=UTF-8")
|
"text/calendar; method=REPLY; charset=UTF-8")
|
||||||
(mu4e-compose-mode)
|
|
||||||
(when mu4e-icalendar-trash-after-reply
|
(when mu4e-icalendar-trash-after-reply
|
||||||
;; Override `mu4e-sent-handler' set by `mu4e-compose-mode' to
|
;; Override `mu4e-sent-handler' set by `mu4e-compose-mode' to
|
||||||
;; also trash the message (thus must be appended to hooks).
|
;; also trash the message (thus must be appended to hooks).
|
||||||
|
|||||||
Reference in New Issue
Block a user