From f510c974c5a9b7ed211ac2921d7dfb1bd9202c53 Mon Sep 17 00:00:00 2001 From: Jake Coble Date: Sat, 7 Jun 2025 18:26:58 -0400 Subject: Add REQUEST method to iCalendar invite and MIME part. * varuga.el: Add 'method to mml-content-type-parameters. (varuga-invite): Add REQUEST method. Signed-off-by: Arun Isaac --- varuga.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'varuga.el') diff --git a/varuga.el b/varuga.el index f06131b..4f546de 100644 --- a/varuga.el +++ b/varuga.el @@ -51,6 +51,11 @@ (require 'org-id) (require 'time) +;; We use the `method' parameter in our text/calendar MIME part; allow +;; it. +(unless (memq 'method mml-content-type-parameters) + (add-to-list 'mml-content-type-parameters 'method)) + (cl-defstruct (varuga-calendar (:constructor varuga-calendar) (:copier nil)) components) @@ -149,6 +154,7 @@ PARAMS is an alist of ical property parameters and their values." (varuga-insert-calendar-line 'begin "VCALENDAR") (varuga-insert-calendar-line 'version "2.0") (varuga-insert-calendar-line 'prodid varuga-product-identifier) + (varuga-insert-calendar-line 'method "REQUEST") (seq-do #'varuga-insert-calendar-event (varuga-calendar-components calendar)) (varuga-insert-calendar-line 'end "VCALENDAR")) @@ -196,7 +202,7 @@ is the length of the event in minutes." (insert "\n")) varuga-clock-list) ;; Insert ical part. - (insert "<#part type=text/calendar>\n") + (insert "<#part type=text/calendar method=request name=invite.ics>\n") (varuga-insert-calendar (varuga-calendar :components (list (pcase (mail-extract-address-components -- cgit v1.2.3