From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Thu, 16 Mar 2023 10:43:35 +0000 (+0800)
Subject: Allow null date in gnus-icalendar-event--decode-datefield
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c0e40b75ba7c0ec1ee18eb577418f2ea5199a60;p=emacs.git

Allow null date in gnus-icalendar-event--decode-datefield

* lisp/gnus/gnus-icalendar.el:
(gnus-icalendar-event--decode-datefield): Don't throw an error if the
event date is missing.
---

diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 0d776cd1bca..adbc39547ff 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -165,7 +165,7 @@
                        (icalendar--get-event-property-attributes
                         event field) zone-map))
          (dtdate-dec (icalendar--decode-isodatetime dtdate nil dtdate-zone)))
-    (encode-time dtdate-dec)))
+    (when dtdate-dec (encode-time dtdate-dec))))
 
 (defun gnus-icalendar-event--find-attendee (ical name-or-email)
   (let* ((event (car (icalendar--all-events ical)))