;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\3001\f\301\302!0\210\202
\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\3101-\301\311!0\210\202.\210\301\312!\210\313\314\315\316\317\320\321\322&\210\323\324\325\326\327DD\330\331\332%\210\323\333\325\326\334DD\335\331\332%\210\323\336\325\326\337DD\340\331\341%\210\323\342\325\326\343DD\344\331\345%\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 funcall function #[0 "\300\207" [t] 1 #1=""] "Use Google Contacts to retrieve photo." :type boolean gnus-notifications-use-gravatar #[0 "\300\207" [t] 1 #1#] "Use Gravatar to retrieve photo." gnus-notifications-minimum-level #[0 "\300\207" [1] 1 #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 #[0 "\300\207" [nil] 1 #1#] "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 (#$ . 1332))
#@36 Map notifications ids to messages.
(defvar gnus-notifications-id-to-msg nil (#$ . 1415))
#@15 

(fn ID KEY)
(defalias 'gnus-notifications-action #[514 "\301\"\211\2055\211A@\3028\303\230\203\304C\"\210\305\306 !\207\307\230\2053\310\311\312!\"\"\210\313!\266\202\207" [gnus-notifications-id-to-msg 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] 11 (#$ . 1510)])
#@119 Send a notification about a new mail.
Return a notification id if any, or t on success.

(fn FROM SUBJECT PHOTO-FILE)
(defalias 'gnus-notifications-notify #[771 "\301\302!\203\"\303\302\304\305\306\307\310\311\312\303\313\314\"\315
\316\317\320\321\322&\207\323\324#\210\325\207" [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] 23 (#$ . 1927)])
#@48 Get photo for mail address.

(fn MAIL-ADDRESS)
(defalias 'gnus-notifications-get-photo #[257 "\205\302\303!\205\3041\305\303\"0\202\210\306\211\203\207	\205<\3071,\310!0\202.\210\306\211\311=?\205:\312
A\313\"\262
\207" [gnus-notifications-use-google-contacts gnus-notifications-use-gravatar fboundp google-contacts-get-photo (error) gnus-funcall-no-warning nil (error) gravatar-retrieve-synchronously error plist-get :data] 6 (#$ . 2572)])
#@175 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.

(fn MAIL-ADDRESS)
(defalias 'gnus-notifications-get-photo-file #[257 "\301
!\211\205/\302\303!\304\305\306\307\"\310\311\"\216r\211q\210c\210)r\211q\210\312\313\211\313\314%\210*\210)\211\262
\207" [coding-system-for-write gnus-notifications-get-photo make-temp-file "gnus-notifications-photo-" binary generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] write-region nil 0] 10 (#$ . 3037)])
#@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 #[0 "\211\205\364\211@\211@\306
!	X\203\354\307
\n\"@\211\247\205\211\310V\262
\203\354\311
\"\206@\311
\211C\211\235\2038\202=\211B\211\262
\"\312!\211\203\352\211@\211A>\204\343r\fq\210\313
\"\210\314 \210\315\316\317!\206d\320!\211A@
\203\231\211\203\231\321
!\203|

!\202\226\321
!\203\206
\202\211\322
!
\323\324\325#)\266\203\204\340\326
!\327@\206\243\316\330!#\211\203\326AB\241\210\211\324=\204\326\211E\211\235\203\317\266\202\326\211B\210
\203\336\331!\210\266\266)
A\266\202\202C\266\210
A\266\202\202
\207" [gnus-newsrc-alist gnus-notifications-minimum-level gnus-newsrc-hashtb gnus-notifications-sent nntp-server-buffer gnus-ignored-from-addresses 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 nil t string-match gnus-notifications-get-photo-file gnus-notifications-notify "Subject" delete-file inhibit-changing-match-data gnus-notifications-id-to-msg] 15 (#$ . 3661)])
(provide 'gnus-notifications)