Mercurial > emacs
comparison lisp/gnus/spam.el @ 87226:8088d508b758
Move `require's before `eval-when-compile's.
Add declare-function compatibility definition.
(gnus-extract-address-components): Declare as a function.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 11 Dec 2007 05:20:26 +0000 |
parents | 6276fcac4dc8 |
children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
87225:61147850ffcd | 87226:8088d508b758 |
---|---|
38 | 38 |
39 ;;; Code: | 39 ;;; Code: |
40 | 40 |
41 ;;{{{ compilation directives and autoloads/requires | 41 ;;{{{ compilation directives and autoloads/requires |
42 | 42 |
43 ;; For Emacs < 22.2. | |
44 (eval-and-compile | |
45 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | |
46 | |
43 (eval-when-compile (require 'cl)) | 47 (eval-when-compile (require 'cl)) |
44 (eval-when-compile (require 'spam-report)) | 48 |
45 (eval-when-compile (require 'hashcash)) | 49 (require 'message) ;for the message-fetch-field functions |
46 | |
47 (require 'gnus-sum) | 50 (require 'gnus-sum) |
48 | |
49 (require 'gnus-uu) ; because of key prefix issues | 51 (require 'gnus-uu) ; because of key prefix issues |
50 ;;; for the definitions of group content classification and spam processors | 52 ;;; for the definitions of group content classification and spam processors |
51 (require 'gnus) | 53 (require 'gnus) |
52 (require 'message) ;for the message-fetch-field functions | 54 |
55 (eval-when-compile (require 'spam-report)) | |
56 (eval-when-compile (require 'hashcash)) | |
53 | 57 |
54 ;; for nnimap-split-download-body-default | 58 ;; for nnimap-split-download-body-default |
55 (eval-when-compile (require 'nnimap)) | 59 (eval-when-compile (require 'nnimap)) |
56 | 60 |
57 ;; autoload query-dig | 61 ;; autoload query-dig |
2064 (eval-when-compile | 2068 (eval-when-compile |
2065 (autoload 'bbdb-buffer "bbdb") | 2069 (autoload 'bbdb-buffer "bbdb") |
2066 (autoload 'bbdb-create-internal "bbdb") | 2070 (autoload 'bbdb-create-internal "bbdb") |
2067 (autoload 'bbdb-search-simple "bbdb")) | 2071 (autoload 'bbdb-search-simple "bbdb")) |
2068 | 2072 |
2073 ;; Autoloaded in message, which we require. | |
2074 (declare-function gnus-extract-address-components "gnus-util" (from)) | |
2075 | |
2069 (eval-and-compile | 2076 (eval-and-compile |
2070 (when (condition-case nil | 2077 (when (condition-case nil |
2071 (progn | 2078 (progn |
2072 (require 'bbdb) | 2079 (require 'bbdb) |
2073 (require 'bbdb-com)) | 2080 (require 'bbdb-com)) |