%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-icalendar.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require icalendar eieio gmm-utils mm-decode gnus-sum gnus-art] 2)
#@17 

(fn PRED SEQ)
(defalias 'gnus-icalendar-find-if #[514 "\3002\211\205@!\203\301\300@\"\210\211A\266\202\2020\207" [found throw] 5 (#$ . 567)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\210\320\321\315\322\315\323%\210\320\324\315\325\315\326%\210\320\327\315\330\315\331%\210\320\332\315\333\315\334%\210\320\335\315\336\315\337%\210\320\340\315\341\315\342%\210\320\343\315\344\315\345%\210\320\346\315\347\315\350%\210\320\351\315\352\315\353%\210\320\354\315\355\315\356%\210\320\357\315\360\315\361%\210\320\362\315\363\315\364%\210\320\365\315\366\315\367%\210\320\370\315\371\315\372%\210\320\373\315\374\315\375%\210\320\376\315\377\315\201@%\210\320\201A\315\201B\315\201C%\210\320\201D\315\201E\315\201F%\210\320\201G\315\201H\315\201I%\210\320\201J\315\201K\315\201L%\210\320\201M\315\201N\315\201O%\210\320\201P\315\201Q\315\201R%\210\320\201S\315\201T\315\201U%\210\320\201V\315\201W\315\201X%\210\320\201Y\315\201Z\315\201[%\210\320\201\\\315\201]\315\201^%\207" [defalias gnus-icalendar-event-p eieio-make-class-predicate gnus-icalendar-event gnus-icalendar-event--eieio-childp eieio-make-child-predicate gnus-icalendar-event-child-p make-obsolete "use (cl-typep ... \\='gnus-icalendar-event) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((organizer :initarg :organizer :accessor gnus-icalendar-event:organizer :initform #1="" :type (or null string)) (summary :initarg :summary :accessor gnus-icalendar-event:summary :initform #1# :type (or null string)) (description :initarg :description :accessor gnus-icalendar-event:description :initform #1# :type (or null string)) (location :initarg :location :accessor gnus-icalendar-event:location :initform #1# :type (or null string)) (start-time :initarg :start-time :accessor gnus-icalendar-event:start-time :initform #1# :type (or null t)) (end-time :initarg :end-time :accessor gnus-icalendar-event:end-time :initform #1# :type (or null t)) (recur :initarg :recur :accessor gnus-icalendar-event:recur :initform #1# :type (or null string)) (uid :initarg :uid :accessor gnus-icalendar-event:uid :type string) (method :initarg :method :accessor gnus-icalendar-event:method :initform "PUBLISH" :type (or null string)) (rsvp :initarg :rsvp :accessor gnus-icalendar-event:rsvp :initform nil :type (or null boolean)) (participation-type :initarg :participation-type :accessor gnus-icalendar-event:participation-type :initform 'non-participant :type (or null t)) (req-participants :initarg :req-participants :accessor gnus-icalendar-event:req-participants :initform nil :type (or null t)) (opt-participants :initarg :opt-participants :accessor gnus-icalendar-event:opt-participants :initform nil :type (or null t))) (:documentation "generic iCalendar Event class") cl-generic-define-method gnus-icalendar-event:opt-participants ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp opt-participants eieio-oref] 4 "Retrieve the slot `opt-participants' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:opt-participants\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset opt-participants] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:req-participants ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp req-participants eieio-oref] 4 "Retrieve the slot `req-participants' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:req-participants\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset req-participants] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:participation-type ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp participation-type eieio-oref] 4 "Retrieve the slot `participation-type' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:participation-type\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset participation-type] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:rsvp ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp rsvp eieio-oref] 4 "Retrieve the slot `rsvp' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:rsvp\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset rsvp] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:method ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp method eieio-oref] 4 "Retrieve the slot `method' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:method\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset method] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:uid ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp uid eieio-oref] 4 "Retrieve the slot `uid' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:uid\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset uid] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:recur ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp recur eieio-oref] 4 "Retrieve the slot `recur' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:recur\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset recur] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:end-time ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp end-time eieio-oref] 4 "Retrieve the slot `end-time' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:end-time\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset end-time] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:start-time ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp start-time eieio-oref] 4 "Retrieve the slot `start-time' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:start-time\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset start-time] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:location ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp location eieio-oref] 4 "Retrieve the slot `location' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:location\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset location] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:description ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp description eieio-oref] 4 "Retrieve the slot `description' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:description\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset description] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:summary ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp summary eieio-oref] 4 "Retrieve the slot `summary' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:summary\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset summary] 6 "\n\n(fn VALUE THIS)"] gnus-icalendar-event:organizer ((this gnus-icalendar-event)) #[257 "\300\301\"\205\302\301\"\207" [slot-boundp organizer eieio-oref] 4 "Retrieve the slot `organizer' from an object of class `gnus-icalendar-event'.\n\n(fn THIS)"] \(setf\ gnus-icalendar-event:organizer\) (value (this gnus-icalendar-event)) #[514 "\300\301#\207" [eieio-oset organizer] 6 "\n\n(fn VALUE THIS)"]] 7)
#@77 Create a new object of class type `gnus-icalendar-event'.

(fn &rest SLOTS)
(defalias 'gnus-icalendar-event #[128 "\300\301\302#\207" [apply make-instance gnus-icalendar-event] 5 (#$ . 8483)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event compiler-macro gnus-icalendar-event--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'gnus-icalendar-event--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 8810)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias gnus-icalendar-event-request-p eieio-make-class-predicate gnus-icalendar-event-request gnus-icalendar-event-request--eieio-childp eieio-make-child-predicate gnus-icalendar-event-request-child-p make-obsolete "use (cl-typep ... \\='gnus-icalendar-event-request) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gnus-icalendar-event) nil (:documentation "iCalendar class for REQUEST events")] 6)
#@85 Create a new object of class type `gnus-icalendar-event-request'.

(fn &rest SLOTS)
(defalias 'gnus-icalendar-event-request #[128 "\300\301\302#\207" [apply make-instance gnus-icalendar-event-request] 5 (#$ . 9626)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event-request compiler-macro gnus-icalendar-event-request--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'gnus-icalendar-event-request--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 9993)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias gnus-icalendar-event-cancel-p eieio-make-class-predicate gnus-icalendar-event-cancel gnus-icalendar-event-cancel--eieio-childp eieio-make-child-predicate gnus-icalendar-event-cancel-child-p make-obsolete "use (cl-typep ... \\='gnus-icalendar-event-cancel) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gnus-icalendar-event) nil (:documentation "iCalendar class for CANCEL events")] 6)
#@84 Create a new object of class type `gnus-icalendar-event-cancel'.

(fn &rest SLOTS)
(defalias 'gnus-icalendar-event-cancel #[128 "\300\301\302#\207" [apply make-instance gnus-icalendar-event-cancel] 5 (#$ . 10811)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event-cancel compiler-macro gnus-icalendar-event-cancel--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'gnus-icalendar-event-cancel--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 11174)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias gnus-icalendar-event-reply-p eieio-make-class-predicate gnus-icalendar-event-reply gnus-icalendar-event-reply--eieio-childp eieio-make-child-predicate gnus-icalendar-event-reply-child-p make-obsolete "use (cl-typep ... \\='gnus-icalendar-event-reply) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gnus-icalendar-event) nil (:documentation "iCalendar class for REPLY events")] 6)
#@83 Create a new object of class type `gnus-icalendar-event-reply'.

(fn &rest SLOTS)
(defalias 'gnus-icalendar-event-reply #[128 "\300\301\302#\207" [apply make-instance gnus-icalendar-event-reply] 5 (#$ . 11986)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event-reply compiler-macro gnus-icalendar-event-reply--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'gnus-icalendar-event-reply--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 12344)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\207" [cl-generic-define-method gnus-icalendar-event:recurring-p nil ((event gnus-icalendar-event)) #[257 "\300!??\207" [gnus-icalendar-event:recur] 3 "Return t if EVENT is recurring.\n\n(fn EVENT)"] gnus-icalendar-event:recurring-freq ((event gnus-icalendar-event)) #[257 "\300!\301\302\"\210\303\304\"\207" [gnus-icalendar-event:recur string-match "FREQ=\\([[:alpha:]]+\\)" match-string 1] 5 "Return recurring frequency of EVENT.\n\n(fn EVENT)"] gnus-icalendar-event:recurring-interval ((event gnus-icalendar-event)) #[257 "\300!\301\302\303\"\210\304\301\"\206\211\207" [gnus-icalendar-event:recur 1 string-match "INTERVAL=\\([[:digit:]]+\\)" match-string] 6 "Return recurring interval of EVENT.\n\n(fn EVENT)"] gnus-icalendar-event:start ((event gnus-icalendar-event)) #[257 "\300\301\302!\"\207" [format-time-string "%Y-%m-%d %H:%M" gnus-icalendar-event:start-time] 5 "\n\n(fn EVENT)"]] 6)
#@29 

(fn EVENT FIELD ZONE-MAP)
(defalias 'gnus-icalendar-event--decode-datefield #[771 "\300\"\301\302\"\"\303\304#\305!\207" [icalendar--get-event-property icalendar--find-time-zone icalendar--get-event-property-attributes icalendar--decode-isodatetime nil encode-time] 9 (#$ . 13619)])
#@27 

(fn ICAL NAME-OR-EMAIL)
(defalias 'gnus-icalendar-event--find-attendee #[514 "\300!@\211AA@\301C\301C\301\302\240\210\303\240\210\304\305\306\307\310\n#\311\"\312\313%\262\314\"\266\203\207" [icalendar--all-events nil #[257 "\300A@\301\"\207" [plist-get CN] 4 "\n\n(fn ATT)"] #[257 "\300\301\302AA@#\207" [replace-regexp-in-string "^.*MAILTO:" ""] 5 "\n\n(fn ATT)"] make-byte-code 257 "\211@\303=\205&\301\242!\300\235\206&\302\242!\304\305\306\307\310\311!\312\"\313\314%\300\"\262\207" vconcat vector [ATTENDEE gnus-icalendar-find-if make-byte-code 257 "\301\300\"\207" vconcat vector [string-match] 4 "\n\n(fn EMAIL)"] 9 "\n\n(fn PROP)" gnus-icalendar-find-if] 15 (#$ . 13918)])
#@13 

(fn ICAL)
(defalias 'gnus-icalendar-event--get-attendee-names #[257 "\300!@\301\302AA@\"\303C\303C\303C\303\304\240\210\305\240\210\306\307\310\311\312\n\n\"\313\"\314\315%\240\210\306\307\316\311\312\"\317\"\320\315%\262\211\321!\322!D\266\204\207" [icalendar--all-events seq-filter #[257 "\211@\300=\207" [ATTENDEE] 3 "\n\n(fn P)"] nil #[257 "\300A@\301\"\207" [plist-get ROLE] 4 "\n\n(fn PROP)"] #[257 "\300A@\301\"\206\302\303\304AA@#\207" [plist-get CN replace-regexp-in-string "^.*MAILTO:" ""] 5 "\n\n(fn PROP)"] make-byte-code 257 "\302\303\304\305\306\307\301\"\310\"\311\312%\300\"\207" vconcat vector [seq-filter make-byte-code 257 "\300\242!\301\230\207" vconcat vector [] 3 "\n\n(fn P)"] 9 "\n\n(fn TYPE)" "\302\300\242\301\242!\"\207" [mapcar] 5 "REQ-PARTICIPANT" "OPT-PARTICIPANT"] 15 (#$ . 14629)])
#@46 

(fn ICAL &optional ATTENDEE-NAME-OR-EMAIL)
(defalias 'gnus-icalendar-event-from-ical #[513 "\300!@\301\302\303\304\305\"\206\303#\306\307\310\237@AA@\"AA@\205(\311\"\312!\313A@\314\"\211\315\267\202@\316\202A\317\202A\320\321\n!\322\323\n\324\325\326#\327\325\330\n#\331\313A@\332\"\333\230\334\f\335@\336A@\257C\337\230\203\340\202\226\341\230\203\212\342\202\226\343\230\203\225\344\202\226\345\346C\346\347\350\351\352\353!\354\"\355\356%\240\210\347\350\357\352\353\"\360\"\361\362%\262\363\f\"\210\364\365\242#\266\202\207" [icalendar--all-events replace-regexp-in-string "^.*MAILTO:" "" icalendar--get-event-property ORGANIZER ((summary . SUMMARY) (description . DESCRIPTION) (location . LOCATION) (recur . RRULE) (uid . UID)) assoc METHOD gnus-icalendar-event--find-attendee gnus-icalendar-event--get-attendee-names plist-get ROLE #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("REQ-PARTICIPANT" 56 "OPT-PARTICIPANT" 60)) required optional non-participant icalendar--convert-all-timezones :method :organizer :start-time gnus-icalendar-event--decode-datefield DTSTART :end-time DTEND :rsvp RSVP "TRUE" :participation-type :req-participants :opt-participants "REQUEST" gnus-icalendar-event-request "CANCEL" gnus-icalendar-event-cancel "REPLY" gnus-icalendar-event-reply gnus-icalendar-event nil make-byte-code 257 "\301\300\"\211\205\302\303\304\302\305\306\307!##\207" vconcat vector [icalendar--get-event-property replace-regexp-in-string "\\\\," "," "\\\\n" "\n" substring-no-properties] 10 "\n\n(fn PROP)" "\211\211\203\211A\262\242\202\302\303\304GD\"\300\305\306\307\310!P!\301\242!D\300\242\"\240\207" [signal wrong-number-of-arguments (slot . ical-property) append intern ":" symbol-name] 9 "\n\n(fn MAPPING)" mapc apply make-instance] 27 (#$ . 15473)])
#@452 Parse RFC5545 iCalendar in buffer BUF and return an event object.

Return a gnus-icalendar-event object representing the first event
contained in the invitation.  Return nil for calendars without an
event entry.

ATTENDEE-NAME-OR-EMAIL is a list of strings that will be matched
against the event's attendee names and emails.  Invitation rsvp
status will be retrieved from the first matching attendee record.

(fn BUF &optional ATTENDEE-NAME-OR-EMAIL)
(defalias 'gnus-icalendar-event-from-buffer #[513 "r\300\301!!q\210eb\210\302\303\211\")\211\205\304\"\207" [icalendar--get-unfolded-buffer get-buffer icalendar--read-element nil gnus-icalendar-event-from-ical] 6 (#$ . 17368)])
#@39 

(fn ICAL-REQUEST STATUS IDENTITIES)
(defalias 'gnus-icalendar-event--build-reply-event-body #[771 "\300\301!!\301!\226\302C\302C\302C\302C\302C\302\303\304\305\306\307
!\310\"\311\312%\240\210\313\240\210\303\304\314\306\307!\315\"\316\312%\240\210\303\304\317\306\307\f	\"\320\"\311\312%\240\210\303\304\321\306\307\n\n\n	$\322\"\311\312%\262\323\324
\325\"\"\210\326\327\242\"\204u\330\331!\210\332\333\334\335	\242\237\336\"B\325#\266\205\207" [capitalize symbol-name nil make-byte-code 257 "\301\302\"\203\303\304\305\300\"\306\307$\207\207" vconcat vector [string-match "^[^:]+:" replace-match format "\\&%s: " t nil] 6 "\n\n(fn LINE)" #[0 "\300\301\302\303#\207" [format-time-string "DTSTAMP:%Y%m%dT%H%M%SZ" nil t] 4] "\301\302\303\304\305\306!\307\"\310\311%\300\"\207" [gnus-icalendar-find-if make-byte-code 257 "\211\300\302\303\304#)\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn NAME)"] 8 "\301\242!\205\302\303\"\205\304\305\306\300\"\307\310$\207" [string-match "\\(PARTSTAT=\\)[^;]+" replace-match format "\\1%s" t nil] "\304\305\"\205H\306\307\"\211\310\230\203\303\242!\202<\211\311\230\203%\301\242!\202<\211\312\230\2031\302\242 \202<\211\313\235\203;\202<\314\211\205F\300\300\242B\240\266\202\207" [string-match "^\\([^;:]+\\)" match-string 0 "ATTENDEE" "SUMMARY" "DTSTAMP" ("ORGANIZER" "DTSTART" "DTEND" "LOCATION" "DURATION" "SEQUENCE" "RECURRENCE-ID" "UID") nil] mapc split-string "\n" gnus-icalendar-find-if #[257 "\300\301\"\207" [string-match "^ATTENDEE"] 4 "\n\n(fn X)"] error "Could not find an event attendee matching given identity" mapconcat identity "BEGIN:VEVENT" append ("END:VEVENT")] 20 (#$ . 18058)])
#@241 Build a calendar event reply for request contained in BUF.
The reply will have STATUS (`accepted', `tentative' or  `declined').
The reply will be composed for attendees matching any entry
on the IDENTITIES list.

(fn BUF STATUS IDENTITIES)
(defalias 'gnus-icalendar-event-reply-from-buffer #[771 "\300\301\262\300\211r\302\303!!q\210eb\210\304!\262\305!\262)\211\205;\306\307\310\311\312#\313\257\314\315\316\300\"\317#\262\266\202\207" [nil #[257 "\212\300\301\"\300\302\"\303\304\303\305#\205\306 \262\304!\210\307\310 \"\266\203)\207" [format "^BEGIN:%s" "^END:%s" nil re-search-forward t line-beginning-position buffer-substring-no-properties line-end-position] 8 "\n\n(fn BLOCKNAME)"] icalendar--get-unfolded-buffer get-buffer "VTIMEZONE" "VEVENT" "BEGIN:VCALENDAR" "METHOD:REPLY" "PRODID:Gnus" "VERSION:2.0" gnus-icalendar-event--build-reply-event-body "END:VCALENDAR" mapconcat identity delq "\n"] 15 (#$ . 19796)])
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314&	\210\315\316\317\320\321DD\322\323\324%\210\315\325\317\320\326DD\327\323\330%\210\315\331\317\320\332DD\333\323\334%\210\315\335\317\320\336DD\337\323\340%\207" [require org org-capture custom-declare-group gnus-icalendar-org nil "Settings for Calendar Event gnus/org integration." :version "24.4" :group gnus-icalendar :prefix "gnus-icalendar-org-" custom-declare-variable gnus-icalendar-org-capture-file funcall function #[0 "\300\207" [nil] 1] "Target Org file for storing captured calendar events." :type (choice (const nil) file) gnus-icalendar-org-capture-headline #[0 "\300\207" [nil] 1] "Target outline in `gnus-icalendar-org-capture-file' for storing captured events." (repeat string) gnus-icalendar-org-template-name #[0 "\300\207" [#1="used by gnus-icalendar-org"] 1 #1#] "Org-mode template name." (string) gnus-icalendar-org-template-key #[0 "\300\207" [#2="#"] 1 #2#] "Org-mode template hotkey." (string)] 10)
(defvar gnus-icalendar-org-enabled-p nil)
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method gnus-icalendar-event:org-repeat nil ((event gnus-icalendar-event)) #[257 "\300!\205\301\302\303!\"A\211\205\304\305\306!#\266\202\207" [gnus-icalendar-event:recurring-p (("HOURLY" . "h") ("DAILY" . "d") ("WEEKLY" . "w") ("MONTHLY" . "m") ("YEARLY" . "y")) assoc gnus-icalendar-event:recurring-freq format "+%s%s" gnus-icalendar-event:recurring-interval] 7 "Return `org-mode' timestamp repeater string for recurring EVENT.\nReturn nil for non-recurring EVENT.\n\n(fn EVENT)"] gnus-icalendar-event:org-timestamp ((event gnus-icalendar-event)) #[257 "\300!\301!\302\303\"\302\304\"\211\305\230\302\303\"\302\304\"\211\305\230\306\307\310!\310	!\"!\311\n!\211\2036\312P\2027\313\314\203c\203c\315V\203Z\302\303\307
\"\"\316\317\f#\262\202\306\316\320#\202\306\203\215\315U\203x\316\321$\202\306\302\303\307
\"\"\316\322\f\f$\262\202\306\203\247\211\323V\262\203\247\316\324		$\202\306\323U\203\273\316\325	%\202\306\316\326\n\n%\207" [gnus-icalendar-event:start-time gnus-icalendar-event:end-time format-time-string "%Y-%m-%d" "%H:%M" "00:00" time-to-number-of-days time-subtract org-time-string-to-time gnus-icalendar-event:org-repeat " " "" 86400 1 format "<%s>--<%s>" "<%s%s>" "<%s %s-23:59%s>" "<%s %s>--<%s>" 0 "<%s>--<%s %s>" "<%s %s-%s%s>" "<%s %s>--<%s %s>"] 19 "Build `org-mode' timestamp from EVENT start/end dates and recurrence info.\n\n(fn EVENT)"]] 6)
#@35 

(fn SUMMARY &optional LOCATION)
(defalias 'gnus-icalendar--format-summary-line #[513 "\211\203\n\300\301#\207\300\302\"\207" [format "%s (%s)" "%s"] 6 (#$ . 23340)])
#@21 

(fn PARTICIPANTS)
(defalias 'gnus-icalendar--format-participant-list #[257 "\300\301\302#\207" [mapconcat identity ", "] 5 (#$ . 23518)])
(cl-generic-define-method 'gnus-icalendar-event->org-entry nil '((event gnus-icalendar-event) reply-status) nil #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \210\203#\312\313!!\202$\314\315\316\317\320\"B\321\322!B\323\324	!B\325\313\326!!B\327\330\331\f!!B\332\330\333
!!B\334\335
!B\336	B\257	\337\340\341\317\342\"\317\343\"\"\"c\210\344\345\"\266\214``}\210\346!\347\317\350\"\206\203\351\261\210\352ed\310#\210\353ed\"\210)\354 \262*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-mode capitalize symbol-name "Not replied yet" ("ICAL_EVENT" . "t") "ID" slot-value uid "ORGANIZER" gnus-icalendar-event:organizer "LOCATION" gnus-icalendar-event:location "PARTICIPATION_TYPE" gnus-icalendar-event:participation-type "REQ_PARTICIPANTS" gnus-icalendar--format-participant-list gnus-icalendar-event:req-participants "OPT_PARTICIPANTS" gnus-icalendar-event:opt-participants "RRULE" gnus-icalendar-event:recur "REPLY" format "* %s\n\n" gnus-icalendar--format-summary-line summary location mapc #[257 "\300`@A#\207" [org-entry-put] 5 "\n\n(fn PROP)"] gnus-icalendar-event:org-timestamp "\n\n" description "No description" indent-region fill-region buffer-string] 15 "Return string with new `org-mode' entry describing EVENT.\n\n(fn EVENT REPLY-STATUS)"])
#@11 

(fn TS)
(defalias 'gnus-icalendar--deactivate-org-timestamp #[257 "\300\301\302#\207" [replace-regexp-in-string "[<>]" #[257 "\211\300\230\203\301\207\211\302\230\205\303\207" ["<" "[" ">" "]"] 3 "\n\n(fn M)"]] 5 (#$ . 25051)])
#@254 Return the name of the file containing EVENT org entry.
Return nil when not found.

All org agenda files are searched for the EVENT entry.  When
the optional ORG-FILE argument is specified, only that one file
is searched.

(fn EVENT &optional ORG-FILE)
(defalias 'gnus-icalendar-find-org-event-file #[513 "\300!\206\301\302\303\"\304\305\306\307\310\311!\312\"\313\314%\262\315\"\262\207" [gnus-icalendar-event:uid org-agenda-files t ifmode nil make-byte-code 257 "\301!\210r\302!q\210\303\300!\211\205!\304\305\306!\"A\307\230\205!\310\311\"\262)\207" vconcat vector [org-check-agenda-file find-file-noselect org-find-entry-with-id assoc "ICAL_EVENT" org-entry-properties "t" throw found] 6 "\n\n(fn FILE)" gnus-icalendar-find-if] 11 (#$ . 25293)])
#@33 

(fn EVENT &optional ORG-FILE)
(defalias 'gnus-icalendar--show-org-event #[513 "\300\"\211\205\301\302!!\210\303\304!!b\210\305 \207" [gnus-icalendar-find-org-event-file switch-to-buffer find-file org-find-entry-with-id gnus-icalendar-event:uid org-show-entry] 6 (#$ . 26066)])
#@46 

(fn EVENT REPLY-STATUS &optional ORG-FILE)
(defalias 'gnus-icalendar--update-org-event #[770 "\300\"\211\205r\301!q\210\302\303\304\"!\211\205\373\211b\210\212\305`\306\"\307\310\305`\311\"\205/\312\313\"\314\303\315\"\303	\316\"\"\305`\317\"F\"\320\321\322 \"\210`\322 |\210\323\324\325#c\266)\212\326 \210`)\327 \214\330 \210b\210\331\332!\210\310y\210`|\210)\303\333\"\203\234\214``}\210\334\335	!\336\337\340\334\303\n\333\"#\334\261\210\341edT#\210\342ed\"\210)\310\343\262\211\344\303\345\"#\210\211\346\303\316\"#\210\211\347\350\303	\351\"!#\210\211\352\353\303	\354\"!#\210\211\355\353\303	\356\"!#\210\211\357\303\360\"#\210\211\361\n\203\363\362\350\f!!\202\364\363#\266\364 \266\202\262\262)\207" [gnus-icalendar-find-org-event-file find-file-noselect org-find-entry-with-id slot-value uid org-entry-get "PRIORITY" delq nil "TODO" format "[#%s]" gnus-icalendar--format-summary-line summary location "TAGS" re-search-forward "^\\*+ " line-end-position mapconcat identity " " outline-next-heading org-outline-level org-narrow-to-element re-search-backward "^[	 ]*:END:" description "\n" gnus-icalendar-event:org-timestamp "\n\n" replace-regexp-in-string "[\n]+$" indent-region fill-region #[771 "\211\203\n\211\300\230\203\301\"\207\302#\207" ["" org-entry-delete org-entry-put] 7 "\n\n(fn POSITION PROPERTY VALUE)"] "ORGANIZER" organizer "LOCATION" "PARTICIPATION_TYPE" symbol-name participation-type "REQ_PARTICIPANTS" gnus-icalendar--format-participant-list req-participants "OPT_PARTICIPANTS" opt-participants "RRULE" recur "REPLY" capitalize "Not replied yet" save-buffer] 17 (#$ . 26357)])
#@33 

(fn EVENT &optional ORG-FILE)
(defalias 'gnus-icalendar--cancel-org-event #[513 "\300\"\211\205.r\301!q\210\302\303!!\211\205+\304\305\"\211\205)\306\305\307!#\210\310 \262\262)\207" [gnus-icalendar-find-org-event-file find-file-noselect org-find-entry-with-id gnus-icalendar-event:uid org-entry-get "DT" org-entry-put gnus-icalendar--deactivate-org-timestamp save-buffer] 10 (#$ . 28027)])
#@33 

(fn EVENT &optional ORG-FILE)
(defalias 'gnus-icalendar--get-org-event-reply-status #[513 "\300\"\211\205\212r\301!q\210\302\303!!\304\305\"\262*\207" [gnus-icalendar-find-org-event-file find-file-noselect org-find-entry-with-id gnus-icalendar-event:uid org-entry-get "REPLY"] 7 (#$ . 28438)])
(defalias 'gnus-icalendar-insinuate-org-templates #[0 "\305\306\"?\205\307	\n\310\311\fBB\312BBBBC\"\211\207" [org-capture-templates gnus-icalendar-org-template-key gnus-icalendar-org-template-name gnus-icalendar-org-capture-file gnus-icalendar-org-capture-headline gnus-icalendar-find-if #[257 "\211A@\230\207" [gnus-icalendar-org-template-name] 3 "\n\n(fn X)"] append entry file+olp ("%i" :immediate-finish t)] 7])
#@27 

(fn EVENT REPLY-STATUS)
(defalias 'gnus-icalendar:org-event-save #[514 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\"\"*\207" [gnus-icalendar-org-template-key generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-capture-string gnus-icalendar-event->org-entry] 9 (#$ . 29172)])
#@14 

(fn EVENT)
(defalias 'gnus-icalendar-show-org-agenda #[257 "\300\301!\302!\"\303\304\305\"\306\"T\307\310\311!#\207" [time-subtract gnus-icalendar-event:end-time gnus-icalendar-event:start-time floor time-convert integer 86400 org-agenda-list nil gnus-icalendar-event:start] 7 (#$ . 29553)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\207" [cl-generic-define-method gnus-icalendar-event:sync-to-org nil ((event gnus-icalendar-event-request) reply-status) #[514 "\300!\203\301\"\207\302\"\207" [gnus-icalendar-find-org-event-file gnus-icalendar--update-org-event gnus-icalendar:org-event-save] 5 "\n\n(fn EVENT REPLY-STATUS)"] ((event gnus-icalendar-event-cancel) _reply-status) #[514 "\300!\205	\301!\207" [gnus-icalendar-find-org-event-file gnus-icalendar--cancel-org-event] 4 "\n\n(fn EVENT REPLY-STATUS)"]] 6)
(defalias 'gnus-icalendar-org-setup #[0 "\203	\203\303 \210\304\211\207\305\306!\207" [gnus-icalendar-org-capture-file gnus-icalendar-org-capture-headline gnus-icalendar-org-enabled-p gnus-icalendar-insinuate-org-templates t message "Cannot enable Calendar->Org: missing capture file, headline"] 2])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\207" [custom-declare-group gnus-icalendar nil "Settings for inline display of iCalendar invitations." :version "24.4" :group gnus-article :prefix "gnus-icalendar-" custom-declare-variable gnus-icalendar-reply-bufname funcall function #[0 "\300\207" [#1="*CAL*"] 1 #1#] "Buffer used for building iCalendar invitation reply." :type (string) gnus-icalendar-additional-identities #[0 "\300\207" [nil] 1] "We need to know your identity to make replies to calendar requests work.\n\nGnus will only offer you the Accept/Tentative/Decline buttons for\ncalendar events if any of your identities matches at least one\nRSVP participant.\n\nYour identity is guessed automatically from the variables\n`user-full-name', `user-mail-address',\n`gnus-ignored-from-addresses' and `message-alternative-emails'.\n\nIf you need even more aliases you can define them here.  It really\nonly makes sense to define names or email addresses." (repeat string)] 10)
(defvar gnus-icalendar-reply-status nil nil)
(make-variable-buffer-local 'gnus-icalendar-reply-status)
(defvar gnus-icalendar-event nil nil)
(make-variable-buffer-local 'gnus-icalendar-event)
(defvar gnus-icalendar-handle nil nil)
(make-variable-buffer-local 'gnus-icalendar-handle)
#@150 Return list of regexp-quoted names and email addresses belonging to the user.

These will be used to retrieve the RSVP information from ical events.
(defalias 'gnus-icalendar-identities #[0 "\305\306\307\310\311	!\n\312!?\205\307\311\f\"\257\"\"\207" [user-full-name user-mail-address gnus-ignored-from-addresses message-alternative-emails gnus-icalendar-additional-identities apply append mapcar #[257 "\211<\203\207\211C\207" [] 2 "\n\n(fn X)"] regexp-quote functionp] 11 (#$ . 32074)])
(cl-generic-define-method 'gnus-icalendar-event->gnus-calendar nil '((event gnus-icalendar-event) &optional reply-status) nil #[513 "\300\301\262\302\303\304\"D\305\303\306\"\206\307D\310\311!D\312\303\313\"D\314\303\315\"\316=\2030\317\2029\320\321\303\315\"!!D\322\303\323\"D\257\324!\204^\303\325\"\203^\326\327\206Y\330DC\"\262\331\332#\333\303\334\"Q\262\262\207" [nil #[257 "\300\301\302@\303P\304\305#A@#\207" [format "%-12s%s" propertize ":" face bold] 7 "\n\n(fn X)"] "Summary" slot-value summary "Location" location "" "Time" gnus-icalendar-event:org-timestamp "Organizer" organizer "Attendance" participation-type non-participant "You are not listed as an attendee" capitalize symbol-name "Method" method gnus-icalendar-event-reply-p rsvp append "Status" "Not replied yet" mapconcat "\n" "\n\n" description] 14 "Format an overview of EVENT details.\n\n(fn EVENT &optional REPLY-STATUS)"])
#@91 Execute BODY in buffer containing the decoded contents of HANDLE.

(fn HANDLE &rest BODY)
(defalias 'gnus-icalendar-with-decoded-handle '(macro . #[385 "\300\301!\302\303\304\305\306DEDDC\307\310D\311\312\313D\314BB\315BBBBBE\207" [make-symbol "charset" let cdr assoc 'charset mm-handle-type with-temp-buffer mm-insert-part when string= downcase ("utf-8") ((decode-coding-region (point-min) (point-max) 'utf-8))] 11 (#$ . 33511)]))
#@48 

(fn HANDLE &optional ATTENDEE-NAME-OR-EMAIL)
(defalias 'gnus-icalendar-event-from-handle #[513 "\300\301A@\"A\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\227\314\230\203+\315ed\316#\210\317p\"*\262\207" [assoc charset generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-insert-part "utf-8" decode-coding-region utf-8 gnus-icalendar-event-from-buffer] 10 (#$ . 33958)])
#@27 

(fn TEXT CALLBACK DATA)
(defalias 'gnus-icalendar-insert-button #[771 "`\302\303\304\261\210`\305\306\307	\310\311\312\311\313\257\f#\207" [gnus-mime-button-map gnus-article-button-face add-text-properties "[ " " ]" gnus-callback keymap face follow-link t button gnus-data] 19 (#$ . 34434)])
#@28 

(fn BUFFER-NAME SUBJECT)
(defalias 'gnus-icalendar-send-buffer-by-mail #[514 "\302r	q\210\303 \210\304 \210\305\306!\210\307\310\311\312#\210\313\314\"\210\315 \210\316 \317 |\210\320\261\210\321 *\207" [message-signature gnus-summary-buffer nil gnus-summary-reply message-goto-body mml-insert-multipart "alternative" mml-insert-empty-tag part type "text/plain" mml-attach-buffer "text/calendar; method=REPLY; charset=UTF-8" message-goto-subject line-beginning-position line-end-position "Subject: " message-send-and-exit] 6 (#$ . 34743)])
#@13 

(fn DATA)
(defalias 'gnus-icalendar-reply #[257 "\211@A@AA@\304\305A@\"A\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317!\210\227\320\230\2034\321ed\322#\210\323p\324 #*\262\262\211\205\203\325\326\262\327\330!!\331\332!Qr\333!q\210ed|\210c\210 \210\334\335 \"\210)\336\301!\210\n\205\337\"\210rq\210\340 )\262\262\207" [gnus-icalendar-reply-bufname gnus-icalendar-reply-status gnus-icalendar-org-enabled-p gnus-summary-buffer assoc charset generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-insert-part "utf-8" decode-coding-region utf-8 gnus-icalendar-event-reply-from-buffer gnus-icalendar-identities nil #[0 "eb\210\300\301\302\303#\205\304\305!\210\306 b\210\202\207" [re-search-forward "^\\(.\\{72\\}\\)\\(.+\\)$" nil t replace-match "\\1\n \\2" line-beginning-position] 4] capitalize symbol-name ": " gnus-icalendar-event:summary get-buffer-create gnus-icalendar-send-buffer-by-mail buffer-name make-local-variable gnus-icalendar--update-org-event gnus-summary-show-article] 12 (#$ . 35295)])
#@14 

(fn EVENT)
(defalias 'gnus-icalendar-sync-event-to-org #[257 "\301\"\207" [gnus-icalendar-reply-status gnus-icalendar-event:sync-to-org] 4 (#$ . 36419)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\307\302\312\302\313%\210\300\314\302\315\302\316%\210\300\314\302\317\302\320%\207" [cl-generic-define-method gnus-icalendar-event:inline-reply-buttons nil ((event gnus-icalendar-event) handle) #[514 "\300!\205\301\302\303EE\304\302\305EE\306\302\307EEE\207" [gnus-icalendar-event:rsvp "Accept" gnus-icalendar-reply accepted "Tentative" tentative "Decline" declined] 9 "\n\n(fn EVENT HANDLE)"] ((_event gnus-icalendar-event-reply) _handle) #[514 "\300\207" [nil] 3 "No buttons for REPLY events.\n\n(fn EVENT HANDLE)"] gnus-icalendar-event:inline-reply-status ((event gnus-icalendar-event)) #[257 "\203\n\301!\206\302\207" [gnus-icalendar-org-enabled-p gnus-icalendar--get-org-event-reply-status "Not replied yet"] 3 "\n\n(fn EVENT)"] ((_event gnus-icalendar-event-reply)) #[257 "\300\207" [nil] 2 "No reply status for REPLY events.\n\n(fn EVENT)"] gnus-icalendar-event:inline-org-buttons ((event gnus-icalendar-event)) #[257 "\300!\211\203\301\202\f\302\303\304\305\306E\307!\205\310E\205(\311\312EE\"\207" [gnus-icalendar-find-org-event-file "Update Org Entry" "Export to Org" delq nil "Show Agenda" gnus-icalendar-show-org-agenda gnus-icalendar-event-request-p gnus-icalendar-sync-event-to-org "Show Org Entry" gnus-icalendar--show-org-event] 10 "\n\n(fn EVENT)"] ((event gnus-icalendar-event-cancel)) #[257 "\300!\301\302\303\304E\205\305\306E\205\307\310EE\"\207" [gnus-icalendar-find-org-event-file delq nil "Show Agenda" gnus-icalendar-show-org-agenda "Update Org Entry" gnus-icalendar-sync-event-to-org "Show Org Entry" gnus-icalendar--show-org-event] 9 "\n\n(fn EVENT)"]] 6)
#@15 

(fn HANDLE)
(defalias 'gnus-icalendar-mm-inline #[257 "\304\305 \"\306\211\205-\306\307\262\211\310\"!\210	\203 \211\311!!\210\312\313!\"c\262\207" [gnus-icalendar-reply-status gnus-icalendar-org-enabled-p gnus-icalendar-event gnus-icalendar-handle gnus-icalendar-event-from-handle gnus-icalendar-identities nil #[257 "\211\205\300\301\"\210\302c\207" [mapc #[257 "\300\301\"\210\302c\207" [apply gnus-icalendar-insert-button "    "] 4 "\n\n(fn X)"] "\n\n"] 4 "\n\n(fn BUTTONS)"] gnus-icalendar-event:inline-reply-buttons gnus-icalendar-event:inline-org-buttons gnus-icalendar-event->gnus-calendar gnus-icalendar-event:inline-reply-status] 7 (#$ . 38315)])
#@15 

(fn HANDLE)
(defalias 'gnus-icalendar-save-part #[257 "\300A@@\301\232\205\302\303 \"\211\262\205\304!\207" [nil "text/calendar" gnus-icalendar-event-from-handle gnus-icalendar-identities gnus-icalendar-event:sync-to-org] 5 (#$ . 38999)])
#@64 Save the Calendar event in the text/calendar part under point.
(defalias 'gnus-icalendar-save-event #[0 "\300 \210\301`\302\"\211\205\303!\207" [gnus-article-check-buffer get-text-property gnus-data gnus-icalendar-save-part] 3 (#$ . 39254) nil])
#@43 Accept invitation in the current article.
(defalias 'gnus-icalendar-reply-accept #[0 "rq\210\304	\305\nE!\210\306\303!\210\305\211)\207" [gnus-article-buffer gnus-icalendar-handle gnus-icalendar-event gnus-icalendar-reply-status gnus-icalendar-reply accepted make-local-variable] 4 (#$ . 39509) nil])
#@63 Send tentative response to invitation in the current article.
(defalias 'gnus-icalendar-reply-tentative #[0 "rq\210\304	\305\nE!\210\306\303!\210\305\211)\207" [gnus-article-buffer gnus-icalendar-handle gnus-icalendar-event gnus-icalendar-reply-status gnus-icalendar-reply tentative make-local-variable] 4 (#$ . 39818) nil])
#@44 Decline invitation in the current article.
(defalias 'gnus-icalendar-reply-decline #[0 "rq\210\304	\305\nE!\210\306\303!\210\305\211)\207" [gnus-article-buffer gnus-icalendar-handle gnus-icalendar-event gnus-icalendar-reply-status gnus-icalendar-reply declined make-local-variable] 4 (#$ . 40151) nil])
#@71 Export calendar event to `org-mode', or update existing agenda entry.
(defalias 'gnus-icalendar-event-export #[0 "rq\210\303	!\210)r\nq\210\304 )\207" [gnus-article-buffer gnus-icalendar-event gnus-summary-buffer gnus-icalendar-sync-event-to-org gnus-summary-show-article] 2 (#$ . 40462) nil])
#@64 Display `org-mode' agenda entry related to the calendar event.
(defalias 'gnus-icalendar-event-show #[0 "\302rq\210	)!\207" [gnus-article-buffer gnus-icalendar-event gnus-icalendar--show-org-event] 2 (#$ . 40763) nil])
#@71 Display `org-mode' agenda for days between event start and end dates.
(defalias 'gnus-icalendar-event-check-agenda #[0 "\302rq\210	)!\207" [gnus-article-buffer gnus-icalendar-event gnus-icalendar-show-org-agenda] 2 (#$ . 40989) nil])
(defalias 'gnus-icalendar-setup #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\210\306\307\310\"\210\311\312!\210\300\313\314\315B\316#\207" [add-to-list mm-inlined-types "text/calendar" mm-automatic-display mm-inline-media-tests ("text/calendar" gnus-icalendar-mm-inline identity) gnus-define-keys-1 (gnus-summary-calendar-map "i" gnus-summary-mode-map) ("a" gnus-icalendar-reply-accept "t" gnus-icalendar-reply-tentative "d" gnus-icalendar-reply-decline "c" gnus-icalendar-event-check-agenda "e" gnus-icalendar-event-export "s" gnus-icalendar-event-show) require gnus-art gnus-mime-action-alist "save calendar event" gnus-icalendar-save-event t] 4])
(provide 'gnus-icalendar)

Zerion Mini Shell 1.0