diff options
author | Robert Pluim <rpluim@gmail.com> | 2019-06-22 13:16:24 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-22 13:17:18 +0200 |
commit | 1b96dd69246fc820abd959536e6e73812ee3e12e (patch) | |
tree | 4619fc32e840c8bfb1192b0e864c2ad7dd290dde | |
parent | 28035cb45633ddd7b689e5600532451a601c4c73 (diff) | |
download | emacs-1b96dd69246fc820abd959536e6e73812ee3e12e.tar.gz |
Export Gnus calendar events to org even if they have no description
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event->org-entry):
Don't ignore events that have no description.
-rw-r--r-- | lisp/gnus/gnus-icalendar.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 53a20b90ebd..402e233d7fd 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/lisp/gnus/gnus-icalendar.el @@ -480,14 +480,13 @@ Return nil for non-recurring EVENT." (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" + description) + (indent-region (point-min) (point-max) 2) + (fill-region (point-min) (point-max))) (buffer-string)))) |