Re: gnus-icalendar export to org does not include time stamp if no description

[Robert Pluim <rpluim@gmail.com>]

>>>>> On Sun, 14 Apr 2019 12:00:24 +0100, Eric S Fraga <e.fraga@ucl.ac.uk> said:

    Eric> Hello, I don't know whether to post this here, in the org
    Eric> mailing list, or an emacs group...

    Eric> I use gnus-icalendar-event-export to create org entries from
    Eric> calendar invites.  For some reason, the time stamp
    Eric> associated with the entry is only exported if the invite has
    Eric> a description field (line 483 of gnus-icalendar.el in git
    Eric> version of Emacs).  As the description field is optional,
    Eric> some invites do not get exported properly.  This seems wrong
    Eric> to me.

    Eric> I could try fixing this myself but I'm not proficient with
    Eric> elisp...

Totally untested, as I donʼt use gnus-icalendar at all.

diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 28020a1fd0..64cc3f92a9 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -480,14 +480,14 @@ gnus-icalendar--format-participant-list
                 (org-entry-put (point) (car prop) (cdr prop)))
               props))
 
-      (when description
-        (save-restriction
-          (narrow-to-region (point) (point))
-          (insert (gnus-icalendar-event:org-timestamp event)
-                  "\n\n"
-                  description)
-          (indent-region (point-min) (point-max) 2)
-          (fill-region (point-min) (point-max))))
+      (save-restriction
+        (narrow-to-region (point) (point))
+        (insert (gnus-icalendar-event:org-timestamp event)
+                "\n\n")
+        (when description
+          (insert description))
+        (indent-region (point-min) (point-max) 2)
+        (fill-region (point-min) (point-max)))
 
       (buffer-string))))