Evaluate mh-require when compiling

* lisp/mh-e/mh-alias.el, lisp/mh-e/mh-folder.el:
* lisp/mh-e/mh-gnus.el, lisp/mh-e/mh-search.el:
Evaluate mh-require when compiling, as require is automatically.
* lisp/mh-e/mh-gnus.el: No longer disable byte-compilation.

diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index 82602eecf27336be3d8334034026c3d58b6126ba..d62ac671ea13db75d4d40e9cacdaaef980f54bc5 100644 (file)
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -252,8 +252,9 @@ Blind aliases or users from /etc/passwd are not expanded."
    (t
     (mh-alias-ali alias))))
 
-(mh-require 'crm nil t)                 ; completing-read-multiple
-(mh-require 'multi-prompt nil t)
+(eval-and-compile
+  (mh-require 'crm nil t)                 ; completing-read-multiple
+  (mh-require 'multi-prompt nil t))
 
 ;;;###mh-autoload
 (defun mh-read-address (prompt)

diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el
index acef35d6cd235c05f9c47da008292b3db1d579f6..f846f17943345df80e7a07362dd846e004289954 100644 (file)
--- a/lisp/mh-e/mh-folder.el
+++ b/lisp/mh-e/mh-folder.el
@@ -525,7 +525,7 @@ font-lock is done highlighting.")
                         (cons (current-buffer) nil)))))
 
 ;; Register mh-folder-mode as supporting which-function-mode...
-(mh-require 'which-func nil t)
+(eval-and-compile (mh-require 'which-func nil t))
 (when (and (boundp 'which-func-modes) (listp which-func-modes))
   (add-to-list 'which-func-modes 'mh-folder-mode))
 

diff --git a/lisp/mh-e/mh-gnus.el b/lisp/mh-e/mh-gnus.el
index 3afdb7501ffca09494343f392812fe05e1428ffa..318759ddc1bf7ee894ebc072f20295505a9a03a4 100644 (file)
--- a/lisp/mh-e/mh-gnus.el
+++ b/lisp/mh-e/mh-gnus.el
@@ -30,11 +30,12 @@
 
 (require 'mh-e)
 
-(mh-require 'gnus-util nil t)
-(mh-require 'mm-bodies nil t)
-(mh-require 'mm-decode nil t)
-(mh-require 'mm-view nil t)
-(mh-require 'mml nil t)
+(eval-and-compile
+  (mh-require 'gnus-util nil t)
+  (mh-require 'mm-bodies nil t)
+  (mh-require 'mm-decode nil t)
+  (mh-require 'mm-view nil t)
+  (mh-require 'mml nil t))
 
 ;; Copy of function from gnus-util.el.
 ;; TODO This is not in Gnus 5.11.
@@ -170,7 +171,6 @@ PROMPT overrides the default one used to ask user for a file name."
 (provide 'mh-gnus)
 
 ;; Local Variables:
-;; no-byte-compile: t
 ;; no-update-autoloads: t
 ;; indent-tabs-mode: nil
 ;; sentence-end-double-space: nil

diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index 099f922a5e817b8bea1d8db158b41ad5f543061d..7ff35645bddfeab9b65997086abed76b44ac1bce 100644 (file)
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1416,7 +1416,7 @@ being the list of messages originally from that folder."
     (when cur-msg (mh-goto-msg cur-msg t t))
     (set-buffer-modified-p old-buffer-modified-flag)))
 
-(mh-require 'which-func nil t)
+(eval-and-compile (mh-require 'which-func nil t))
 
 ;; Shush compiler.
 (defvar which-func-mode)                ; < Emacs 22, XEmacs