Mercurial > emacs
annotate lisp/gnus/gnus-demon.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 8d09094063d0 |
children | b6d2a63ad993 |
rev | line source |
---|---|
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
94662
diff
changeset
|
1 ;;; gnus-demon.el --- daemonic Gnus behavior |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
2 |
74547 | 3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
17493 | 5 |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
17493 | 7 ;; Keywords: news |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17493 | 12 ;; it under the terms of the GNU General Public License as published by |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
17493 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94662
f42ef85caf91
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17493 | 23 |
24 ;;; Commentary: | |
25 | |
26 ;;; Code: | |
27 | |
19493
8d840c4548c0
Require cl at compile time.
Richard M. Stallman <rms@gnu.org>
parents:
17493
diff
changeset
|
28 (eval-when-compile (require 'cl)) |
8d840c4548c0
Require cl at compile time.
Richard M. Stallman <rms@gnu.org>
parents:
17493
diff
changeset
|
29 |
17493 | 30 (require 'gnus) |
31 (require 'gnus-int) | |
32 (require 'nnheader) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
33 (require 'nntp) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
34 (require 'nnmail) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
35 (require 'gnus-util) |
17493 | 36 |
61304
a1964e18a9ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-234
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
37 (autoload 'parse-time-string "parse-time" nil nil) |
a1964e18a9ba
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-234
Miles Bader <miles@gnu.org>
parents:
56927
diff
changeset
|
38 |
17493 | 39 (defgroup gnus-demon nil |
79417
88b6f45cc12b
(gnus-demon): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
78224
diff
changeset
|
40 "Demonic behavior." |
17493 | 41 :group 'gnus) |
42 | |
43 (defcustom gnus-demon-handlers nil | |
44 "Alist of daemonic handlers to be run at intervals. | |
45 Each handler is a list on the form | |
46 | |
47 \(FUNCTION TIME IDLE) | |
48 | |
49 FUNCTION is the function to be called. | |
50 TIME is the number of `gnus-demon-timestep's between each call. | |
51 If nil, never call. If t, call each `gnus-demon-timestep'. | |
52 If IDLE is t, only call if Emacs has been idle for a while. If IDLE | |
53 is a number, only call when Emacs has been idle more than this number | |
54 of `gnus-demon-timestep's. If IDLE is nil, don't care about | |
55 idleness. If IDLE is a number and TIME is nil, then call once each | |
56 time Emacs has been idle for IDLE `gnus-demon-timestep's." | |
57 :group 'gnus-demon | |
58 :type '(repeat (list function | |
59 (choice :tag "Time" | |
60 (const :tag "never" nil) | |
61 (const :tag "one" t) | |
62 (integer :tag "steps" 1)) | |
63 (choice :tag "Idle" | |
64 (const :tag "don't care" nil) | |
65 (const :tag "for a while" t) | |
66 (integer :tag "steps" 1))))) | |
67 | |
68 (defcustom gnus-demon-timestep 60 | |
69 "*Number of seconds in each demon timestep." | |
70 :group 'gnus-demon | |
71 :type 'integer) | |
72 | |
73 ;;; Internal variables. | |
74 | |
75 (defvar gnus-demon-timer nil) | |
76 (defvar gnus-demon-idle-has-been-called nil) | |
77 (defvar gnus-demon-idle-time 0) | |
78 (defvar gnus-demon-handler-state nil) | |
79 (defvar gnus-demon-last-keys nil) | |
80 (defvar gnus-inhibit-demon nil | |
81 "*If non-nil, no daemonic function will be run.") | |
82 | |
83 ;;; Functions. | |
84 | |
85 (defun gnus-demon-add-handler (function time idle) | |
86 "Add the handler FUNCTION to be run at TIME and IDLE." | |
87 ;; First remove any old handlers that use this function. | |
88 (gnus-demon-remove-handler function) | |
89 ;; Then add the new one. | |
90 (push (list function time idle) gnus-demon-handlers) | |
91 (gnus-demon-init)) | |
92 | |
93 (defun gnus-demon-remove-handler (function &optional no-init) | |
94 "Remove the handler FUNCTION from the list of handlers." | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
95 (gnus-pull function gnus-demon-handlers) |
17493 | 96 (unless no-init |
97 (gnus-demon-init))) | |
98 | |
99 (defun gnus-demon-init () | |
100 "Initialize the Gnus daemon." | |
101 (interactive) | |
102 (gnus-demon-cancel) | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
103 (when gnus-demon-handlers |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
104 ;; Set up the timer. |
17493 | 105 (setq gnus-demon-timer |
85712
a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Miles Bader <miles@gnu.org>
parents:
78224
diff
changeset
|
106 (run-at-time |
17493 | 107 gnus-demon-timestep gnus-demon-timestep 'gnus-demon)) |
108 ;; Reset control variables. | |
109 (setq gnus-demon-handler-state | |
110 (mapcar | |
111 (lambda (handler) | |
112 (list (car handler) (gnus-demon-time-to-step (nth 1 handler)) | |
113 (nth 2 handler))) | |
114 gnus-demon-handlers)) | |
115 (setq gnus-demon-idle-time 0) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
116 (setq gnus-demon-idle-has-been-called nil))) |
17493 | 117 |
118 (gnus-add-shutdown 'gnus-demon-cancel 'gnus) | |
119 | |
120 (defun gnus-demon-cancel () | |
121 "Cancel any Gnus daemons." | |
122 (interactive) | |
123 (when gnus-demon-timer | |
124 (nnheader-cancel-timer gnus-demon-timer)) | |
125 (setq gnus-demon-timer nil | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
126 gnus-demon-idle-has-been-called nil) |
17493 | 127 (condition-case () |
128 (nnheader-cancel-function-timers 'gnus-demon) | |
129 (error t))) | |
130 | |
131 (defun gnus-demon-is-idle-p () | |
132 "Whether Emacs is idle or not." | |
133 ;; We do this simply by comparing the 100 most recent keystrokes | |
134 ;; with the ones we had last time. If they are the same, one might | |
135 ;; guess that Emacs is indeed idle. This only makes sense if one | |
136 ;; calls this function seldom -- like once a minute, which is what | |
137 ;; we do here. | |
138 (let ((keys (recent-keys))) | |
139 (or (equal keys gnus-demon-last-keys) | |
140 (progn | |
141 (setq gnus-demon-last-keys keys) | |
142 nil)))) | |
143 | |
144 (defun gnus-demon-time-to-step (time) | |
145 "Find out how many seconds to TIME, which is on the form \"17:43\"." | |
146 (if (not (stringp time)) | |
147 time | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
148 (let* ((now (current-time)) |
56927
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
149 ;; obtain NOW as discrete components -- make a vector for speed |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
150 (nowParts (decode-time now)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
151 ;; obtain THEN as discrete components |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
152 (thenParts (parse-time-string time)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
153 (thenHour (elt thenParts 2)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
154 (thenMin (elt thenParts 1)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
155 ;; convert time as elements into number of seconds since EPOCH. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
156 (then (encode-time 0 |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
157 thenMin |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
158 thenHour |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
159 ;; If THEN is earlier than NOW, make it |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
160 ;; same time tomorrow. Doc for encode-time |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
161 ;; says that this is OK. |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
162 (+ (elt nowParts 3) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
163 (if (or (< thenHour (elt nowParts 2)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
164 (and (= thenHour (elt nowParts 2)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
165 (<= thenMin (elt nowParts 1)))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
166 1 0)) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
167 (elt nowParts 4) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
168 (elt nowParts 5) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
169 (elt nowParts 6) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
170 (elt nowParts 7) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
171 (elt nowParts 8))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
172 ;; calculate number of seconds between NOW and THEN |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
173 (diff (+ (* 65536 (- (car then) (car now))) |
55fd4f77387a
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents:
52401
diff
changeset
|
174 (- (cadr then) (cadr now))))) |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
175 ;; return number of timesteps in the number of seconds |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
176 (round (/ diff gnus-demon-timestep))))) |
17493 | 177 |
178 (defun gnus-demon () | |
179 "The Gnus daemon that takes care of running all Gnus handlers." | |
180 ;; Increase or reset the time Emacs has been idle. | |
181 (if (gnus-demon-is-idle-p) | |
182 (incf gnus-demon-idle-time) | |
183 (setq gnus-demon-idle-time 0) | |
184 (setq gnus-demon-idle-has-been-called nil)) | |
185 ;; Disable all daemonic stuff if we're in the minibuffer | |
186 (when (and (not (window-minibuffer-p (selected-window))) | |
187 (not gnus-inhibit-demon)) | |
188 ;; Then we go through all the handler and call those that are | |
189 ;; sufficiently ripe. | |
190 (let ((handlers gnus-demon-handler-state) | |
191 (gnus-inhibit-demon t) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
192 ;; Try to avoid dialog boxes, e.g. by Mailcrypt. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
193 ;; Unfortunately, Emacs 20's `message-or-box...' doesn't |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
194 ;; obey `use-dialog-box'. |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
195 use-dialog-box (last-nonmenu-event 10) |
17493 | 196 handler time idle) |
197 (while handlers | |
198 (setq handler (pop handlers)) | |
199 (cond | |
200 ((numberp (setq time (nth 1 handler))) | |
201 ;; These handlers use a regular timeout mechanism. We decrease | |
202 ;; the timer if it hasn't reached zero yet. | |
203 (unless (zerop time) | |
204 (setcar (nthcdr 1 handler) (decf time))) | |
205 (and (zerop time) ; If the timer now is zero... | |
206 ;; Test for appropriate idleness | |
207 (progn | |
208 (setq idle (nth 2 handler)) | |
209 (cond | |
210 ((null idle) t) ; Don't care about idle. | |
211 ((numberp idle) ; Numerical idle... | |
212 (< idle gnus-demon-idle-time)) ; Idle timed out. | |
213 (t (< 0 gnus-demon-idle-time)))) ; Or just need to be idle. | |
214 ;; So we call the handler. | |
73269 | 215 (gnus-with-local-quit |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
216 (ignore-errors (funcall (car handler))) |
17493 | 217 ;; And reset the timer. |
218 (setcar (nthcdr 1 handler) | |
219 (gnus-demon-time-to-step | |
220 (nth 1 (assq (car handler) gnus-demon-handlers))))))) | |
221 ;; These are only supposed to be called when Emacs is idle. | |
222 ((null (setq idle (nth 2 handler))) | |
223 ;; We do nothing. | |
224 ) | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
225 ((and (not (numberp idle)) |
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
226 (gnus-demon-is-idle-p)) |
17493 | 227 ;; We want to call this handler each and every time that |
228 ;; Emacs is idle. | |
73269 | 229 (gnus-with-local-quit |
73139
1ae580684ad1
* gnus-demon.el (gnus-demon): Use with-local-quit to avoid hangs.
Chong Yidong <cyd@stupidchicken.com>
parents:
68633
diff
changeset
|
230 (ignore-errors (funcall (car handler))))) |
17493 | 231 (t |
232 ;; We want to call this handler only if Emacs has been idle | |
233 ;; for a specified number of timesteps. | |
234 (and (not (memq (car handler) gnus-demon-idle-has-been-called)) | |
235 (< idle gnus-demon-idle-time) | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
236 (gnus-demon-is-idle-p) |
73269 | 237 (gnus-with-local-quit |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
238 (ignore-errors (funcall (car handler))) |
17493 | 239 ;; Make sure the handler won't be called once more in |
240 ;; this idle-cycle. | |
241 (push (car handler) gnus-demon-idle-has-been-called))))))))) | |
242 | |
243 (defun gnus-demon-add-nocem () | |
244 "Add daemonic NoCeM handling to Gnus." | |
19969
5f1ab3dd344d
*** empty log message ***
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19493
diff
changeset
|
245 (gnus-demon-add-handler 'gnus-demon-scan-nocem 60 30)) |
17493 | 246 |
247 (defun gnus-demon-scan-nocem () | |
248 "Scan NoCeM groups for NoCeM messages." | |
249 (save-window-excursion | |
250 (gnus-nocem-scan-groups))) | |
251 | |
252 (defun gnus-demon-add-disconnection () | |
253 "Add daemonic server disconnection to Gnus." | |
254 (gnus-demon-add-handler 'gnus-demon-close-connections nil 30)) | |
255 | |
256 (defun gnus-demon-close-connections () | |
257 (save-window-excursion | |
258 (gnus-close-backends))) | |
259 | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
260 (defun gnus-demon-add-nntp-close-connection () |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
261 "Add daemonic nntp server disconnection to Gnus. |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
262 If no commands have gone out via nntp during the last five |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
263 minutes, the connection is closed." |
104050
8ee742481c0a
(gnus-demon-add-nntp-close-connection): Fix typo. (Bug#3903)
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
264 (gnus-demon-add-handler 'gnus-demon-nntp-close-connection 5 nil)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
265 |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
266 (defun gnus-demon-nntp-close-connection () |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
267 (save-window-excursion |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
268 (when (time-less-p '(0 300) (time-since nntp-last-command-time)) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
269 (nntp-close-server)))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
270 |
17493 | 271 (defun gnus-demon-add-scanmail () |
272 "Add daemonic scanning of mail from the mail backends." | |
273 (gnus-demon-add-handler 'gnus-demon-scan-mail 120 60)) | |
274 | |
275 (defun gnus-demon-scan-mail () | |
276 (save-window-excursion | |
277 (let ((servers gnus-opened-servers) | |
31716
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
278 server |
9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
Gerd Moellmann <gerd@gnu.org>
parents:
24357
diff
changeset
|
279 (nnmail-fetched-sources (list t))) |
17493 | 280 (while (setq server (car (pop servers))) |
281 (and (gnus-check-backend-function 'request-scan (car server)) | |
282 (or (gnus-server-opened server) | |
283 (gnus-open-server server)) | |
284 (gnus-request-scan nil server)))))) | |
285 | |
286 (defun gnus-demon-add-rescan () | |
287 "Add daemonic scanning of new articles from all backends." | |
288 (gnus-demon-add-handler 'gnus-demon-scan-news 120 60)) | |
289 | |
290 (defun gnus-demon-scan-news () | |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
291 (let ((win (current-window-configuration))) |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
292 (unwind-protect |
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
293 (save-window-excursion |
110410
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110102
diff
changeset
|
294 (when (gnus-alive-p) |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110102
diff
changeset
|
295 (with-current-buffer gnus-group-buffer |
f2e111723c3a
Merge changes made in Gnus trunk.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
110102
diff
changeset
|
296 (gnus-group-get-new-news)))) |
24357
15fc6acbae7a
Upgrading to Gnus 5.7; see ChangeLog
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents:
19969
diff
changeset
|
297 (set-window-configuration win)))) |
17493 | 298 |
299 (defun gnus-demon-add-scan-timestamps () | |
300 "Add daemonic updating of timestamps in empty newgroups." | |
301 (gnus-demon-add-handler 'gnus-demon-scan-timestamps nil 30)) | |
302 | |
303 (defun gnus-demon-scan-timestamps () | |
304 "Set the timestamp on all newsgroups with no unread and no ticked articles." | |
305 (when (gnus-alive-p) | |
306 (let ((cur-time (current-time)) | |
307 (newsrc (cdr gnus-newsrc-alist)) | |
308 info group unread has-ticked) | |
309 (while (setq info (pop newsrc)) | |
310 (setq group (gnus-info-group info) | |
311 unread (gnus-group-unread group) | |
312 has-ticked (cdr (assq 'tick (gnus-info-marks info)))) | |
313 (when (and (numberp unread) | |
314 (= unread 0) | |
315 (not has-ticked)) | |
316 (gnus-group-set-parameter group 'timestamp cur-time)))))) | |
317 | |
318 (provide 'gnus-demon) | |
319 | |
320 ;;; gnus-demon.el ends here |