* mh-funcs.el (view-exit-action): No need to wrap defvar with

eval-when-compile when shushing compiler.

* mh-mime.el (mh-identity-pgg-default-user-id): Ditto.

* mh-seq.el (view-exit-action): Ditto.

* mh-show.el (font-lock-auto-fontify): Ditto.

* mh-utils.el (mh-speed-flists-cache): Ditto

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 8bd41929cd302776e530c041c7575763b0247ed2..574c161e2ef92abb367b64351fde7ae2c22f0148 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,16 @@
 2006-04-14  Bill Wohler  <wohler@newt.com>
 
+       * mh-funcs.el (view-exit-action): No need to wrap defvar with
+       eval-when-compile when shushing compiler.
+
+       * mh-mime.el (mh-identity-pgg-default-user-id): Ditto.
+
+       * mh-seq.el (view-exit-action): Ditto.
+
+       * mh-show.el (font-lock-auto-fontify): Ditto.
+
+       * mh-utils.el (mh-speed-flists-cache): Ditto
+
        * mh-compat.el (mh-font-lock-add-keywords): New alias for
        font-lock-add-keywords. Returns nil on XEmacs.  
 

diff --git a/lisp/mh-e/mh-funcs.el b/lisp/mh-e/mh-funcs.el
index 84b04d51c3575bc855ed10a6c7ff62b69f1e474b..e97533e5724e34c7a633521ff857a6f1f1c9ed4c 100644 (file)
--- a/lisp/mh-e/mh-funcs.el
+++ b/lisp/mh-e/mh-funcs.el
@@ -138,7 +138,7 @@ Display the results only if something went wrong."
     (display-buffer mh-temp-buffer)))
 
 ;; Shush compiler.
-(eval-when-compile (defvar view-exit-action))
+(defvar view-exit-action)
 
 ;;;###mh-autoload
 (defun mh-list-folders ()

diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index d35e759bcd42c077de412fc483a45f86dc6cbd8f..f7a3494a1b70108711a06bb1c4c57b791d8a9c9e 100644 (file)
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -1537,7 +1537,7 @@ a prefix argument NOCONFIRM."
     (after-find-file nil)))
 
 ;; Shush compiler.
-(eval-when-compile (defvar mh-identity-pgg-default-user-id))
+(defvar mh-identity-pgg-default-user-id)
 
 ;;;###mh-autoload
 (defun mh-mml-secure-message-encrypt (method)

diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index a5732d00bc6c79d42d6dcb6eac7f44449850cc84..cf179fbf9570e455301e368f7658fdb9d203c83e 100644 (file)
--- a/lisp/mh-e/mh-seq.el
+++ b/lisp/mh-e/mh-seq.el
@@ -134,7 +134,7 @@ you want to delete the messages, use \"\\[universal-argument]
       (apply #'mh-speed-flists t folders-changed))))
 
 ;; Shush compiler.
-(eval-when-compile (defvar view-exit-action))
+(defvar view-exit-action)
 
 ;;;###mh-autoload
 (defun mh-list-sequences ()

diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el
index d7b656d34622a1ba77e41440c5e0f6810e810dbe..fb6698467da663b84939a1c7957f62f96d3d3558 100644 (file)
--- a/lisp/mh-e/mh-show.el
+++ b/lisp/mh-e/mh-show.el
@@ -815,7 +815,7 @@ operation."
 (put 'mh-show-mode 'mode-class 'special)
 
 ;; Shush compiler.
-(eval-when-compile (defvar font-lock-auto-fontify))
+(defvar font-lock-auto-fontify)
 
 ;;;###mh-autoload
 (define-derived-mode mh-show-mode text-mode "MH-Show"

diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index e41ee0bcc4f622fc07aebb2d06567a2bd88f0812..8afb2993e177dec2e40b6a8a99f06e679f3e6361 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -657,7 +657,7 @@ See `expand-file-name' for description of DEFAULT."
 (defvar mh-folder-hist nil)
 
 ;; Shush compiler.
-(eval-when-compile (defvar mh-speed-flists-cache))
+(defvar mh-speed-flists-cache)
 
 (defvar mh-allow-root-folder-flag nil
   "Non-nil means \"+\" is an acceptable folder name.