Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : gnus-icalendar.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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)
#@17

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

${this.title}

Code Editor : gnus-icalendar.elc