Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mark nnheader-cancel-timer as obsolete and adjust callers

Browse source 
* lisp/gnus/nnheader.el (nnheader-cancel-timer)
(nnheader-cancel-function-timers): Mark as obsolete.

* lisp/gnus/nntp.el (nntp-with-open-group-function)
(nntp-async-stop): Adjust caller.

* lisp/gnus/gnus-art.el (gnus-stop-date-timer): Ditto.

* lisp/gnus/gnus-async.el (gnus-async-prefetch-next): Ditto.

* lisp/gnus/gnus-demon.el (gnus-demon-run-callback)
(gnus-demon-cancel): Ditto.

* lisp/gnus/mail-source.el (mail-source-report-new-mail): Ditto.

* lisp/gnus/nnmaildir.el (nnmaildir-request-accept-article): Ditto.
This commit is contained in:
Lars Ingebrigtsen 2019-05-20 13:47:16 +02:00
parent b552fc05c2
commit bfcff8f88a
7 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-art.el
View file

@ -3733,7 +3733,7 @@ is to run."
"Stop the Date timer."
(interactive)
(when article-lapsed-timer
(nnheader-cancel-timer article-lapsed-timer)
(cancel-timer article-lapsed-timer)
(setq article-lapsed-timer nil)))
(defun article-date-user (&optional highlight)

2
lisp/gnus/gnus-async.el
View file

@ -146,7 +146,7 @@ that was fetched."
(when next
(when gnus-async-timer
(ignore-errors
(nnheader-cancel-timer 'gnus-async-timer)))
(cancel-timer 'gnus-async-timer)))
(setq gnus-async-timer
(run-with-idle-timer
0.1 nil 'gnus-async-prefetch-article

4
lisp/gnus/gnus-demon.el
View file

@ -111,7 +111,7 @@ marked with SPECIAL."
func idle time))))
((and idle (> idle (gnus-demon-idle-since)))
(when time
(nnheader-cancel-timer (plist-get gnus-demon-timers func))
(cancel-timer (plist-get gnus-demon-timers func))
(setq gnus-demon-timers
(plist-put gnus-demon-timers func
(run-with-idle-timer idle nil
@ -202,7 +202,7 @@ marked with SPECIAL."
"Cancel any Gnus daemons."
(interactive)
(dotimes (i (/ (length gnus-demon-timers) 2))
(nnheader-cancel-timer (nth (1+ (* i 2)) gnus-demon-timers)))
(cancel-timer (nth (1+ (* i 2)) gnus-demon-timers)))
(setq gnus-demon-timers nil))
(defun gnus-demon-add-disconnection ()

5
lisp/gnus/mail-source.el
View file

@ -31,7 +31,6 @@
(autoload 'auth-source-search "auth-source")
(autoload 'pop3-movemail "pop3")
(autoload 'pop3-get-message-count "pop3")
(autoload 'nnheader-cancel-timer "nnheader")
(require 'mm-util)
(require 'message) ;; for `message-directory'
@ -989,9 +988,9 @@ This only works when `display-time' is enabled."
(> (prefix-numeric-value arg) 0))))
(setq mail-source-report-new-mail on)
(and mail-source-report-new-mail-timer
(nnheader-cancel-timer mail-source-report-new-mail-timer))
(cancel-timer mail-source-report-new-mail-timer))
(and mail-source-report-new-mail-idle-timer
(nnheader-cancel-timer mail-source-report-new-mail-idle-timer))
(cancel-timer mail-source-report-new-mail-idle-timer))
(setq mail-source-report-new-mail-timer nil)
(setq mail-source-report-new-mail-idle-timer nil)
(if on

4
lisp/gnus/nnheader.el
View file

@ -970,7 +970,11 @@ See `find-file-noselect' for the arguments."
(nnheader-skeleton-replace "\r"))
(defalias 'nnheader-cancel-timer 'cancel-timer)
(define-obsolete-function-alias 'nnheader-cancel-timer 'cancel-timer "27.1")
(defalias 'nnheader-cancel-function-timers 'cancel-function-timers)
(define-obsolete-function-alias 'nnheader-cancel-function-timers
'cancel-function-timers "27.1")
;; When changing this function, consider changing `pop3-accept-process-output'
;; as well.

2
lisp/gnus/nnmaildir.el
View file

@ -1490,7 +1490,7 @@ This variable is set by `nnmaildir-request-article'.")
'excl)
(when (fboundp 'unix-sync)
(unix-sync)))) ;; no fsync :(
(nnheader-cancel-timer 24h)
(cancel-timer 24h)
(condition-case err
(add-name-to-file tmpfile curfile)
(error

6
lisp/gnus/nntp.el
View file

@ -647,7 +647,7 @@ command whose response triggered the error."
(nntp-close-server))
(signal 'quit nil))))
(when -timer
(nnheader-cancel-timer -timer)))
(cancel-timer -timer)))
nil))
(setq nntp--report-1 nntp-report-n))
nntp-with-open-group-internal))
@ -1280,7 +1280,7 @@ If SEND-IF-FORCE, only send authinfo to the server if the
(signal 'quit nil)
nil))))
(when timer
(nnheader-cancel-timer timer))
(cancel-timer timer))
(when (and process
(not (memq (process-status process) '(open run))))
(with-current-buffer pbuffer
@ -1339,7 +1339,7 @@ If SEND-IF-FORCE, only send authinfo to the server if the
(defun nntp-async-stop (proc)
(setq nntp-async-process-list (delq proc nntp-async-process-list))
(when (and nntp-async-timer (not nntp-async-process-list))
(nnheader-cancel-timer nntp-async-timer)
(cancel-timer nntp-async-timer)
(setq nntp-async-timer nil)))
(defun nntp-after-change-function (beg end len)