diff options
| author | Andrew G Cohen | 2023-03-16 18:43:35 +0800 |
|---|---|---|
| committer | Andrew G Cohen | 2023-04-01 09:55:41 +0800 |
| commit | 4c0e40b75ba7c0ec1ee18eb577418f2ea5199a60 (patch) | |
| tree | d9d1299a1a85a8af4939cdaa468170f199ee4296 | |
| parent | 2c9ea31999d2f69f8bca4fe352dd0f74c6766c54 (diff) | |
| download | emacs-4c0e40b75ba7c0ec1ee18eb577418f2ea5199a60.tar.gz emacs-4c0e40b75ba7c0ec1ee18eb577418f2ea5199a60.zip | |
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.
| -rw-r--r-- | lisp/gnus/gnus-icalendar.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 165 | (icalendar--get-event-property-attributes | 165 | (icalendar--get-event-property-attributes |
| 166 | event field) zone-map)) | 166 | event field) zone-map)) |
| 167 | (dtdate-dec (icalendar--decode-isodatetime dtdate nil dtdate-zone))) | 167 | (dtdate-dec (icalendar--decode-isodatetime dtdate nil dtdate-zone))) |
| 168 | (encode-time dtdate-dec))) | 168 | (when dtdate-dec (encode-time dtdate-dec)))) |
| 169 | 169 | ||
| 170 | (defun gnus-icalendar-event--find-attendee (ical name-or-email) | 170 | (defun gnus-icalendar-event--find-attendee (ical name-or-email) |
| 171 | (let* ((event (car (icalendar--all-events ical))) | 171 | (let* ((event (car (icalendar--all-events ical))) |