aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorErik Naggum1996-07-02 00:01:05 +0000
committerErik Naggum1996-07-02 00:01:05 +0000
commitcc8d8b6fe09d244b0c30ed90a91b820935c4aafe (patch)
treef380675ea8721598a1113e9cb44492fd3158fa2a
parent901b219d7b84c2f7b9ff22571e00a61c1af03269 (diff)
downloademacs-cc8d8b6fe09d244b0c30ed90a91b820935c4aafe.tar.gz
emacs-cc8d8b6fe09d244b0c30ed90a91b820935c4aafe.zip
(require 'cl) is only necessary when compiling.
-rw-r--r--lisp/mail/mailheader.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index fa0265faf41..142b29c4f35 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -1,4 +1,4 @@
1;;; mail-header.el --- Mail header parsing, merging, formatting 1;;; mailheader.el --- Mail header parsing, merging, formatting
2 2
3;; Copyright (C) 1996 by Free Software Foundation, Inc. 3;; Copyright (C) 1996 by Free Software Foundation, Inc.
4 4
@@ -25,7 +25,7 @@
25;;; Commentary: 25;;; Commentary:
26 26
27;; This package provides an abstraction to RFC822-style messages, used in 27;; This package provides an abstraction to RFC822-style messages, used in
28;; mail news, and some other systems. The simple syntactic rules for such 28;; mail, news, and some other systems. The simple syntactic rules for such
29;; headers, such as quoting and line folding, are routinely reimplemented 29;; headers, such as quoting and line folding, are routinely reimplemented
30;; in many individual packages. This package removes the need for this 30;; in many individual packages. This package removes the need for this
31;; redundancy by representing message headers as association lists, 31;; redundancy by representing message headers as association lists,
@@ -46,7 +46,8 @@
46 46
47;;; Code: 47;;; Code:
48 48
49(require 'cl) 49(eval-when-compile
50 (require 'cl))
50 51
51;; Make the byte-compiler shut up. 52;; Make the byte-compiler shut up.
52(defvar headers) 53(defvar headers)
@@ -179,4 +180,4 @@ A key of nil has as its value a list of defaulted headers to ignore."
179 180
180(provide 'mailheader) 181(provide 'mailheader)
181 182
182;;; mail-header.el ends here 183;;; mailheader.el ends here