andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Bill Wohler 2006-04-14 21:28:52 +00:00
parent 30545916ed
commit 73e6d1af3e
6 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/mh-e/ChangeLog
View file

@ -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.

2
lisp/mh-e/mh-funcs.el
View file

@ -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 ()

2
lisp/mh-e/mh-mime.el
View file

@ -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)

2
lisp/mh-e/mh-seq.el
View file

@ -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 ()

2
lisp/mh-e/mh-show.el
View file

@ -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"

2
lisp/mh-e/mh-utils.el
View file

@ -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.