;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:59 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-notifications.el
;;; in Emacs version 24.3.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\302\217\210\303\304!\210\303\305!\210\303\306!\210\303\307!\210\303\310!\210\300\311\312\217\210\303\313!\210\314\315\300\316\317\320\321\322&\210\323\324\325\326\327\330\321\315&\210\323\331\325\332\327\330\321\315&\210\323\333\334\335\327\336\321\315&\210\323\337\300\340\327\336\321\315&\207" [nil (byte-code "\300\301!\207" [require notifications] 2) ((error)) require gnus-sum gnus-group gnus-int gnus-art gnus-util (byte-code "\300\301!\207" [require google-contacts] 2) ((error)) gnus-fun custom-declare-group gnus-notifications "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'."] 8)
#@29 Notifications already sent.
(defvar gnus-notifications-sent nil (#$ . 1677))
#@36 Map notifications ids to messages.
(defvar gnus-notifications-id-to-msg nil (#$ . 1760))
(defalias 'gnus-notifications-action #[(id key) "\306\230\205#\307	\n\"\211\205\"\211A@)\3108\n\311\n
C\"*)\207" [key id gnus-notifications-id-to-msg group-article x article "read" assoc 2 gnus-fetch-group group] 4])
#@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\321\322\323\324\n\325&\207\326\327	#\210\330\207" [from subject gnus-notifications-timeout photo-file fboundp notifications-notify gnus-funcall-no-warning :title :body :actions ("read" "Read") :on-action gnus-notifications-action :app-icon image-search-load-path "gnus/gnus.png" :app-name "Gnus" :category "email.arrived" :timeout :image-path message "New message from %s: %s" t] 20 (#$ . 2082)])
#@29 Get photo for mail address.
(defalias 'gnus-notifications-get-photo #[(mail-address) "\205\304\305!\205\306\307\310\217\211\203	\202-\n\205-\306\311\312\217\211\313=?\205,\314A\315\"))\207" [gnus-notifications-use-google-contacts google-photo gnus-notifications-use-gravatar gravatar fboundp google-contacts-get-photo nil (byte-code "\301\302\"\207" [mail-address gnus-funcall-no-warning google-contacts-get-photo] 3) ((error)) (gravatar-retrieve-synchronously mail-address) ((error)) error plist-get :data] 4 (#$ . 2714)])
#@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!!\315\216r\fq\210	c\210)r\fq\210\316\317\211
\317\320%\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 get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) write-region nil 0] 7 (#$ . 3259)])
#@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\356\n@\211@\307!\fX\203\345\310
\"J@\211\247\205'\311V)\203\345\312\f\"\206<\312\313\314\306B\"\"\315!\306\211\203\344\n@\211A>\204\335rq\210\316\"\210\317 \210\320\321\322!\206k\323!\211\211 A@)!\"\203\233!\203\233\"!\306#$%\324&\325%$##,\204\334\326!!'\327@\206\252!\321\330!'#\211(\203\321AB\241\210(\324=\204\321\313\331(E\"\210'\203\333\332'!\210*+\nA\211\204I+)\nA\211\204\306*\207" [gnus-newsrc-alist entry --dolist-tail-- group gnus-notifications-minimum-level gnus-newsrc-hashtb nil gnus-group-level intern-soft 0 assoc add-to-list gnus-notifications-sent gnus-list-of-unread-articles gnus-request-head article-decode-encoded-words mail-extract-address-components mail-fetch-field "From" "" t string-match gnus-notifications-get-photo-file gnus-notifications-notify "Subject" gnus-notifications-id-to-msg delete-file unread group-notifications article nntp-server-buffer address-components x address gnus-ignored-from-addresses start string regexp inhibit-changing-match-data photo-file notification-id] 7 (#$ . 3943)])
(provide 'gnus-notifications)