mu4e (ical): Use a text/plain alternative when replying to ical events

This commit is contained in:
Christophe Troestler 2019-04-18 16:05:08 +02:00
parent 5ccd58b40b
commit 5573e7bed0
1 changed files with 4 additions and 2 deletions

View File

@ -80,11 +80,13 @@
(insert "To: " organizer)))
(message-goto-body)
(insert "\n\n")
(mml-insert-multipart "alternative")
(mml-insert-part "text/plain")
(let ((reply-event (gnus-icalendar-event-from-buffer
buffer-name mu4e-user-mail-address-list)))
(insert (gnus-icalendar-event->gnus-calendar reply-event status)))
(mml-insert-multipart "alternative")
(mml-attach-buffer buffer-name "text/calendar; method=REPLY; charset=UTF-8")
(forward-line 1); move past closing tag
(mml-attach-buffer buffer-name "text/calendar; method=REPLY; charset=utf-8")
(message-goto-subject)
(delete-region (line-beginning-position) (line-end-position))
(insert "Subject: " (capitalize (symbol-name status))