Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-notifications.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\f C\"\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@\211 A>\204r q\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)
Mini Shell