diff options
| author | fpi | 2024-09-16 11:34:04 +0200 |
|---|---|---|
| committer | fpi | 2024-09-16 11:38:40 +0200 |
| commit | 9b0ca69da164a5d3aaa1e65ca28841d65111f43b (patch) | |
| tree | dc192a8beedf084be13f4d91bbcb74ae26f2f82f | |
| parent | Expand tests, Fix attende-list creation (diff) | |
Update uid creation based on icalendar.el functions
| -rw-r--r-- | gnus-icalendar-request.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/gnus-icalendar-request.el b/gnus-icalendar-request.el index 863c5aa..67cb927 100644 --- a/gnus-icalendar-request.el +++ b/gnus-icalendar-request.el @@ -133,15 +133,6 @@ or will be asked for if nil. Same for location." (org-read-date nil t nil "End time:" start-time) end-time)) ;; TODO: better differentiate date-time ranges and date (whole-day) ranges - (uid (if (featurep 'org-id) - (org-id-uuid) - (format "%s@%s" - (number-to-string (abs (random))) - (md5 (format "%s%s%s%s" - (emacs-pid) - user-full-name - user-mail-address - (system-name)))))) (recur nil) ;; TODO (location (or location (read-string "Event location: "))) (description (when (message-goto-body) @@ -165,6 +156,12 @@ or will be asked for if nil. Same for location." (save-restriction (message-narrow-to-headers) (message-fetch-field "Cc"))))) + (uid (icalendar--create-uid (format "%s%s%s%s" + summary + description + location + organizer) + (format "DTSTART:%s" start-time))) (event (gnus-icalendar-event-request :uid uid :recur recur :location location |