projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r6565,
[elisp/gnus.git-]
/
lisp
/
gnus-demon.el
diff --git
a/lisp/gnus-demon.el
b/lisp/gnus-demon.el
index
f3968ea
..
0015a90
100644
(file)
--- a/
lisp/gnus-demon.el
+++ b/
lisp/gnus-demon.el
@@
-1,7
+1,7
@@
;;; gnus-demon.el --- daemonic Gnus behaviour
;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
;;; gnus-demon.el --- daemonic Gnus behaviour
;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
-;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; This file is part of GNU Emacs.
;; Keywords: news
;; This file is part of GNU Emacs.
@@
-32,6
+32,7
@@
(require 'nnheader)
(require 'nntp)
(require 'nnmail)
(require 'nnheader)
(require 'nntp)
(require 'nnmail)
+(require 'gnus-util)
(eval-and-compile
(if (string-match "XEmacs" (emacs-version))
(require 'itimer)
(eval-and-compile
(if (string-match "XEmacs" (emacs-version))
(require 'itimer)
@@
-97,9
+98,7
@@
time Emacs has been idle for IDLE `gnus-demon-timestep's."
(defun gnus-demon-remove-handler (function &optional no-init)
"Remove the handler FUNCTION from the list of handlers."
(defun gnus-demon-remove-handler (function &optional no-init)
"Remove the handler FUNCTION from the list of handlers."
- (setq gnus-demon-handlers
- (delq (assq function gnus-demon-handlers)
- gnus-demon-handlers))
+ (gnus-pull function gnus-demon-handlers)
(unless no-init
(gnus-demon-init)))
(unless no-init
(gnus-demon-init)))