From: Rajeev Narang <rajeev+jnk@sivalik.com>
Date: Wed, 11 Aug 2021 12:57:43 +0000 (+0200)
Subject: Make icalendar parse multi-line items correctly
X-Git-Tag: emacs-28.0.90~1554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ab9fa60e75a15e09ca28966dd1e4cb364ca3809;p=emacs.git

Make icalendar parse multi-line items correctly

* lisp/calendar/icalendar.el (icalendar--parse-summary-and-rest):
Parse multi-line items correctly (bug#37887).
---

diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 3c1bac28f64..eaee2e9d951 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -1273,7 +1273,7 @@ Returns an alist."
                      (concat "\\(" icalendar-import-format-uid "\\)??"))))
 	;; Need the \' regexp in order to detect multi-line items
         (setq s (concat "\\`"
-                        (replace-regexp-in-string "%s" "\\(.*?\\)" s nil t)
+                        (replace-regexp-in-string "%s" "\\([^z-a]*?\\)" s nil t)
                         "\\'"))
         (if (string-match s summary-and-rest)
             (let (cla des loc org sta url uid) ;; sum