[Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-show.el mh-seq.e...

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/04/14 21:28:52

Modified files:
        lisp/mh-e      : mh-utils.el mh-show.el mh-seq.el mh-mime.el 
                         mh-funcs.el ChangeLog 

Log message:
        * 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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-utils.el.diff?tr1=1.63&tr2=1.64&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-show.el.diff?tr1=1.5&tr2=1.6&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-seq.el.diff?tr1=1.29&tr2=1.30&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-mime.el.diff?tr1=1.51&tr2=1.52&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-funcs.el.diff?tr1=1.29&tr2=1.30&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.199&tr2=1.200&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.199 emacs/lisp/mh-e/ChangeLog:1.200
--- emacs/lisp/mh-e/ChangeLog:1.199     Fri Apr 14 18:49:18 2006
+++ emacs/lisp/mh-e/ChangeLog   Fri Apr 14 21:28:52 2006
@@ -1,5 +1,16 @@
 2006-04-14  Bill Wohler  <address@hidden>
 
+       * 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.  
 
Index: emacs/lisp/mh-e/mh-funcs.el
diff -u emacs/lisp/mh-e/mh-funcs.el:1.29 emacs/lisp/mh-e/mh-funcs.el:1.30
--- emacs/lisp/mh-e/mh-funcs.el:1.29    Tue Mar 28 18:35:14 2006
+++ emacs/lisp/mh-e/mh-funcs.el Fri Apr 14 21:28:52 2006
@@ -138,7 +138,7 @@
     (display-buffer mh-temp-buffer)))
 
 ;; Shush compiler.
-(eval-when-compile (defvar view-exit-action))
+(defvar view-exit-action)
 
 ;;;###mh-autoload
 (defun mh-list-folders ()
Index: emacs/lisp/mh-e/mh-mime.el
diff -u emacs/lisp/mh-e/mh-mime.el:1.51 emacs/lisp/mh-e/mh-mime.el:1.52
--- emacs/lisp/mh-e/mh-mime.el:1.51     Mon Feb 27 22:30:58 2006
+++ emacs/lisp/mh-e/mh-mime.el  Fri Apr 14 21:28:52 2006
@@ -1537,7 +1537,7 @@
     (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)
Index: emacs/lisp/mh-e/mh-seq.el
diff -u emacs/lisp/mh-e/mh-seq.el:1.29 emacs/lisp/mh-e/mh-seq.el:1.30
--- emacs/lisp/mh-e/mh-seq.el:1.29      Wed Feb  1 23:24:34 2006
+++ emacs/lisp/mh-e/mh-seq.el   Fri Apr 14 21:28:52 2006
@@ -134,7 +134,7 @@
       (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 ()
Index: emacs/lisp/mh-e/mh-show.el
diff -u emacs/lisp/mh-e/mh-show.el:1.5 emacs/lisp/mh-e/mh-show.el:1.6
--- emacs/lisp/mh-e/mh-show.el:1.5      Fri Mar  3 00:27:49 2006
+++ emacs/lisp/mh-e/mh-show.el  Fri Apr 14 21:28:52 2006
@@ -815,7 +815,7 @@
 (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"
Index: emacs/lisp/mh-e/mh-utils.el
diff -u emacs/lisp/mh-e/mh-utils.el:1.63 emacs/lisp/mh-e/mh-utils.el:1.64
--- emacs/lisp/mh-e/mh-utils.el:1.63    Wed Mar 15 17:03:58 2006
+++ emacs/lisp/mh-e/mh-utils.el Fri Apr 14 21:28:52 2006
@@ -657,7 +657,7 @@
 (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.