Insert timestamp when converting icalendar to org event
* lisp/gnus/gnus-icalendar.el (gnus-icalendar--update-org-event): Insert the timestamp even if the description is empty. (Bug#64023)
This commit is contained in:
parent
ef1394fca0
commit
daf7902ed9
1 changed files with 10 additions and 10 deletions
|
@ -642,16 +642,16 @@ is searched."
|
|||
(delete-region (point) entry-end))
|
||||
|
||||
;; put new event description in the entry body
|
||||
(when description
|
||||
(save-restriction
|
||||
(narrow-to-region (point) (point))
|
||||
(insert "\n"
|
||||
(gnus-icalendar-event:org-timestamp event)
|
||||
"\n\n"
|
||||
(replace-regexp-in-string "[\n]+$" "\n" description)
|
||||
"\n")
|
||||
(indent-region (point-min) (point-max) (1+ entry-outline-level))
|
||||
(fill-region (point-min) (point-max))))
|
||||
(save-restriction
|
||||
(narrow-to-region (point) (point))
|
||||
(insert "\n"
|
||||
(gnus-icalendar-event:org-timestamp event)
|
||||
"\n\n"
|
||||
(replace-regexp-in-string "[\n]+$" "\n"
|
||||
(or description "No description"))
|
||||
"\n")
|
||||
(indent-region (point-min) (point-max) (1+ entry-outline-level))
|
||||
(fill-region (point-min) (point-max)))
|
||||
|
||||
;; update entry properties
|
||||
(cl-labels
|
||||
|
|
Loading…
Add table
Reference in a new issue