(TopLevel): Suppress warning.

diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index d881240..02fd3e3 100644 (file)
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -105,6 +105,10 @@ abcdefghijklmnopqrstuvwxyz\
    (logand v (lsh 255 8))
    (lsh (logand v 255) 16)))
 
+)
+
+(eval-when-compile
+
 (defconst mel-ccl-decode-b-0-table
   (vconcat
    (mapcar

diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index 7ad5a0d..dc84735 100644 (file)
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -248,6 +248,10 @@ abcdefghijklmnopqrstuvwxyz\
       ,succ
       ,fail-crlf))))
 
+)
+
+(eval-when-compile
+
 ;; Generated CCL program works not properly on 20.2 because CCL_EOF_BLOCK
 ;; is not executed.
 (defun mel-ccl-encode-quoted-printable-generic (input-crlf output-crlf)

diff --git a/mime.el b/mime.el
index a2f4fec..ce23631 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -29,10 +29,11 @@
 (require 'mime-def)
 (require 'eword-decode)
 
+(eval-and-compile
+
 (autoload 'eword-encode-header "eword-encode"
   "Encode header fields to network representation, such as MIME encoded-word.")
 
-
 (autoload 'mime-parse-Content-Type "mime-parse"
   "Parse STRING as field-body of Content-Type field.")
 (autoload 'mime-read-Content-Type "mime-parse"
@@ -60,6 +61,7 @@ current-buffer, and return it.")
 (autoload 'mime-parse-buffer "mime-parse"
   "Parse BUFFER as a MIME message.")
 
+)
 
 ;;; @ Entity Representation and Implementation
 ;;;