Re: iCalendar support: reply to invitations, sync to org

[Jan Tatarik <jan.tatarik@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 559 bytes --]

On Thu, Aug 01 2013, Lars Magne Ingebrigtsen wrote:

> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

>> I've now included it in Ma Gnus.

> It gives various errors in various Emacs versions.  >"?


[...]


> XEmacs 21.5:

> While compiling gnus-icalendar-event--decode-datefield in file /var/lib/buildbot/slaves/debian/build-xemacs21.5/build/lisp/gnus-icalendar.el:
>   !! error (("icalendar--decode-isodatetime called with 3 arguments, but accepts only 1-2"))

> Hm...  that function in XEmacs 21.5 doesn't take a timezone?  *sigh*

This should fix it.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: fix for missing timezone support in xemacs --]
[-- Type: text/x-diff, Size: 801 bytes --]

diff --git a/lisp/gnus-icalendar.el b/lisp/gnus-icalendar.el
index 3a9e743e8ed98a0b694a2a2f1d597a6e69ae3142..8f8ccc2766ac7816de35731c7dfb9aec97d457fe 100644
--- a/lisp/gnus-icalendar.el
+++ b/lisp/gnus-icalendar.el
@@ -140,7 +140,10 @@
                      (icalendar--get-event-property-attributes
                       ical field)
                      zone-map))
-         (date-decoded (icalendar--decode-isodatetime date nil date-zone)))
+         (date-decoded (if (featurep 'xemacs)
+                           ;; XEmacs does not support timezone in this function
+                           (icalendar--decode-isodatetime date)
+                         (icalendar--decode-isodatetime date nil date-zone))))
 
     (concat (icalendar--datetime-to-iso-date date-decoded "-")
             " "