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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-icalendar.el
View File

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