;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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\262\2020\207" [found throw] 5 (#$ . 243)]) (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\n`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\n`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\n`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\n`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\n`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\n`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\n`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\n`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\n`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\n`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\n`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\n`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\n`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 (#$ . 8169)]) (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 (#$ . 8496)]) (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 (#$ . 9312)]) (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 (#$ . 9679)]) (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 (#$ . 10497)]) (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 (#$ . 10860)]) (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 (#$ . 11672)]) (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 (#$ . 12030)]) (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%\210\300\316\302\317\302\320%\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\"\203\303\304\"\207\305\207" [gnus-icalendar-event:recur string-match "INTERVAL=\\([[:digit:]]+\\)" match-string 1 "1"] 5 "Return recurring interval of EVENT.\n\n(fn EVENT)"] gnus-icalendar-event:recurring-days ((event gnus-icalendar-event)) #[257 "\300!\301\205\"\302\303\"\205\"\304\305\306\"\307\"\310\311\312\"\313\314\"\"\262\207" [gnus-icalendar-event:recur (("SU" . 0) ("MO" . 1) ("TU" . 2) ("WE" . 3) ("TH" . 4) ("FR" . 5) ("SA" . 6)) string-match "BYDAY=\\([^;]+\\)" split-string match-string 1 "," seq-map make-closure #[257 "\301\300\"A\207" [V0 assoc] 4 "\n\n(fn X)"] seq-filter #[257 "\300\301\"\207" [string-match "^[A-Z]\\{2\\}$"] 4 "\n\n(fn X)"]] 9 "Return, when available, the week day numbers on which the EVENT recurs.\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 (#$ . 13923)]) #@27 (fn ICAL NAME-OR-EMAIL) (defalias 'gnus-icalendar-event--find-attendee #[514 "\300!@\211AA@\301\302\303\304$\305\"\207" [icalendar--all-events #[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-closure #[257 "\211@\303=\205\301!\300\235\206\302!\304\305\306\"\300\"\262\207" [V0 V1 V2 ATTENDEE gnus-icalendar-find-if make-closure #[257 "\301!\203\n\211\300!\207\302\300\"\207" [V0 functionp string-match] 4 "\n\n(fn STR-OR-FUN)"]] 6 "\n\n(fn PROP)"] gnus-icalendar-find-if] 11 (#$ . 14222)]) #@13 (fn ICAL) (defalias 'gnus-icalendar-event--get-attendee-names #[257 "\300!@\301\302AA@\"\303\304\305\306#\307\211\310#\311#D\207" [icalendar--all-events seq-filter #[257 "\211@\300=\207" [ATTENDEE] 3 "\n\n(fn P)"] #[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-closure #[257 "\302\303\304\301#\300\"\207" [V0 V1 seq-filter make-closure #[257 "\300!\301\230\207" [V0 V1] 3 "\n\n(fn P)"]] 6 "\n\n(fn TYPE)"] #[771 "\300!\"\207" [mapcar] 7 "\n\n(fn --CL-ATTENDEE-NAME-- --CL-ATTENDEES-BY-TYPE-- TYPE)"] "REQ-PARTICIPANT" "OPT-PARTICIPANT"] 12 (#$ . 14844)]) #@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\237@AA@\236AA@\205&\310\"\311!\312A@\313\"\211\314\267\202>\315\202?\316\202?\317\320\n!\321\322\n\323\324\325#\326\324\327\n#\330\312A@\331\"\332\230\333\f\334@\335A@\257C\336\230\203}\337\202\224\340\230\203\210\341\202\224\342\230\203\223\343\202\224\344\345\346\f\"\345\347#\350\f\"\210\351\352\353!\354\211\211\211:\203\371@\262\355\356\357\360!\"!\262\361\f\242\"\203\357\362\211\363=\203\342\312\242\"\206\351\303\202\351\312\242\"D!\244\262A\262\354\262\202\257\237\266\205#\207" [icalendar--all-events replace-regexp-in-string "^.*MAILTO:" "" icalendar--get-event-property ORGANIZER ((summary . SUMMARY) (description . DESCRIPTION) (location . LOCATION) (recur . RRULE) (uid . UID)) 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" 54 "OPT-PARTICIPANT" 58)) 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 make-closure #[257 "\301\300\"\211\205\302\303\304\302\305\306\307!##\207" [V0 icalendar--get-event-property string-replace "\\," "," "\\n" "\n" substring-no-properties] 10 "\n\n(fn PROP)"] #[257 "\211\203\211A\262\242\202\302\303\304GD\"\300\305\306\307\310!P!\301!D\300\242\"\240\207" [V0 V1 signal wrong-number-of-arguments (slot . ical-property) append intern ":" symbol-name] 9 "\n\n(fn MAPPING)"] mapc apply make-instance eieio-class-slots nil intern format ":%s" eieio-slot-descriptor-name plist-member reverse :uid] 28 (#$ . 15565)]) #@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 (#$ . 17645)]) #@39 (fn ICAL-REQUEST STATUS IDENTITIES) (defalias 'gnus-icalendar-event--build-reply-event-body #[771 "\300\301!!\301!\226\302C\303\304\"\305\303\306\"\303\307#\303\310%\311\312 \313\"\"\210\314\315\242\"\204=\316\317\320\321#\210\322\323\324\325 \242\237\326\"B\313#\207" [capitalize symbol-name nil make-closure #[257 "\301\302\"\203\303\304\305\300\"\306\307$\207\207" [V0 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] #[257 "\301\302\303\"\300\"\207" [V0 gnus-icalendar-find-if make-closure #[257 "\211\300\302\303\304#)\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn NAME)"]] 5 "\n\n(fn LINE)"] #[257 "\301!\205\302\303\"\205\304\305\306\300\"\307\310$\207" [V0 V1 string-match "\\(PARTSTAT=\\)[^;]+" replace-match format "\\1%s" t nil] 6 "\n\n(fn LINE)"] #[257 "\304\305\"\205E\306\307\"\211\310\230\203\303!\2029\211\311\230\203#\301!\2029\211\312\230\203.\302 \2029\211\313\235\2038\2029\314\211\205C\300\300\242B\240\266\202\207" [V0 V1 V2 V3 string-match "^\\([^;:]+\\)" match-string 0 "ATTENDEE" "SUMMARY" "DTSTAMP" ("ORGANIZER" "DTSTART" "DTEND" "LOCATION" "DURATION" "SEQUENCE" "RECURRENCE-ID" "UID") nil] 6 "\n\n(fn LINE)"] mapc split-string "\n" gnus-icalendar-find-if #[257 "\300\301\"\207" [string-match "^ATTENDEE"] 4 "\n\n(fn X)"] lwarn gnus-icalendar :warning "Could not find an event attendee matching given identity" mapconcat identity "BEGIN:VEVENT" append ("END:VEVENT")] 17 (#$ . 18335)]) #@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\211r\302\303!!q\210eb\210\304!\262\305!\262)\211\2058\306\307\310\311\312  #\313\257\314\315\316\301\"\317#\262\207" [#[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)"] nil 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 (#$ . 19947)]) (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 #1=""] "Target Org file for storing captured calendar events." :type (choice (const nil) file) gnus-icalendar-org-capture-headline #[0 "\300\207" [nil] 1 #1#] "Target outline in `gnus-icalendar-org-capture-file' for storing captured events." (repeat string) gnus-icalendar-org-template-name #[0 "\300\207" ["used by gnus-icalendar-org"] 1 #1#] "Org-mode template name." (string) gnus-icalendar-org-template-key #[0 "\300\207" ["#"] 1 #1#] "Org-mode template hotkey." (string)] 10) (defvar gnus-icalendar-org-enabled-p nil) (cl-generic-define-method 'gnus-icalendar-event:org-repeat nil '((event gnus-icalendar-event)) nil #[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)"]) #@32 (fn START-DATE END-DATE DAY) (defalias 'gnus-icalendar--find-day #[771 "\300\301!8U\203D\207\302\303\304\"\303\304\"#\207" [6 decode-time gnus-icalendar--find-day time-add 86400] 8 (#$ . 22452)]) #@29 (fn START END ORG-REPEAT) (defalias 'gnus-icalendar-event--org-timestamp #[771 "\300\301\"\300\302\"\211\303\230\300\301\"\300\302\"\211\303\230\304\305\306!\306 !\"!\203/\307P\2020\310\203T\203T\311V\203M\300\301\305\f\312\"\"\313\314\n#\207\313\315 #\207\203x\311U\203g\313\316  $\207\300\301\305\f\312\"\"\313\317\n\n$\207\203\217\211\320V\262\203\217\313\321 $\207\320U\203\240\313\322  %\207\313\323  %\207" [format-time-string "%Y-%m-%d" "%H:%M" "00:00" time-to-number-of-days time-subtract org-time-string-to-time " " "" 1 86400 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>"] 17 (#$ . 22665)]) (cl-generic-define-method 'gnus-icalendar-event:org-timestamp nil '((event gnus-icalendar-event)) nil #[257 "\300!\301!\302!\303!\304\230\204\305\230\2035\211\2035\305\306\307\310\311\312\313\n\n#\"#\314\312\315\"\316#\207\317#\207" [gnus-icalendar-event:start-time gnus-icalendar-event:end-time gnus-icalendar-event:org-repeat gnus-icalendar-event:recurring-days "+1d" "+1w" seq-sort-by car time-less-p seq-map make-closure #[257 "\302\300\301#\207" [V0 V1 gnus-icalendar--find-day] 5 "\n\n(fn X)"] mapconcat #[257 "\301@A@\300#\207" [V0 gnus-icalendar-event--org-timestamp] 5 "\n\n(fn X)"] "\n" gnus-icalendar-event--org-timestamp] 14 "Build `org-mode' timestamp from EVENT start/end dates and recurrence info.\n\n(fn EVENT)"]) #@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 (#$ . 24154)]) #@21 (fn PARTICIPANTS) (defalias 'gnus-icalendar--format-participant-list #[257 "\300\301\302#\207" [mapconcat identity ", "] 5 (#$ . 24332)]) (cl-generic-define-method 'gnus-icalendar-event->org-entry nil '((event gnus-icalendar-event) reply-status) nil #[514 "\300\301\302\"r\211q\210\303\304\"\216\305 \210\203\306\307!!\202\310\311\312\313\314\"B\315\316!B\317\320!B\321\307\322\n!!B\323\324\325 !!B\326\324\327\f!!B\330\331\f!B\332 B\257 \333\334\335\313\336\"\313 \337\"\"\"c\210\340\341\"\266\214``}\210\342!\343\313\344\"\206}\345\261\210\346ed\347#\210\350ed\"\210)\351 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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 2 fill-region buffer-string] 14 "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 (#$ . 25835)]) #@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\"\207" [gnus-icalendar-event:uid org-agenda-files t ifmode make-closure #[257 "\301!\210r\302!q\210\303\300!\211\205!\304\305\306!\"A\307\230\205!\310\311\"\262)\207" [V0 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] 8 (#$ . 26077)]) #@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 (#$ . 26793)]) #@46 (fn EVENT REPLY-STATUS &optional ORG-FILE) (defalias 'gnus-icalendar--update-org-event #[770 "\300\"\211\205\373r\301!q\210\302\303\304\"!\211\205\370\211b\210\212\305`\306\"\307\310\305`\311\"\205.\312\313\"\314\303 \315\"\303\f\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 \333\"#\334\261\210\341edT#\210\342ed\"\210)\343\211\344\303 \345\"#\210\211\346\303 \316\"#\210\211\347\350\303\f\351\"!#\210\211\352\353\303\f\354\"!#\210\211\355\353\303\f\356\"!#\210\211\357\303 \360\"#\210\211\361 \203\360\362\350 !!\202\361\363#\266\364 \266\202\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] 16 (#$ . 27084)]) #@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 (#$ . 28744)]) #@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 (#$ . 29155)]) (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\303\"r\211q\210\304\305\"\216\306\307\"\"*\207" [gnus-icalendar-org-template-key generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] org-capture-string gnus-icalendar-event->org-entry] 7 (#$ . 29889)]) #@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 (#$ . 30244)]) (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" ["*CAL*"] 1 #1=""] "Buffer used for building iCalendar invitation reply." :type (string) gnus-icalendar-additional-identities #[0 "\300\207" [nil] 1 #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 \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] 11 (#$ . 32768)]) (cl-generic-define-method 'gnus-icalendar-event->gnus-calendar nil '((event gnus-icalendar-event) &optional reply-status) nil #[513 "\300\301\302\303\"D\304\302\305\"\206\306D\307\310!D\311\302\312\"D\313\302\314\"\315=\203-\316\2026\317\320\302\n\314\"!!D\321\302 \322\"D\257\323!\204Z\302\324\"\203Z\325\326\206U\327DC\"\262\330\331#\332\302\333\"Q\207" [#[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] 13 "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\313\314 D\315BBE\316BBBBBE\207" [make-symbol "charset" let cdr assoc 'charset mm-handle-type with-temp-buffer mm-insert-part when and string= downcase ("utf-8") ((decode-coding-region (point-min) (point-max) 'utf-8))] 13 (#$ . 34160)])) #@48 (fn HANDLE &optional ATTENDEE-NAME-OR-EMAIL) (defalias 'gnus-icalendar-event-from-handle #[513 "\300A@\236A\301\302\303\"r\211q\210\304\305\"\216\306!\210\203(\227\307\230\203(\310ed\311#\210\312p\"*\207" [charset generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-insert-part "utf-8" decode-coding-region utf-8 gnus-icalendar-event-from-buffer] 8 (#$ . 34618)]) #@27 (fn TEXT CALLBACK DATA) (defalias 'gnus-icalendar-insert-button #[771 "`\302\303\304\261\210`\305\306\307 \310\311\312\311\313\311\314\257#\207" [gnus-mime-button-map gnus-article-button-face add-text-properties "[ " " ]" gnus-callback keymap face follow-link t category button gnus-data] 21 (#$ . 35061)]) #@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 (#$ . 35386)]) #@13 (fn DATA) (defalias 'gnus-icalendar-reply #[257 "\211@A@AA@\304A@\236A\305\306\307\"r\211q\210\310\311\"\216\312!\210\2031\227\313\230\2031\314ed\315#\210\316p\317 #*\262\262\211\205}\320\321\322!!\323\324!Qr\325!q\210ed|\210c\210 \210\326\327 \"\210)\330\301!\210\n\205y\331\"\210r q\210\332 )\262\262\207" [gnus-icalendar-reply-bufname gnus-icalendar-reply-status gnus-icalendar-org-enabled-p gnus-summary-buffer charset generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-insert-part "utf-8" decode-coding-region utf-8 gnus-icalendar-event-reply-from-buffer gnus-icalendar-identities #[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 gnus-get-buffer-create gnus-icalendar-send-buffer-by-mail buffer-name make-local-variable gnus-icalendar--update-org-event gnus-summary-show-article] 10 (#$ . 35938)]) #@14 (fn EVENT) (defalias 'gnus-icalendar-sync-event-to-org #[257 "\301\"\207" [gnus-icalendar-reply-status gnus-icalendar-event:sync-to-org] 4 (#$ . 37024)]) (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*\307\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 (#$ . 38920)]) #@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 (#$ . 39595)]) #@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 (#$ . 39850) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 (#$ . 40145) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 (#$ . 40494) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 (#$ . 40867) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 (#$ . 41218) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 (#$ . 41559) [nil (gnus-article-mode gnus-summary-mode)]]) #@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 (#$ . 41825) [nil (gnus-article-mode gnus-summary-mode)]]) (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)