diff options
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 826fdd71896..72a79035f0c 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -27,6 +27,9 @@ | |||
| 27 | 27 | ||
| 28 | ;;; Code: | 28 | ;;; Code: |
| 29 | 29 | ||
| 30 | ;; For Emacs < 22.2. | ||
| 31 | (eval-and-compile | ||
| 32 | (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | ||
| 30 | (eval-when-compile | 33 | (eval-when-compile |
| 31 | (require 'cl)) | 34 | (require 'cl)) |
| 32 | 35 | ||
| @@ -5576,6 +5579,8 @@ If SELECT-ARTICLES, only select those articles from GROUP." | |||
| 5576 | (gnus-inverse-list-range-intersection | 5579 | (gnus-inverse-list-range-intersection |
| 5577 | gnus-newsgroup-articles gnus-newsgroup-seen)))) | 5580 | gnus-newsgroup-articles gnus-newsgroup-seen)))) |
| 5578 | 5581 | ||
| 5582 | (declare-function gnus-get-predicate "gnus-agent" (predicate)) | ||
| 5583 | |||
| 5579 | (defun gnus-summary-display-make-predicate (display) | 5584 | (defun gnus-summary-display-make-predicate (display) |
| 5580 | (require 'gnus-agent) | 5585 | (require 'gnus-agent) |
| 5581 | (when (= (length display) 1) | 5586 | (when (= (length display) 1) |