diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 15:17:33 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 15:17:33 +1100 |
| commit | 4ab7c9e0abb85732d7cc03a77f2fdfd372f2c0e1 (patch) | |
| tree | 225598f3107af9fe78e55571c0a233b3fae94094 /lisp/gnus/gnus-async.el | |
| parent | ee506a23ed33c3564d813f4e462947cf5b07712c (diff) | |
| download | emacs-4ab7c9e0abb85732d7cc03a77f2fdfd372f2c0e1.tar.gz | |
Remove XEmacs compat code from gnus-a*.el
* lisp/gnus/gnus-agent.el: Remove compat code.
* lisp/gnus/gnus-art.el: Remove compat code.
* lisp/gnus/gnus-async.el: Remove compat code.
Diffstat (limited to 'lisp/gnus/gnus-async.el')
| -rw-r--r-- | lisp/gnus/gnus-async.el | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index a1408259ec5..ba72d820431 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -148,18 +148,13 @@ that was fetched." (with-current-buffer gnus-summary-buffer (let ((next (caadr (gnus-data-find-list article)))) (when next - (if (not (fboundp 'run-with-idle-timer)) - ;; This is either an older Emacs or XEmacs, so we - ;; do this, which leads to slightly slower article - ;; buffer display. - (gnus-async-prefetch-article group next summary) - (when gnus-async-timer - (ignore-errors - (nnheader-cancel-timer 'gnus-async-timer))) - (setq gnus-async-timer - (run-with-idle-timer - 0.1 nil 'gnus-async-prefetch-article - group next summary)))))))) + (when gnus-async-timer + (ignore-errors + (nnheader-cancel-timer 'gnus-async-timer))) + (setq gnus-async-timer + (run-with-idle-timer + 0.1 nil 'gnus-async-prefetch-article + group next summary))))))) (defun gnus-async-prefetch-article (group article summary &optional next) "Possibly prefetch several articles starting with ARTICLE." |