* mh-funcs.el:

* mh-inc.el:
* mh-init.el:
* mh-mime.el:
* mh-seq.el:
* mh-utils.el: Use ";; Shush compiler." comment consistently per
Mark's suggestion.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 5702145e866bc6a5bc83079a879803f9fe27fd1d..7ec0541fcefa4c78abf7668f51b2ee61613143bf 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,13 @@
+2006-01-09  Bill Wohler  <wohler@newt.com>
+
+       * mh-funcs.el: 
+       * mh-inc.el: 
+       * mh-init.el: 
+       * mh-mime.el: 
+       * mh-seq.el: 
+       * mh-utils.el: Use ";; Shush compiler." comment consistently per
+       Mark's suggestion.
+
 2006-01-08  Bill Wohler  <wohler@newt.com>
 
        Removed code that was marked as Emacs 20 compatible that was

diff --git a/lisp/mh-e/mh-funcs.el b/lisp/mh-e/mh-funcs.el
index 8127e129ceb77ba4a8dc29fbc654d2640fe92b28..f19314403e1ab0e3a70dec899c58d54ffe93fa16 100644 (file)
--- a/lisp/mh-e/mh-funcs.el
+++ b/lisp/mh-e/mh-funcs.el
@@ -149,7 +149,8 @@ Display the results only if something went wrong."
           (re-search-forward "^rmf: " (point-max) t))
     (display-buffer mh-temp-buffer)))
 
-(eval-when-compile (defvar view-exit-action)) ;shush compiler
+;; Shush compiler.
+(eval-when-compile (defvar view-exit-action))
 
 ;;;###mh-autoload
 (defun mh-list-folders ()

diff --git a/lisp/mh-e/mh-inc.el b/lisp/mh-e/mh-inc.el
index 29a9d1531a28f2a5aee9b087b63d0f065108cd38..60765316c7a51be44698b3ebb4bed1f621621846 100644 (file)
--- a/lisp/mh-e/mh-inc.el
+++ b/lisp/mh-e/mh-inc.el
@@ -73,7 +73,8 @@
                                         (char-to-string key)
                                         "] inc " folder " folder\n"))))
 
-(eval-when-compile (defvar mh-inc-spool-list)) ;shush compiler
+;; Shush compiler.
+(eval-when-compile (defvar mh-inc-spool-list))
 
 (defun mh-inc-spool-make ()
   "Make all commands and defines keys for contents of `mh-inc-spool-list'."

diff --git a/lisp/mh-e/mh-init.el b/lisp/mh-e/mh-init.el
index dec107a8030f9c4277f117b031e913b9f01764b5..0e642862fe818b290de5b6a5400ea4e54914e979 100644 (file)
--- a/lisp/mh-e/mh-init.el
+++ b/lisp/mh-e/mh-init.el
@@ -297,7 +297,8 @@ This assumes that a temporary buffer is setup."
 
 \f
 
-(eval-when-compile (defvar image-load-path)) ;shush compiler
+;; Shush compiler.
+(eval-when-compile (defvar image-load-path))
 
 (defvar mh-image-load-path-called-flag nil)
 

diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index 58e974974a8fe2fbe15cafc844c060944256f239..60a7b38e03d6e7d08839c3d0c646faed33fdb128 100644 (file)
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -591,7 +591,8 @@ automatically."
     (mml-insert-empty-tag 'part 'type type 'filename file
                           'disposition dispos 'description description)))
 
-(eval-when-compile (defvar mh-identity-pgg-default-user-id)) ;shush compiler
+;; Shush compiler.
+(eval-when-compile (defvar mh-identity-pgg-default-user-id))
 
 (defun mh-secure-message (method mode &optional identity)
   "Add tag to encrypt or sign message.

diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index 40eaaff37cd3797ce63b9c582dbaf0c5c6d8be02..c24631041d4584975be42bb6f786ebbc546dfcff 100644 (file)
--- a/lisp/mh-e/mh-seq.el
+++ b/lisp/mh-e/mh-seq.el
@@ -169,7 +169,8 @@ you want to delete the messages, use \"\\[universal-argument]
     (when (and (eq sequence mh-unseen-seq) (mh-speed-flists-active-p))
       (apply #'mh-speed-flists t folders-changed))))
 
-(eval-when-compile (defvar view-exit-action)) ;shush compiler
+;; Shush compiler.
+(eval-when-compile (defvar view-exit-action))
 
 ;;;###mh-autoload
 (defun mh-list-sequences ()

diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index fbb3b5aa260009bd722895b7e1777eb681eb1496..55c5aa33667ff4dadbc30b91c84842b1c94dcc98 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -2606,7 +2606,8 @@ RAISE-ERROR is non-nil, in which case an error is signaled if
     (mh-exec-cmd-quiet nil "mhparam" "-components" component)
     (mh-get-profile-field (concat component ":"))))
 
-(eval-when-compile (defvar mark-active)) ;shush compiler
+;; Shush compiler.
+(eval-when-compile (defvar mark-active))
 
 (defun mh-exchange-point-and-mark-preserving-active-mark ()
   "Put the mark where point is now, and point where the mark is now.