From 7134ca9ecadf60efbe703ffd2203d25aada7fdfa Mon Sep 17 00:00:00 2001 From: John Hamelink Date: Fri, 15 Apr 2022 02:51:11 +0100 Subject: [PATCH 4/5] lisp/gnus/gnus-icalendar: Add gnus-icalendar-event:end --- lisp/gnus/gnus-icalendar.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 221d98c63a..036832e1d5 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/lisp/gnus/gnus-icalendar.el @@ -159,6 +159,9 @@ gnus-icalendar-event:recurring-days (cl-defmethod gnus-icalendar-event:start ((event gnus-icalendar-event)) (format-time-string "%Y-%m-%d %H:%M" (gnus-icalendar-event:start-time event))) +(cl-defmethod gnus-icalendar-event:end ((event gnus-icalendar-event)) + (format-time-string "%Y-%m-%d %H:%M" (gnus-icalendar-event:end-time event))) + (defun gnus-icalendar-event--decode-duration (event field) (let ((duration (icalendar--get-event-property event field))) (unless (null duration) -- 2.35.2