X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-demon.el;h=9f992d567d711f8629ca529db34ae3971dfb2535;hb=0661509959b5bf873e14519923ed74ade86925ac;hp=67c1c8ba3bc890fc2cf7a988b205527e45b9767f;hpb=a4cc1a7862f0e7e0eba0acadfe8ffad990e4fe41;p=gnus diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el index 67c1c8ba3..9f992d567 100644 --- a/lisp/gnus-demon.el +++ b/lisp/gnus-demon.el @@ -92,7 +92,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." - (gnus-pull function gnus-demon-handlers) + (gnus-alist-pull function gnus-demon-handlers) (unless no-init (gnus-demon-init))) @@ -240,15 +240,6 @@ time Emacs has been idle for IDLE `gnus-demon-timestep's." ;; this idle-cycle. (push (car handler) gnus-demon-idle-has-been-called))))))))) -(defun gnus-demon-add-nocem () - "Add daemonic NoCeM handling to Gnus." - (gnus-demon-add-handler 'gnus-demon-scan-nocem 60 30)) - -(defun gnus-demon-scan-nocem () - "Scan NoCeM groups for NoCeM messages." - (save-window-excursion - (gnus-nocem-scan-groups))) - (defun gnus-demon-add-disconnection () "Add daemonic server disconnection to Gnus." (gnus-demon-add-handler 'gnus-demon-close-connections nil 30))