diff options
| -rw-r--r-- | gnus-icalendar-request-tests.el | 4 | ||||
| -rw-r--r-- | gnus-icalendar-request.el | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/gnus-icalendar-request-tests.el b/gnus-icalendar-request-tests.el index c9eab69..09d8198 100644 --- a/gnus-icalendar-request-tests.el +++ b/gnus-icalendar-request-tests.el @@ -48,11 +48,13 @@ SEQUENCE:0 END:VEVENT")) (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3") (let ((vcalendar (gnus-icalendar--build-vcalendar-from-vevent event))) - ;; Ensure there is exactly one of version and prodid + ;; Ensure there is exactly one of VERSION and PRODID (should (string-match "^VERSION:2.0\\(\n\\|.\\)*END:VCALENDAR" vcalendar)) (should-not (string-match "^VERSION:" (match-string 1 vcalendar))) (should (string-match "^PRODID:\\(\n\\|.\\)*END:VCALENDAR" vcalendar)) (should-not (string-match "^PRODID:" (match-string 1 vcalendar))) + ;; METHOD should be REQUEST + (should (string-match "^METHOD:REQUEST$" vcalendar)) ;; Ensure the vevent remains intact (should (string-match "^\\(BEGIN:VEVENT\\(\n\\|.\\)*\nEND:VEVENT\\)" vcalendar)) (should (string-match (match-string 1 vcalendar) event))) diff --git a/gnus-icalendar-request.el b/gnus-icalendar-request.el index 96d52c1..61b5078 100644 --- a/gnus-icalendar-request.el +++ b/gnus-icalendar-request.el @@ -83,7 +83,7 @@ (defun gnus-icalendar--build-vcalendar-from-vevent (event) "Create VCALENDAR part with VEVENT part EVENT." (mapconcat #'identity `("BEGIN:VCALENDAR" - "PRODID:Gnus" + "PRODID:-//Emacs//NONSGML gnus-icalendar.el//EN" "VERSION:2.0" "METHOD:REQUEST" ,event |