From 9b0ca69da164a5d3aaa1e65ca28841d65111f43b Mon Sep 17 00:00:00 2001
From: fpi
Date: Mon, 16 Sep 2024 11:34:04 +0200
Subject: Update uid creation based on icalendar.el functions

---
 gnus-icalendar-request.el | 15 ++++++---------
 1 file 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
-- 
cgit v1.2.3