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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\301%\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\326%\207" [require gnus gnus-int nnheader nntp nnmail custom-declare-group gnus-demon nil "Demonic behavior." :group custom-declare-variable gnus-demon-handlers funcall function #[0 "\300\207" [nil] 1 #1=""] "Alist of daemonic handlers to be run at intervals.\nEach handler is a list on the form\n\n(FUNCTION TIME IDLE)\n\nFUNCTION is the function to be called.  TIME is the number of\n`gnus-demon-timestep's between each call.\nIf nil, never call.  If t, call each `gnus-demon-timestep'.\n\nIf IDLE is t, only call each time Emacs has been idle for TIME.\nIf IDLE is a number, only call when Emacs has been idle more than\nthis number of `gnus-demon-timestep's.\nIf IDLE is nil, don't care about idleness.\nIf IDLE is a number and TIME is nil, then call once each time\nEmacs has been idle for IDLE `gnus-demon-timestep's." :type (repeat (list function (choice :tag "Time" (const :tag "never" nil) (const :tag "one" t) (integer :tag "steps" 1)) (choice :tag "Idle" (const :tag "don't care" nil) (const :tag "for a while" t) (integer :tag "steps" 1)))) gnus-demon-timestep #[0 "\300\207" [60] 1 #1#] "Number of seconds in each demon timestep." integer] 6)
#@41 Plist of idle timers which are running.
(defvar gnus-demon-timers nil (#$ . 1416))
#@47 If non-nil, no daemonic function will be run.
(defvar gnus-inhibit-demon nil (#$ . 1505))
#@79 Add the handler FUNCTION to be run at TIME and IDLE.

(fn FUNCTION TIME IDLE)
(defalias 'gnus-demon-add-handler #[771 "\301!\210EB\302 \207" [gnus-demon-handlers gnus-demon-remove-handler gnus-demon-init] 6 (#$ . 1601)])
#@89 Remove the handler FUNCTION from the list of handlers.

(fn FUNCTION &optional NO-INIT)
(defalias 'gnus-demon-remove-handler #[513 "\301\236\"\211?\205\302 \207" [gnus-demon-handlers delq gnus-demon-init] 5 (#$ . 1834)])
#@56 Return the number of seconds since when Emacs is idle.
(defalias 'gnus-demon-idle-since #[0 "\300\301 \206\302!\207" [float-time current-idle-time 0] 2 (#$ . 2067)])
#@253 Run FUNC if Emacs has been idle for longer than IDLE seconds.
If not, and a TIME is given, restart a new idle timer, so FUNC
can be called at the next opportunity.  Such a special idle run
is marked with SPECIAL.

(fn FUNC &optional IDLE TIME SPECIAL)
(defalias 'gnus-demon-run-callback #[1025 "?\205w\3042w\305=\203\306\262\211\203*\307	\310\211\311\n\n\n&#\202Y\203Y\312 V\203Y
\203T\313\314	\"!\210\307	\315\316\311\n\n\n\305&#\317\304\316\"\210\3201p\316\3211i 0\202k\210\316)0\202v\210\305\322\323!0\207" [gnus-inhibit-demon gnus-demon-timers inhibit-quit quit-flag --cl-block-run-callback-- t 0.001 plist-put run-with-timer gnus-demon-run-callback gnus-demon-idle-since cancel-timer plist-get run-with-idle-timer nil throw (quit) (error) eval (ignore nil)] 15 (#$ . 2242)])
#@29 Initialize the Gnus daemon.
(defalias 'gnus-demon-init #[0 "\303 \210\211\205\222\211@\211@
A@\3048
\305\267\202 	\2020\306\2020
;\203-\307!	_\2020
	_
\247\203;
	_\202K
\310=\203J\211\247\203J\211\202K

\204^\211\247\203^\311
\310\312$\202~
\250\203q\313\211\312&\202~
;\205~\313\314\312%\211\203\211\315\n#\266
A\266\202\202\207" [gnus-demon-handlers gnus-demon-timestep gnus-demon-timers gnus-demon-cancel 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 24 nil 28)) nil gnus-demon-time-to-step t run-with-idle-timer gnus-demon-run-callback run-with-timer 86400 plist-put] 14 (#$ . 3066) nil])
#@75 Find out how many steps to TIME, which is on the form "17:43".

(fn TIME)
(defalias 'gnus-demon-time-to-step #[257 "\301 \302
!\303!\304
8
A@\305\306\3078\304\n8W\2043\304\n8U\2037	A@X\2037\310\2028\306\\\311	8\312\n8\3138\314\f8\315
8&	\316\317\"!\320
\"\207" [gnus-demon-timestep current-time decode-time parse-time-string 2 encode-time 0 3 1 4 5 6 7 8 float-time time-subtract round] 17 (#$ . 3750)])
(gnus-add-shutdown 'gnus-demon-cancel 'gnus)
#@26 Cancel any Gnus daemons.
(defalias 'gnus-demon-cancel #[0 "G\301\245\302\211W\203\303
\301_T8!\210\211T\262
\202\266\304\211\207" [gnus-demon-timers 2 0 cancel-timer nil] 5 (#$ . 4232) nil])
#@44 Add daemonic server disconnection to Gnus.
(defalias 'gnus-demon-add-disconnection #[0 "\300\301\302\303#\207" [gnus-demon-add-handler gnus-demon-close-connections nil 30] 4 (#$ . 4438)])
(defalias 'gnus-demon-close-connections #[0 "\300 \301\302\"\216\303 )\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-close-backends] 4])
#@143 Add daemonic nntp server disconnection to Gnus.
If no commands have gone out via nntp during the last five
minutes, the connection is closed.
(defalias 'gnus-demon-add-nntp-close-connection #[0 "\300\301\302\303#\207" [gnus-demon-add-handler gnus-demon-nntp-close-connection 5 nil] 4 (#$ . 4831)])
(defalias 'gnus-demon-nntp-close-connection #[0 "\301 \302\303\"\216\304\305\306!\"\205\307 )\207" [nntp-last-command-time current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] time-less-p (0 300) time-since nntp-close-server] 5])
#@55 Add daemonic scanning of mail from the mail backends.
(defalias 'gnus-demon-add-scanmail #[0 "\300\301\302\303#\207" [gnus-demon-add-handler gnus-demon-scan-mail 120 60] 4 (#$ . 5411)])
(defalias 'gnus-demon-scan-mail #[0 "\302 \303\304\"\216\305\306C
\211A\262\242@\211\262\205c\307
@\3101I\211;\203,\311
!@\202-\211\312
!\2047\313
!\210\314\315\316\317#!!\262
0\266\202\202L\266\305\203\f\320
!\204[\321
!\203\f\322\305\"\210\202\f)\266\202)\207" [gnus-opened-servers nnmail-fetched-sources current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] nil t request-scan (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" gnus-server-opened gnus-open-server gnus-request-scan] 12])
#@58 Add daemonic scanning of new articles from all backends.
(defalias 'gnus-demon-add-rescan #[0 "\300\301\302\303#\207" [gnus-demon-add-handler gnus-demon-scan-news 120 60] 4 (#$ . 6186)])
(defalias 'gnus-demon-scan-news #[0 "\301 \302\303\"\216\301 \302\304\"\216\305 \205rq\210\306 ))\262
)\207" [gnus-group-buffer current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-alive-p gnus-group-get-new-news] 5])
#@57 Add daemonic updating of timestamps in empty newgroups.
(defalias 'gnus-demon-add-scan-timestamps #[0 "\300\301\302\303#\207" [gnus-demon-add-handler gnus-demon-scan-timestamps nil 30] 4 (#$ . 6702)])
#@76 Set the timestamp on all newsgroups with no unread and no ticked articles.
(defalias 'gnus-demon-scan-timestamps #[0 "\302 \205G\303 A\304\211\211\211\211A\262\242\211\262\205E@\262\305	\"@\262\306\3078\236A\262

\247\203

\310U\203
\211\204
\311\312#\210\202
\266\206\207" [gnus-newsrc-alist gnus-newsrc-hashtb gnus-alive-p current-time nil gethash tick 3 0 gnus-group-set-parameter timestamp] 10 (#$ . 6909)])
(provide 'gnus-demon)