From d767002b10ad35ddc43ec4f597d0634e53785134 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 22 Nov 1999 12:05:12 +0000 Subject: [PATCH] Require `cl' using `eval-when-compile'. --- lisp/earcon.el | 2 +- lisp/gnus-agent.el | 2 +- lisp/gnus-art.el | 2 +- lisp/gnus-async.el | 2 +- lisp/gnus-cite.el | 2 +- lisp/gnus-group.el | 2 +- lisp/gnus-kill.el | 2 +- lisp/gnus-logic.el | 2 +- lisp/gnus-mailcap.el | 2 +- lisp/gnus-mlspl.el | 2 +- lisp/gnus-msg.el | 5 ++--- lisp/gnus-picon.el | 2 +- lisp/gnus-range.el | 2 +- lisp/gnus-salt.el | 2 +- lisp/gnus-score.el | 2 +- lisp/gnus-spec.el | 2 +- lisp/gnus-srvr.el | 2 +- lisp/gnus-sum.el | 2 +- lisp/gnus-topic.el | 2 +- lisp/gnus-util.el | 2 +- lisp/gnus-vm.el | 2 +- lisp/gnus-win.el | 2 +- lisp/imap.el | 2 +- lisp/message.el | 2 +- lisp/nnbabyl.el | 2 +- lisp/nndoc.el | 2 +- lisp/nndraft.el | 2 +- lisp/nneething.el | 2 +- lisp/nnheader.el | 2 +- lisp/nnimap.el | 2 +- lisp/nnlistserv.el | 2 +- lisp/nnmail.el | 2 +- lisp/nnmbox.el | 2 +- lisp/nnmh.el | 2 +- lisp/nnml.el | 2 +- lisp/nnoo.el | 2 +- lisp/nnsoup.el | 2 +- lisp/nnspool.el | 2 +- lisp/nntp.el | 2 +- lisp/nnvirtual.el | 2 +- lisp/nnweb.el | 2 +- lisp/pop3.el | 2 +- lisp/score-mode.el | 5 ++--- lisp/smiley.el | 2 +- lisp/time-date.el | 2 +- 45 files changed, 47 insertions(+), 49 deletions(-) diff --git a/lisp/earcon.el b/lisp/earcon.el index e834156..a698479 100644 --- a/lisp/earcon.el +++ b/lisp/earcon.el @@ -25,7 +25,7 @@ (if (null (boundp 'running-xemacs)) (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))) -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-audio) (require 'gnus-art) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 823e940..5bfd446 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -24,7 +24,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-cache) (require 'nnvirtual) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index f656893..b904596 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -27,7 +27,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-when-compile (require 'static)) (require 'path-util) diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el index 3a6d4e6..52428ae 100644 --- a/lisp/gnus-async.el +++ b/lisp/gnus-async.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-sum) (require 'nntp) diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 0908bd1..33ff4fd 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -20,7 +20,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-art) (require 'gnus-range) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 13baa73..952230b 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-start) (require 'nnmail) diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el index bcf430f..1d04718 100644 --- a/lisp/gnus-kill.el +++ b/lisp/gnus-kill.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-art) (require 'gnus-range) diff --git a/lisp/gnus-logic.el b/lisp/gnus-logic.el index 5b664b8..c40f49e 100644 --- a/lisp/gnus-logic.el +++ b/lisp/gnus-logic.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-score) (require 'gnus-util) diff --git a/lisp/gnus-mailcap.el b/lisp/gnus-mailcap.el index 31ce041..57f2abf 100644 --- a/lisp/gnus-mailcap.el +++ b/lisp/gnus-mailcap.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'mail-parse) (defvar mailcap-parse-args-syntax-table diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el index b8bc473..e305b88 100644 --- a/lisp/gnus-mlspl.el +++ b/lisp/gnus-mlspl.el @@ -19,7 +19,7 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-sum) (require 'gnus-group) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 766666e..eddc93a 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -30,9 +30,8 @@ ;;; Code: -(eval-when-compile - (require 'cl) - (require 'static)) +(eval-when-compile (require 'cl)) +(eval-when-compile (require 'static)) (require 'gnus) (require 'gnus-ems) diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index a5fd074..6025a0b 100644 --- a/lisp/gnus-picon.el +++ b/lisp/gnus-picon.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) ;; (require 'xpm) (require 'annotations) diff --git a/lisp/gnus-range.el b/lisp/gnus-range.el index bc9b5b2..1964880 100644 --- a/lisp/gnus-range.el +++ b/lisp/gnus-range.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) ;;; List and range functions diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el index 9cd8097..9d016a6 100644 --- a/lisp/gnus-salt.el +++ b/lisp/gnus-salt.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-sum) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 6cb64a0..5088088 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-sum) (require 'gnus-range) diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index db0dab8..f0ef9d5 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) ;;; Internal variables. diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index dd0514a..d08c8d4 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-spec) (require 'gnus-group) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 8d0aafd..14fd895 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -27,7 +27,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-group) (require 'gnus-spec) diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 219406f..5f29241 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-group) (require 'gnus-start) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index aff7df9..de5e352 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -31,7 +31,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-when-compile (require 'static)) (require 'custom) (require 'nnheader) diff --git a/lisp/gnus-vm.el b/lisp/gnus-vm.el index 40123c4..74fae9f 100644 --- a/lisp/gnus-vm.el +++ b/lisp/gnus-vm.el @@ -31,10 +31,10 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'gnus-art) (eval-when-compile - (require 'cl) (autoload 'vm-mode "vm") (autoload 'vm-read-file-name "vm") (autoload 'vm-save-message "vm")) diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el index 3904c87..bbaa4f9 100644 --- a/lisp/gnus-win.el +++ b/lisp/gnus-win.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'gnus) (defgroup gnus-windows nil diff --git a/lisp/imap.el b/lisp/imap.el index bbc4f4d..6507fbc 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -132,7 +132,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-and-compile (autoload 'open-ssl-stream "ssl") diff --git a/lisp/message.el b/lisp/message.el index 3967f5b..bdaf1972 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -35,7 +35,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-when-compile (require 'smtp)) (require 'mailheader) (require 'nnheader) diff --git a/lisp/nnbabyl.el b/lisp/nnbabyl.el index 057d66e..3d5c5b9 100644 --- a/lisp/nnbabyl.el +++ b/lisp/nnbabyl.el @@ -29,7 +29,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (condition-case nil (require 'rmail) diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 78096e9..db71bad 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'message) (require 'nnmail) diff --git a/lisp/nndraft.el b/lisp/nndraft.el index 2866da5..5cd887a 100644 --- a/lisp/nndraft.el +++ b/lisp/nndraft.el @@ -25,13 +25,13 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nnmail) (require 'gnus-start) (require 'nnmh) (require 'nnoo) (eval-when-compile - (require 'cl) ;; This is just to shut up the byte-compiler. (fset 'nndraft-request-group 'ignore)) diff --git a/lisp/nneething.el b/lisp/nneething.el index 4719bc8..3caee7b 100644 --- a/lisp/nneething.el +++ b/lisp/nneething.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nnmail) (require 'nnoo) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index cfada1c..f591b0a 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -28,7 +28,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'mail-utils) (require 'mime) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 19d1956..55a7dc5 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -59,7 +59,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-and-compile (require 'imap)) (require 'nnoo) diff --git a/lisp/nnlistserv.el b/lisp/nnlistserv.el index 1ce4f7c..a226328 100644 --- a/lisp/nnlistserv.el +++ b/lisp/nnlistserv.el @@ -28,7 +28,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnoo) (require 'nnweb) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index c0d8259..c276d4b 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'message) (require 'custom) diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el index 17f4d4d..2dd8311 100644 --- a/lisp/nnmbox.el +++ b/lisp/nnmbox.el @@ -24,7 +24,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-when-compile (require 'static)) (require 'nnheader) (require 'message) diff --git a/lisp/nnmh.el b/lisp/nnmh.el index e09a603..1a26388 100644 --- a/lisp/nnmh.el +++ b/lisp/nnmh.el @@ -31,7 +31,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nnmail) (require 'gnus-start) diff --git a/lisp/nnml.el b/lisp/nnml.el index d3eda68..23b1401 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -30,7 +30,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nnmail) (require 'nnoo) diff --git a/lisp/nnoo.el b/lisp/nnoo.el index 2543494..44a0f83 100644 --- a/lisp/nnoo.el +++ b/lisp/nnoo.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (defvar nnoo-definition-alist nil) diff --git a/lisp/nnsoup.el b/lisp/nnsoup.el index 454fdd4..ace0c9a 100644 --- a/lisp/nnsoup.el +++ b/lisp/nnsoup.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nnmail) (require 'gnus-soup) diff --git a/lisp/nnspool.el b/lisp/nnspool.el index e253376..07b0b80 100644 --- a/lisp/nnspool.el +++ b/lisp/nnspool.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nntp) (require 'nnoo) diff --git a/lisp/nntp.el b/lisp/nntp.el index 4c1e1bf..91c93fb 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnheader) (require 'nnoo) (require 'gnus-util) diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index aab6e29..fd25bf6 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -31,7 +31,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nntp) (require 'nnheader) (require 'gnus) diff --git a/lisp/nnweb.el b/lisp/nnweb.el index 6bfc2e3..780fb4f 100644 --- a/lisp/nnweb.el +++ b/lisp/nnweb.el @@ -28,7 +28,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'nnoo) (require 'message) (require 'gnus-util) diff --git a/lisp/pop3.el b/lisp/pop3.el index 8581164..4885f61 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -35,7 +35,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'mail-utils) (defconst pop3-version "1.3s") diff --git a/lisp/score-mode.el b/lisp/score-mode.el index e1bef9e..dd8eba3 100644 --- a/lisp/score-mode.el +++ b/lisp/score-mode.el @@ -25,10 +25,9 @@ ;;; Code: +(eval-when-compile (require 'cl)) +(eval-when-compile (require 'static)) (require 'easymenu) -(eval-when-compile - (require 'cl) - (require 'static)) (defvar gnus-score-mode-hook nil "*Hook run in score mode buffers.") diff --git a/lisp/smiley.el b/lisp/smiley.el index 7f226fd..76b2884 100644 --- a/lisp/smiley.el +++ b/lisp/smiley.el @@ -35,7 +35,7 @@ ;; The smilies were drawn by Joe Reiss . -(require 'cl) +(eval-when-compile (require 'cl)) (require 'annotations) (require 'messagexmas) (require 'custom) diff --git a/lisp/time-date.el b/lisp/time-date.el index 06277f4..448bc54 100644 --- a/lisp/time-date.el +++ b/lisp/time-date.el @@ -24,7 +24,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (require 'parse-time) (defun date-to-time (date) -- 1.7.10.4