ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-icalendar.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\202 0\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#\210\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" put 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]] 6)
#@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 (#$ . 8357)])
(function-put 'gnus-icalendar-event 'compiler-macro 'gnus-icalendar-event--anon-cmacro)
(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#\210\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" put cl-deftype-satisfies eieio-defclass-internal (gnus-icalendar-event) nil (:documentation "iCalendar class for REQUEST events")] 5)
#@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 (#$ . 9427)])
(function-put 'gnus-icalendar-event-request 'compiler-macro 'gnus-icalendar-event-request--anon-cmacro)
(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#\210\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" put cl-deftype-satisfies eieio-defclass-internal (gnus-icalendar-event) nil (:documentation "iCalendar class for CANCEL events")] 5)
#@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 (#$ . 10539)])
(function-put 'gnus-icalendar-event-cancel 'compiler-macro 'gnus-icalendar-event-cancel--anon-cmacro)
(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#\210\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" put cl-deftype-satisfies eieio-defclass-internal (gnus-icalendar-event) nil (:documentation "iCalendar class for REPLY events")] 5)
#@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 (#$ . 11640)])
(function-put 'gnus-icalendar-event-reply 'compiler-macro 'gnus-icalendar-event-reply--anon-cmacro)
(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\301\303\"\"\210\304\301\303\305\306$\210\300\307\302\307\303\"\"\210\304\307\303\305\310$\210\300\311\302\311\303\"\"\210\304\311\303\305\312$\210\300\313\302\313\303\"\"\210\304\313\303\305\314$\207" [eieio--defalias gnus-icalendar-event:recurring-p eieio--defgeneric-init-form nil eieio--defmethod gnus-icalendar-event #[(event) "\301!??\207" [event gnus-icalendar-event:recur] 2 "Return t if EVENT is recurring."] gnus-icalendar-event:recurring-freq #[(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) "\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) "\301\302\303!\"\207" [event format-time-string "%Y-%m-%d %H:%M" gnus-icalendar-event:start-time] 4]] 5)
(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
\" 3\320! 4\3213A@\322\"\211 5\323\232\203C \324\202O 5\325\232\203N \326\202O \327 6\330! 7\331\f\332\n\333\334 \3357#\336\334 \3377#\340\3213A@\341\"\342\230\3436\3444@\3454A@\257 8\f\346\230\203\214 \347\202\241 \f\350\230\203\226 \351\202\241 \f\352\230\203\240 \353\202\241 \354 9\355\211 : ;\356;\357:\360: \"\210\361\36298#.
\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 "REQ-PARTICIPANT" required "OPT-PARTICIPANT" 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 (#$ . 16826)])
(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 (#$ . 19250)])
(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\301\303\"\"\210\304\301\303\305\306$\210\300\307\302\307\303\"\"\210\304\307\303\305\310$\207" [eieio--defalias gnus-icalendar-event:org-repeat eieio--defgeneric-init-form nil eieio--defmethod 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) "\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 %a" "%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."]] 5)
(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])
(byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\207" [eieio--defalias gnus-icalendar-event->org-entry eieio--defgeneric-init-form nil eieio--defmethod gnus-icalendar-event #[(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."]] 5)
(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 (#$ . 24875)])
(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\301\303\"\"\210\304\301\303\305\306$\210\300\301\302\301\303\"\"\210\304\301\303\307\310$\207" [eieio--defalias gnus-icalendar-event:sync-to-org eieio--defgeneric-init-form nil eieio--defmethod gnus-icalendar-event-request #[(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] gnus-icalendar-event-cancel #[(event reply-status) "\301!\205 \302!\207" [event gnus-icalendar-find-org-event-file gnus-icalendar--cancel-org-event] 2]] 5)
(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 \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] 11 (#$ . 31593)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\207" [eieio--defalias gnus-icalendar-event->gnus-calendar eieio--defgeneric-init-form nil eieio--defmethod gnus-icalendar-event #[(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."]] 5)
#@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") ((mm-decode-coding-region (point-min) (point-max) 'utf-8))] 8 (#$ . 33087)]))
(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" mm-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\321&)\207" [start text callback gnus-mime-button-map gnus-article-button-face data gnus-add-text-properties "[ " " ]" gnus-callback keymap face gnus-data widget-convert-button link :action gnus-widget-press-button :button-keymap gnus-widget-button-keymap] 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|\210 c\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" mm-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\301\303\"\"\210\304\301\303\305\306$\210\300\301\302\301\303\"\"\210\304\301\303\307\310$\210\300\311\302\311\303\"\"\210\304\311\303\305\312$\210\300\311\302\311\303\"\"\210\304\311\303\307\313$\210\300\314\302\314\303\"\"\210\304\314\303\305\315$\210\300\314\302\314\303\"\"\210\304\314\303\316\317$\207" [eieio--defalias gnus-icalendar-event:inline-reply-buttons eieio--defgeneric-init-form nil eieio--defmethod gnus-icalendar-event #[(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] gnus-icalendar-event-reply #[(event handle) "\300\207" [nil] 1 "No buttons for REPLY events."] gnus-icalendar-event:inline-reply-status #[(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) "\300\207" [nil] 1 "No reply status for REPLY events."] gnus-icalendar-event:inline-org-buttons #[(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] 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]] 5)
(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 (#$ . 38902) 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 (#$ . 39166) 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 (#$ . 39477) 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 (#$ . 39812) 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 (#$ . 40125) 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 (#$ . 40428) 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 (#$ . 40656) 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)
Kontol Shell Bypass