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-notifications.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 "\3001�\301\302!0\202�\210\202�\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\3101/�\301\311!0\2023�\210\2024�\210\301\312!\210\313\314\315\316\317\320\321\322&\210\323\324\325\326\327\330\321\314&\210\323\331\325\332\327\330\321\314&\210\323\333\334\335\327\336\321\314&\210\323\337\315\340\327\341\321\314&\207" [(error) require notifications gnus-sum gnus-group gnus-int gnus-art gnus-util (error) google-contacts gnus-fun custom-declare-group gnus-notifications nil "Send notifications on new message in Gnus." :version "24.3" :group gnus custom-declare-variable gnus-notifications-use-google-contacts t "Use Google Contacts to retrieve photo." :type boolean gnus-notifications-use-gravatar "Use Gravatar to retrieve photo." gnus-notifications-minimum-level 1 "Minimum group level the message should have to be notified.\nAny message in a group that has a greater value than this will\nnot get notifications." integer gnus-notifications-timeout "Timeout used for notifications sent via `notifications-notify'." (choice (const :tag "Server default" nil) (integer :tag "Milliseconds"))] 8)
#@29 Notifications already sent.
(defvar gnus-notifications-sent nil (#$ . 1542))
#@36 Map notifications ids to messages.
(defvar gnus-notifications-id-to-msg nil (#$ . 1625))
(defalias 'gnus-notifications-action #[(id key) "\306	\"\211\2058�\nA@\307\n8
\310\230\203$�\311\fC\"\210\312\313 !\2027�
\314\230\2057�\315\f\316\317\f!\"\"\210\320\f!*)\207" [id gnus-notifications-id-to-msg group-article article group key assoc 2 "read" gnus-fetch-group select-frame-set-input-focus selected-frame "mark-read" gnus-update-read-articles delq gnus-list-of-unread-articles gnus-group-update-group] 7])
#@89 Send a notification about a new mail.
Return a notification id if any, or t on success.
(defalias 'gnus-notifications-notify #[(from subject photo-file) "\304\305!\203 �\306\305\307\310	\311\312\313\314\315\306\316\317\"\320\n\321\322\323\324\325&\207\326\327	#\210\330\207" [from subject photo-file gnus-notifications-timeout fboundp notifications-notify gnus-funcall-no-warning :title :body :actions ("read" "Read" "mark-read" "Mark As Read") :on-action gnus-notifications-action :app-icon image-search-load-path "gnus/gnus.png" :image-path :app-name "Gnus" :category "email.arrived" :timeout message "New message from %s: %s" t] 20 (#$ . 2144)])
#@29 Get photo for mail address.
(defalias 'gnus-notifications-get-photo #[(mail-address) "\205�\305\306!\205�\3071�\310\306	\"0\202�\210\311\211\203!�\n\202@�\205@�\31210�\313	!0\2022�\210\311\211\314=?\205?�\315\fA\316\"))\207" [gnus-notifications-use-google-contacts mail-address google-photo gnus-notifications-use-gravatar gravatar fboundp google-contacts-get-photo (error) gnus-funcall-no-warning nil (error) gravatar-retrieve-synchronously error plist-get :data] 4 (#$ . 2803)])
#@156 Get a temporary file with an image for MAIL-ADDRESS.
You have to delete the temporary image yourself using
`delete-image'.

Returns nil if no image found.
(defalias 'gnus-notifications-get-photo-file #[(mail-address) "\306!\211\205-�\307\310!\311\211\312\313!\314\216r\fq\210	c\210)r\fq\210\315\316\211
\316\317%\210,*)\207" [mail-address photo coding-system-for-write photo-file #1=#:temp-buffer #2=#:temp-file gnus-notifications-get-photo make-temp-file "gnus-notifications-photo-" binary generate-new-buffer " *temp file*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] write-region nil 0] 7 (#$ . 3299)])
#@285 Send a notification on new message.
This check for new messages that are in group with a level lower
or equal to `gnus-notifications-minimum-level' and send a
notification using `notifications-notify' for it.

This is typically a function to add in
`gnus-after-getting-new-news-hook'
(defalias 'gnus-notifications #[nil "\306\211\205&\n@\211@\307!\fX\203\310
\"@\211\247\205&�\311V)\203\312\"\206O�\312\211\306B\211\235\203E�\202M�B\211)\"\313!\306\211\203\n@\211A>\204rq\210\314\"\210\315 \210\316\317\320!\206~�\321!\211 A@!\"\203\300�!\203\300�\322\"!\203\237�\"!!\202\275�\322\"!\203\253�\"\202\257�\323\"!!\306\324#\325#)\266\203\204\326!!$\327 @\206\317�!\317\330!$#\211%\203	AB\241\210%\324=\204	%E\211&'\235\203'\210\202&'B')$\203\331$!\210*+\nA\211\204\\�+)\nA\211\204�\306*\207" [gnus-newsrc-alist entry --dolist-tail-- group gnus-notifications-minimum-level gnus-newsrc-hashtb nil gnus-group-level gethash 0 assoc gnus-list-of-unread-articles gnus-request-head article-decode-encoded-words mail-extract-address-components mail-fetch-field "From" "" functionp gmm-regexp-concat t string-match gnus-notifications-get-photo-file gnus-notifications-notify "Subject" delete-file unread gnus-notifications-sent #1=#:x group-notifications article nntp-server-buffer address-components address gnus-ignored-from-addresses inhibit-changing-match-data photo-file notification-id #2=#:x gnus-notifications-id-to-msg] 8 (#$ . 3939)])
(provide 'gnus-notifications)

${this.title}

Code Editor : gnus-notifications.elc