From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 25 Aug 2020 14:36:15 +0000 (+0200)
Subject: Don't bug out in gnus-icalendar when there no recurring event
X-Git-Tag: emacs-28.0.90~6411
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8db980dcb50bf1883b3d456a8e070baae83a2d7;p=emacs.git

Don't bug out in gnus-icalendar when there no recurring event

* lisp/gnus/gnus-icalendar.el
(gnus-icalendar-event:recurring-days): Fix previous patch
(bug#43038) -- don't bug out when there's no recurring event.
---

diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index f13d4dec014..da41b08c717 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -148,7 +148,7 @@
                        ("TH" . 4)
                        ("FR" . 5)
                        ("SA" . 6))))
-    (when (string-match "BYDAY=\\([^;]+\\)" rrule)
+    (when (and rrule (string-match "BYDAY=\\([^;]+\\)" rrule))
       (let ((bydays (split-string (match-string 1 rrule) ",")))
         (seq-map
          (lambda (x) (cdr (assoc x weekday-map)))