HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/gnus-icalendar.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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)
(defalias 'gnus-icalendar-find-if #[(pred seq) "\3022\205	@!\203\303\302@\"\210\211A\210\2020\207" [seq pred found throw] 3])
(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)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp opt-participants eieio-oref] 3 "Retrieve the slot `opt-participants' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:opt-participants\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset opt-participants] 4] gnus-icalendar-event:req-participants ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp req-participants eieio-oref] 3 "Retrieve the slot `req-participants' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:req-participants\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset req-participants] 4] gnus-icalendar-event:participation-type ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp participation-type eieio-oref] 3 "Retrieve the slot `participation-type' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:participation-type\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset participation-type] 4] gnus-icalendar-event:rsvp ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp rsvp eieio-oref] 3 "Retrieve the slot `rsvp' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:rsvp\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset rsvp] 4] gnus-icalendar-event:method ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp method eieio-oref] 3 "Retrieve the slot `method' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:method\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset method] 4] gnus-icalendar-event:uid ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp uid eieio-oref] 3 "Retrieve the slot `uid' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:uid\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset uid] 4] gnus-icalendar-event:recur ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp recur eieio-oref] 3 "Retrieve the slot `recur' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:recur\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset recur] 4] gnus-icalendar-event:end-time ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp end-time eieio-oref] 3 "Retrieve the slot `end-time' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:end-time\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset end-time] 4] gnus-icalendar-event:start-time ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp start-time eieio-oref] 3 "Retrieve the slot `start-time' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:start-time\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset start-time] 4] gnus-icalendar-event:location ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp location eieio-oref] 3 "Retrieve the slot `location' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:location\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset location] 4] gnus-icalendar-event:description ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp description eieio-oref] 3 "Retrieve the slot `description' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:description\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset description] 4] gnus-icalendar-event:summary ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp summary eieio-oref] 3 "Retrieve the slot `summary' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:summary\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset summary] 4] gnus-icalendar-event:organizer ((this gnus-icalendar-event)) #[(this) "\301\302\"\205\303\302\"\207" [this slot-boundp organizer eieio-oref] 3 "Retrieve the slot `organizer' from an object of class `gnus-icalendar-event'."] \(setf\ gnus-icalendar-event:organizer\) (value (this gnus-icalendar-event)) #[(value this) "\302\303	#\207" [this value eieio-oset organizer] 4]] 7)
#@59 Create a new object of class type `gnus-icalendar-event'.
(defalias 'gnus-icalendar-event #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gnus-icalendar-event] 4 (#$ . 8369)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event compiler-macro gnus-icalendar-event--anon-cmacro] 4)
(defalias 'gnus-icalendar-event--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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)
#@67 Create a new object of class type `gnus-icalendar-event-request'.
(defalias 'gnus-icalendar-event-request #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gnus-icalendar-event-request] 4 (#$ . 9492)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event-request compiler-macro gnus-icalendar-event-request--anon-cmacro] 4)
(defalias 'gnus-icalendar-event-request--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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)
#@66 Create a new object of class type `gnus-icalendar-event-cancel'.
(defalias 'gnus-icalendar-event-cancel #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gnus-icalendar-event-cancel] 4 (#$ . 10657)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event-cancel compiler-macro gnus-icalendar-event-cancel--anon-cmacro] 4)
(defalias 'gnus-icalendar-event-cancel--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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)
#@65 Create a new object of class type `gnus-icalendar-event-reply'.
(defalias 'gnus-icalendar-event-reply #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gnus-icalendar-event-reply] 4 (#$ . 11811)])
(byte-code "\300\301\302\303#\300\207" [function-put gnus-icalendar-event-reply compiler-macro gnus-icalendar-event-reply--anon-cmacro] 4)
(defalias 'gnus-icalendar-event-reply--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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)) #[(event) "\301!??\207" [event gnus-icalendar-event:recur] 2 "Return t if EVENT is recurring."] gnus-icalendar-event:recurring-freq ((event gnus-icalendar-event)) #[(event) "\302!\303\304	\"\210\305\306	\")\207" [event rrule gnus-icalendar-event:recur string-match "FREQ=\\([[:alpha:]]+\\)" match-string 1] 3 "Return recurring frequency of EVENT."] gnus-icalendar-event:recurring-interval ((event gnus-icalendar-event)) #[(event) "\303!\304\305\306\n\"\210\307\304\n\"\206	*\207" [event default-interval rrule gnus-icalendar-event:recur 1 string-match "INTERVAL=\\([[:digit:]]+\\)" match-string] 3 "Return recurring interval of EVENT."] gnus-icalendar-event:start ((event gnus-icalendar-event)) #[(event) "\301\302\303!\"\207" [event format-time-string "%Y-%m-%d %H:%M" gnus-icalendar-event:start-time] 4]] 6)
(defalias 'gnus-icalendar-event--decode-datefield #[(event field zone-map) "\306	\"\307\310	\"\"\311\n\312\f#\313\314
\"+\207" [event field dtdate zone-map dtdate-zone dtdate-dec icalendar--get-event-property icalendar--find-time-zone icalendar--get-event-property-attributes icalendar--decode-isodatetime nil apply encode-time] 4])
(defalias 'gnus-icalendar-event--find-attendee #[(ical name-or-email) "\306!@\211AA@\307\211\211\310\311\312\313\n\"-\207" [ical event event-props #1=#:--cl-attendee-prop-matches-p-- #2=#:--cl-attendee-email-- #3=#:--cl-attendee-name-- icalendar--all-events nil #[(att) "\301A@\302\"\207" [att plist-get CN] 3] #[(att) "\301\302\303AA@#\207" [att replace-regexp-in-string "^.*MAILTO:" ""] 4] #[(prop) "@\305=\205	!\n\235\206!\306\307\n\")\207" [prop #3# name-or-email #2# att-email ATTENDEE gnus-icalendar-find-if #[(email) "\302	\"\207" [email att-email string-match] 3]] 3] gnus-icalendar-find-if] 4])
(defalias 'gnus-icalendar-event--get-attendee-names #[(ical) "\306!@\307\310	AA@\"\311\211\211\211\312\313\314\315\211\316!\317!.D\207" [ical event attendee-props #1=#:--cl-attendee-names-by-type-- #2=#:--cl-attendees-by-type-- #3=#:--cl-attendee-name-- icalendar--all-events gnus-remove-if-not #[(p) "@\301=\207" [p ATTENDEE] 2] nil #[(prop) "\301A@\302\"\207" [prop plist-get ROLE] 3] #[(prop) "\301A@\302\"\206\303\304\305AA@#\207" [prop plist-get CN replace-regexp-in-string "^.*MAILTO:" ""] 4] #[(type) "\301\302\"\207" [attendee-props gnus-remove-if-not #[(p) "	!\n\230\207" [#4=#:--cl-attendee-role-- p type] 2]] 3] #[(type) "\303	\n!\"\207" [#3# #2# type mapcar] 4] "REQ-PARTICIPANT" "OPT-PARTICIPANT" #4#] 5])
(defalias 'gnus-icalendar-event-from-ical #[(ical &optional attendee-name-or-email) "\306!@\307\310\311\312	\313\"\206\311#\314\315\316\237@AA@\"AA@
\205)\317
\"2\320!3\3212A@\322\"\2114\323\267\202G\324\202H\325\202H\3265\327!6\330\f\331\n\332\333	\3346#\335\333	\3366#\337\3212A@\340\"\341\230\3425\3433@\3443A@\2577\f\345\230\203\205\346\202\232\f\347\230\203\217\350\202\232\f\351\230\203\231\352\202\232\3538\354\2119:\355:\3569\3579\"\210\360\36187#.
\207" [ical event organizer prop-map method attendee-name-or-email 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" 63 "OPT-PARTICIPANT" 67)) 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 #[(prop) "\303	\"\211\205\304\305\306\304\307\310\311\n!##)\207" [event prop value icalendar--get-event-property replace-regexp-in-string "\\\\," "," "\\\\n" "\n" substring-no-properties] 9] #[(mapping) "\211\203	\211A\242\202\305\306\307	GD\"\310\311\312\313\n!P!	!D\f\"\211*\207" [mapping ical-property slot #1=#:--cl-map-property-- args signal wrong-number-of-arguments nil append intern ":" symbol-name] 6] mapc apply make-instance attendee attendee-names role participation-type zone-map args event-class #2=#:--cl-accumulate-args-- #1#] 17])
#@407 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.
(defalias 'gnus-icalendar-event-from-buffer #[(buf &optional attendee-name-or-email) "r\303\304!!q\210eb\210\305\306\211\")\211\205\307	\n\")\207" [buf ical attendee-name-or-email icalendar--get-unfolded-buffer get-buffer icalendar--read-element nil gnus-icalendar-event-from-ical] 4 (#$ . 17088)])
(defalias 'gnus-icalendar-event--build-reply-event-body #[(ical-request status identities) "\306\307!!\307!\226\310\310\211\211\211\211\311\312\313\314\315\316\f\317\320\"\"\210\321\322	\"\204;\323\324!\210\325\326\327\330	\237\331\"B\320#.\207" [status reply-event-lines attendee-status summary-status #1=#:--cl-process-event-line-- #2=#:--cl-update-attendee-status-- capitalize symbol-name nil #[(line) "\302\303\"\203\304\305\306	\"\307\310$\207\207" [line summary-status string-match "^[^:]+:" replace-match format "\\&%s: " t nil] 5] #[nil "\300\301\302\303#\207" [format-time-string "DTSTAMP:%Y%m%dT%H%M%SZ" nil t] 4] #[(line) "\301\302\"\207" [identities gnus-icalendar-find-if #[(name) "	\303\304\305#)\207" [name line inhibit-changing-match-data nil t string-match] 7]] 3] #[(line) "	!\205\303\304	\"\205\305\306\307\n\"\310\311	$\207" [#3=#:--cl-attendee-matches-identity-- line attendee-status string-match "\\(PARTSTAT=\\)[^;]+" replace-match format "\\1%s" t nil] 5] #[(line) "\306\307\"\205G\310\311\"\211\312\230\203\n!\202:	\313\230\203$!\202:	\314\230\203/\f \202:	\315\235\2039\202:\316\211\205F
B\211*\207" [line key #2# #4=#:--cl-update-summary-- #5=#:--cl-update-dtstamp-- new-line string-match "^\\([^;:]+\\)" match-string 0 "ATTENDEE" "SUMMARY" "DTSTAMP" ("ORGANIZER" "DTSTART" "DTEND" "LOCATION" "DURATION" "SEQUENCE" "RECURRENCE-ID" "UID") nil reply-event-lines] 4] mapc split-string "\n" gnus-icalendar-find-if #[(x) "\301\302\"\207" [x string-match "^ATTENDEE"] 3] error "Could not find an event attendee matching given identity" mapconcat identity "BEGIN:VEVENT" append ("END:VEVENT") #3# #5# #4# ical-request] 6])
#@213 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.
(defalias 'gnus-icalendar-event-reply-from-buffer #[(buf status identities) "\306\307\306\211r\310\311!!q\210eb\210\312!\313!)	\2059\314\315\316\317\n\320	\f
#\321\257\322\323\324\306\"\325#)+\207" [#1=#:--cl-extract-block-- event zone buf status identities nil #[(blockname) "\212\304\305\"\304\306\"\307\310\307\311#\205!\312 \310\n!\210\313	\314 \",\207" [blockname start block-end-re block-start-re format "^BEGIN:%s" "^END:%s" nil re-search-forward t line-beginning-position buffer-substring-no-properties line-end-position] 4] 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" contents] 9 (#$ . 19512)])
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314&	\210\315\316\305\317\320\321\311\304&\210\315\322\305\323\320\324\311\304&\210\315\325\326\327\320\330\311\304&\210\315\331\332\333\320\334\311\304&\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 "Target Org file for storing captured calendar events." :type (choice (const nil) file) gnus-icalendar-org-capture-headline "Target outline in `gnus-icalendar-org-capture-file' for storing captured events." (repeat string) gnus-icalendar-org-template-name "used by gnus-icalendar-org" "Org-mode template name." (string) gnus-icalendar-org-template-key "#" "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)) #[(event) "\303!\205\304\305\306!	\"A\211\205\307\310\311!\n#*\207" [event freq-map org-freq 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] 5 "Return `org-mode' timestamp repeater string for recurring EVENT.\nReturn nil for non-recurring EVENT."] gnus-icalendar-event:org-timestamp ((event gnus-icalendar-event)) #[(event) "\306!\307!\310\311	\"\310\312	\"\211\313\230\310\311\n\"\310\312\n\"\211\313\230 \314\315\316!\316!\"!\317\245!\320!\211\"\203F\321\"P\202G\322#\323$
\203y \203y!\324V\203p\310\311\315\n$\"\"%\325\326%#)\202\331\325\327##\202\331 \203\244!\324U\203\217\325\330\f#$\202\331\310\311\315\n$\"\"%\325\331\f%$)\202\331
\203\275!\211\332V\262\203\275\325\333$\202\331!\332U\203\320\325\334\f#%\202\331\325\335\f%.\f\207" [event start end start-date start-time start-at-midnight gnus-icalendar-event:start-time gnus-icalendar-event:end-time format-time-string "%Y-%m-%d" "%H:%M" "00:00" float-time time-subtract org-time-string-to-time 86400 gnus-icalendar-event:org-repeat " " "" (0 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>" end-date end-time end-at-midnight start-end-date-diff org-repeat repeat time-1-day end-ts] 7 "Build `org-mode' timestamp from EVENT start/end dates and recurrence info."]] 6)
(defalias 'gnus-icalendar--format-summary-line #[(summary &optional location) "\203\n\302\303	#\207\302\304	\"\207" [location summary format "%s (%s)" "%s"] 4])
(defalias 'gnus-icalendar--format-participant-list #[(participants) "\301\302\303#\207" [participants mapconcat identity ", "] 4])
(cl-generic-define-method 'gnus-icalendar-event->org-entry nil '((event gnus-icalendar-event) reply-status) nil #[(event reply-status) "\306\307!rq\210\310\216\311 \210	\203\312\313!!\202\314\315\316\317\n\320\"B\321\322	!B\323\324	!B\325\313\326	!!B\327\330\331	!!B\332\330\333	!!B\334\335	!B\336\fB\257	\337\340\341\317\n\342\"\317\n\343\"\"\"c\210\344\345
\"\210*\317\n\346\"\203\206\214``}\210\347	!\350\317\n\346\"\261\210\351ed\352#\210\353ed\"\210)\354 ,\207" [#1=#:temp-buffer event #:object reply-status reply props generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# 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 #[(prop) "\301`@A#\207" [prop org-entry-put] 4] description gnus-icalendar-event:org-timestamp "\n\n" indent-region 2 fill-region buffer-string] 10 "Return string with new `org-mode' entry describing EVENT."])
(defalias 'gnus-icalendar--deactivate-org-timestamp #[(ts) "\301\302\303#\207" [ts replace-regexp-in-string "[<>]" #[(m) "\301\230\203\302\207\303\230\205\304\207" [m "<" "[" ">" "]"] 2]] 4])
#@223 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.
(defalias 'gnus-icalendar-find-org-event-file #[(event &optional org-file) "\305!	\206\306\307\310\"\311\312\313\f\n\"+\207" [event org-file files uid #1=#:--cl-find-event-in-- gnus-icalendar-event:uid org-agenda-files t ifmode nil #[(file) "\303!\210r\304!q\210\305	!\211\205\"\306\307\310\n!\"A\311\230\205\"\312\313\"*\207" [file uid event-pos org-check-agenda-file find-file-noselect org-find-entry-with-id assoc "ICAL_EVENT" org-entry-properties "t" throw found] 5] gnus-icalendar-find-if] 4 (#$ . 25014)])
(defalias 'gnus-icalendar--show-org-event #[(event &optional org-file) "\303	\"\211\205\304\305\n!!\210\306\307!!b\210\310 )\207" [event org-file file gnus-icalendar-find-org-event-file switch-to-buffer find-file org-find-entry-with-id gnus-icalendar-event:uid org-show-entry] 4])
(defalias 'gnus-icalendar--update-org-event #[(event reply-status &optional org-file) "\306	\"\211\205r\307\n!q\210\310\311\312\"!\211\205\fb\210\212\313`\314\"\315\316\313`\317\"
\2053\320\321
\"\322\311\323\"\311\324\"\"\313`\325\"F\";\326\327\330 \"\210`\330 |\210\331\332;\333#c\210+\212\334 \210`)\335 <=\214\336 \210=b\210\337\340!\210\316y\210`=|\210)\311\341\"\203\245\214``}\210\342\343!\344\345\346\342\311\341\"#\342\261\210\347ed<T#\210\350ed\"\210)\316>\351\211>\f\352\311\353\"#\210>\f\354\311\324\"#\210>\f\355\356\311\357\"!#\210>\f\360\361\311\362\"!#\210>\f\363\361\311\364\"!#\210>\f\365\311\366\"#\210>\f\367?\203\376\370\356?!!\202\377\371#\210)\372 *+)\207" [event org-file file #1=#:object event-pos priority 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 #[(position property value) "\203\n\303\230\203\304	\n\"\207\305	\n#\207" [value position property "" org-entry-delete org-entry-put] 4] "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 headline entry-outline-level entry-end #2=#:--cl-update-org-entry-- reply-status] 10])
(defalias 'gnus-icalendar--cancel-org-event #[(event &optional org-file) "\305	\"\211\205.r\306\n!q\210\307\310!!\211\205-\311\312\"\211\205,\313\312\314\f!#\210\315 )*)\207" [event org-file file event-pos ts 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] 6])
(defalias 'gnus-icalendar--get-org-event-reply-status #[(event &optional org-file) "\304	\"\211\205\212r\305\n!q\210\306\307!!\310\311\"+)\207" [event org-file file event-pos gnus-icalendar-find-org-event-file find-file-noselect org-find-entry-with-id gnus-icalendar-event:uid org-entry-get "REPLY"] 4])
(defalias 'gnus-icalendar-insinuate-org-templates #[nil "\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 #[(x) "A@	\230\207" [x gnus-icalendar-org-template-name] 2] append entry file+olp ("%i" :immediate-finish t)] 7])
(defalias 'gnus-icalendar:org-event-save #[(event reply-status) "\304\305!rq\210\306\216\307\310	\n\"\"+\207" [#1=#:temp-buffer event reply-status gnus-icalendar-org-template-key generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] org-capture-string gnus-icalendar-event->org-entry] 4])
(defalias 'gnus-icalendar-show-org-agenda #[(event) "\303\304!\305!\"\211@\306\307\310\"_	A@\\\311\245T\312\313\314!\n#*\207" [event time-delta duration-days time-subtract gnus-icalendar-event:end-time gnus-icalendar-event:start-time expt 2 16 86400 org-agenda-list nil gnus-icalendar-event:start] 5])
(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) #[(event reply-status) "\302!\203\303	\"\207\304	\"\207" [event reply-status gnus-icalendar-find-org-event-file gnus-icalendar--update-org-event gnus-icalendar:org-event-save] 3] ((event gnus-icalendar-event-cancel) reply-status) #[(event reply-status) "\301!\205	\302!\207" [event gnus-icalendar-find-org-event-file gnus-icalendar--cancel-org-event] 2]] 6)
(defalias 'gnus-icalendar-org-setup #[nil "\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\316\317\306\301&\210\312\320\302\321\316\322\306\301&\210\323\324\302!!\210\323\325\302!!\210\323\326\302!!\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 "*CAL*" "Buffer used for building iCalendar invitation reply." :type (string) gnus-icalendar-additional-identities "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) make-variable-buffer-local (lambda (#1=#:def-tmp-var) (defvar gnus-icalendar-reply-status #1#)) (lambda (#1#) (defvar gnus-icalendar-event #1#)) (lambda (#1#) (defvar gnus-icalendar-handle #1#))] 10)
#@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 #[nil "\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 #[(x) "<\203\207C\207" [x] 1] regexp-quote functionp] 11 (#$ . 31694)])
(cl-generic-define-method 'gnus-icalendar-event->gnus-calendar nil '((event gnus-icalendar-event) &optional reply-status) nil #[(event &optional reply-status) "\305\306	\307\310\n\311\"D\312\310\n\313\"\206\314D\315\316	!D\317\310\n\320\"D\321\310\n\322\"\323=\203/\324\2027\325\326\310\n\322\"!!D\327\310\n\330\"D\257\331	!\204Z\310\n\332\"\203Z\333\334\f\206V\335DC\"\336\337#\340\310\n\341\"Q+\207" [#:--cl-format-header-- event #:object headers reply-status nil #[(x) "\301\302\303@\304P\305\306#A@#\207" [x format "%-12s%s" propertize ":" face bold] 6] "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] 10 "Format an overview of EVENT details."])
#@67 Execute BODY in buffer containing the decoded contents of HANDLE.
(defalias 'gnus-icalendar-with-decoded-handle '(macro . #[(handle &rest body) "\303\304!\305\306\307\310\311	DEDDC\312\313	D\314\315\316BB\317BB\nBBBE)\207" [charset handle body make-symbol "charset" let cdr assoc 'charset mm-handle-type with-temp-buffer mm-insert-part when string= ("utf-8") ((decode-coding-region (point-min) (point-max) 'utf-8))] 8 (#$ . 33144)]))
(defalias 'gnus-icalendar-event-from-handle #[(handle &optional attendee-name-or-email) "\304\305A@\"A\306\307!r\nq\210\310\216\311!\210	\312\230\203\"\313ed\314#\210\315p\",\207" [handle #1=#:charset #2=#:temp-buffer attendee-name-or-email assoc charset generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] mm-insert-part "utf-8" decode-coding-region utf-8 gnus-icalendar-event-from-buffer] 4])
(defalias 'gnus-icalendar-insert-button #[(text callback data) "`\306\307	\310\261\210`\311\n\312\313\f\314
\257#\210\315\316`\317\320%)\207" [start text callback gnus-mime-button-map gnus-article-button-face data add-text-properties "[ " " ]" gnus-callback keymap face gnus-data widget-convert-button link :action gnus-widget-press-button] 11])
(defalias 'gnus-icalendar-send-buffer-by-mail #[(buffer-name subject) "\304r	q\210\305 \210\306 \210\307\310!\210\311\312\313\314#\210\315\n\316\"\210\317 \210\320 \321 |\210\322\261\210\323 *\207" [message-signature gnus-summary-buffer buffer-name subject 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] 4])
(defalias 'gnus-icalendar-reply #[(data) "@A@AA@\306\307	A@\"A\310\311!r
q\210\312\216\313	!\210\f\314\230\203.\315ed\316#\210\317p\n\320 #,\211\205\202\321\322\323\324\n!!\325\326!Q r\327!!q\210ed|\210c\210 \210\330\331  \"\210)\332\333!\210\n\"\205\201\334\n\"\210r#q\210\335 )*,\207" [data handle status event #1=#:charset #2=#:temp-buffer assoc charset generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2# 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 #[nil "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-reply-status gnus-icalendar--update-org-event gnus-summary-show-article reply #3=#:--cl-fold-icalendar-buffer-- subject gnus-icalendar-reply-bufname gnus-icalendar-org-enabled-p gnus-summary-buffer] 5])
(defalias 'gnus-icalendar-sync-event-to-org #[(event) "\302	\"\207" [event gnus-icalendar-reply-status gnus-icalendar-event:sync-to-org] 3])
(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) #[(event handle) "\302!\205\303\304	\305EE\306\304	\307EE\310\304	\311EEE\207" [event handle gnus-icalendar-event:rsvp "Accept" gnus-icalendar-reply accepted "Tentative" tentative "Decline" declined] 7] ((event gnus-icalendar-event-reply) handle) #[(event handle) "\300\207" [nil] 1 "No buttons for REPLY events."] gnus-icalendar-event:inline-reply-status ((event gnus-icalendar-event)) #[(event) "\203\n\302	!\206\303\207" [gnus-icalendar-org-enabled-p event gnus-icalendar--get-org-event-reply-status "Not replied yet"] 2] ((event gnus-icalendar-event-reply)) #[(event) "\300\207" [nil] 1 "No reply status for REPLY events."] gnus-icalendar-event:inline-org-buttons ((event gnus-icalendar-event)) #[(event) "\303!\211\203\f\304\202
\305\306\307\310\311E\312!\205\n\313E	\205&\314\315EE\"*\207" [event org-entry-exists-p export-button-text 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] 8] ((event gnus-icalendar-event-cancel)) #[(event) "\302!\303\304\305\306E	\205\307\310E	\205\311\312EE\")\207" [event org-entry-exists-p 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] 7]] 6)
(defalias 'gnus-icalendar-mm-inline #[(handle) "\306\307 \"\310	\205.\310\311\211\312	\"!\210\f\203!\313	!!\210	\314	\315	!\"c))\207" [handle event gnus-icalendar-reply-status #1=#:--cl-insert-button-group-- gnus-icalendar-org-enabled-p gnus-icalendar-event gnus-icalendar-event-from-handle gnus-icalendar-identities nil #[(buttons) "\205\301\302\"\210\303c\207" [buttons mapc #[(x) "\301\302\"\210\303c\207" [x apply gnus-icalendar-insert-button "    "] 3] "\n\n"] 3] gnus-icalendar-event:inline-reply-buttons gnus-icalendar-event:inline-org-buttons gnus-icalendar-event->gnus-calendar gnus-icalendar-event:inline-reply-status gnus-icalendar-handle] 5])
(defalias 'gnus-icalendar-save-part #[(handle) "\302	A@@\303\232\205\304	\305 \"\211\205\306!)\207" [event handle nil "text/calendar" gnus-icalendar-event-from-handle gnus-icalendar-identities gnus-icalendar-event:sync-to-org] 3])
#@64 Save the Calendar event in the text/calendar part under point.
(defalias 'gnus-icalendar-save-event #[nil "\301 \210\302`\303\"\211\205\304!)\207" [data gnus-article-check-buffer get-text-property gnus-data gnus-icalendar-save-part] 4 (#$ . 38860) nil])
#@43 Accept invitation in the current article.
(defalias 'gnus-icalendar-reply-accept #[nil "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 (#$ . 39124) nil])
#@63 Send tentative response to invitation in the current article.
(defalias 'gnus-icalendar-reply-tentative #[nil "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 (#$ . 39435) nil])
#@44 Decline invitation in the current article.
(defalias 'gnus-icalendar-reply-decline #[nil "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 (#$ . 39770) nil])
#@71 Export calendar event to `org-mode', or update existing agenda entry.
(defalias 'gnus-icalendar-event-export #[nil "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 (#$ . 40083) nil])
#@64 Display `org-mode' agenda entry related to the calendar event.
(defalias 'gnus-icalendar-event-show #[nil "\302rq\210	)!\207" [gnus-article-buffer gnus-icalendar-event gnus-icalendar--show-org-event] 2 (#$ . 40386) nil])
#@71 Display `org-mode' agenda for days between event start and end dates.
(defalias 'gnus-icalendar-event-check-agenda #[nil "\302rq\210	)!\207" [gnus-article-buffer gnus-icalendar-event gnus-icalendar-show-org-agenda] 2 (#$ . 40614) nil])
(defalias 'gnus-icalendar-setup #[nil "\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)