diff options
| author | Robert Pluim | 2019-06-22 13:16:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-22 13:17:18 +0200 |
| commit | 1b96dd69246fc820abd959536e6e73812ee3e12e (patch) | |
| tree | 4619fc32e840c8bfb1192b0e864c2ad7dd290dde | |
| parent | 28035cb45633ddd7b689e5600532451a601c4c73 (diff) | |
| download | emacs-1b96dd69246fc820abd959536e6e73812ee3e12e.tar.gz emacs-1b96dd69246fc820abd959536e6e73812ee3e12e.zip | |
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." | |||
| 480 | (org-entry-put (point) (car prop) (cdr prop))) | 480 | (org-entry-put (point) (car prop) (cdr prop))) |
| 481 | props)) | 481 | props)) |
| 482 | 482 | ||
| 483 | (when description | 483 | (save-restriction |
| 484 | (save-restriction | 484 | (narrow-to-region (point) (point)) |
| 485 | (narrow-to-region (point) (point)) | 485 | (insert (gnus-icalendar-event:org-timestamp event) |
| 486 | (insert (gnus-icalendar-event:org-timestamp event) | 486 | "\n\n" |
| 487 | "\n\n" | 487 | description) |
| 488 | description) | 488 | (indent-region (point-min) (point-max) 2) |
| 489 | (indent-region (point-min) (point-max) 2) | 489 | (fill-region (point-min) (point-max))) |
| 490 | (fill-region (point-min) (point-max)))) | ||
| 491 | 490 | ||
| 492 | (buffer-string)))) | 491 | (buffer-string)))) |
| 493 | 492 | ||