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

Merge pull request #1732 from Chris00/master

Browse Source 
Fix accepting ical RSVP with Outlook
This commit is contained in:
Dirk-Jan C. Binnema
2020-06-20 07:50:21 +03:00
committed by GitHub
parent 3de80993df d49634245d
commit 83efc69665
1 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
mu4e/mu4e-icalendar.el
View File

@ -30,6 +30,16 @@
;; Optional ;; Optional
;; (setq mu4e-icalendar-trash-after-reply t) ;; (setq mu4e-icalendar-trash-after-reply t)
;; By default, the original message is not cited. However, if you
;; would like to reply to it, the citation is in the kill-ring (paste
;; it with `yank').
;; To add the event to a diary file of your choice:
;; (setq mu4e-icalendar-diary-file "/path/to/your/diary")
;; If the file specified is not your main diary file, add
;; #include "/path/to/your/diary"
;; to you main diary file to display the events.
;; To enable optional iCalendar->Org sync functionality ;; To enable optional iCalendar->Org sync functionality
;; NOTE: both the capture file and the headline(s) inside must already exist ;; NOTE: both the capture file and the headline(s) inside must already exist
;; (require 'org-agenda) ;; (require 'org-agenda)
@ -67,9 +77,11 @@
(status (cadr data)) (status (cadr data))
(event (caddr data)) (event (caddr data))
(gnus-icalendar-additional-identities (mu4e-personal-addresses)) (gnus-icalendar-additional-identities (mu4e-personal-addresses))
(reply (gnus-icalendar-with-decoded-handle handle (reply (gnus-icalendar-with-decoded-handle
handle
(let ((gnus-icalendar-find-if (lambda(pred seq) nil)))
(gnus-icalendar-event-reply-from-buffer (gnus-icalendar-event-reply-from-buffer
(current-buffer) status (gnus-icalendar-identities)))) (current-buffer) status (gnus-icalendar-identities)))))
(msg (mu4e-message-at-point 'noerror)) (msg (mu4e-message-at-point 'noerror))
(charset (cdr (assoc 'charset (mm-handle-type handle))))) (charset (cdr (assoc 'charset (mm-handle-type handle)))))
(when reply (when reply
@ -99,7 +111,8 @@
(defun mu4e~icalendar-delete-citation () (defun mu4e~icalendar-delete-citation ()
"Function passed to `mu4e-compose-cite-function' to remove the citation." "Function passed to `mu4e-compose-cite-function' to remove the citation."
(delete-region (point-min) (point-max))) (message-cite-original-without-signature)
(kill-region (point-min) (point-max)))
(defun mu4e~icalendar-trash-message (original-msg) (defun mu4e~icalendar-trash-message (original-msg)
"Trash the message ORIGINAL-MSG and move to the next one." "Trash the message ORIGINAL-MSG and move to the next one."
@ -138,17 +151,12 @@ response in icalendar format."
;; Not (message-goto-body) to possibly skip mll sign directive ;; Not (message-goto-body) to possibly skip mll sign directive
;; inserted by `mu4e-compose-mode-hook': ;; inserted by `mu4e-compose-mode-hook':
(goto-char (point-max)) (goto-char (point-max))
(mml-insert-multipart "alternative")
(mml-insert-part "text/plain")
(let ((reply-event (gnus-icalendar-event-from-buffer
buffer-name (mu4e-personal-addresses))))
(insert (gnus-icalendar-event->gnus-calendar reply-event status)))
(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-remove-header "Subject") (message-remove-header "Subject")
(message-goto-subject) (message-goto-subject)
(insert (capitalize (symbol-name status)) (insert (capitalize (symbol-name status))
": " (gnus-icalendar-event:summary event)) ": " (gnus-icalendar-event:summary event))
(message-goto-body)
(set-buffer-modified-p nil); not yet modified by user (set-buffer-modified-p nil); not yet modified by user
(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