Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 87189:e7e2bc9b899d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(declare-function): Add compatibility declaration. (gnus-get-predicate): Declare as function.
author Glenn Morris <rgm@gnu.org>
date Sun, 09 Dec 2007 02:07:07 +0000
parents e50a2e215441
children 617739001662
comparison
equal deleted inserted replaced
87188:1b363e0443be 87189:e7e2bc9b899d
25 25
26 ;;; Commentary: 26 ;;; Commentary:
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
33 (defvar tool-bar-mode) 36 (defvar tool-bar-mode)
34 (defvar gnus-tmp-header) 37 (defvar gnus-tmp-header)
5574 (setq gnus-newsgroup-unseen gnus-newsgroup-articles) 5577 (setq gnus-newsgroup-unseen gnus-newsgroup-articles)
5575 (setq gnus-newsgroup-unseen 5578 (setq gnus-newsgroup-unseen
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)
5582 (setq display (car display))) 5587 (setq display (car display)))
5583 (unless gnus-summary-display-cache 5588 (unless gnus-summary-display-cache