Mercurial > emacs
diff lisp/mh-e/mh-seq.el @ 68096:57c4e7929f99
* mh-alias.el (mh-alias-gecos-name): Use replace-regexp-in-string
instead of mh-replace-in-string as mh-replace-in-string was replaced
by a more appropriate defsubst in mh-xemacs.el.
* mh-comp.el: Require cleanup, wrap compiler-shushing defvars with
eval-when-compile.
(mh-file-is-vcard-p): Removed redundant test.
* mh-customize.el: Require cleanup, wrap compiler-shushing defvars
with eval-when-compile.
(mh-adaptive-cmd-note-flag, mh-invisible-header-fields)
(mh-invisible-header-fields-default): Add forward definitions.
(mh-invisible-header-fields-default): Alphabetize.
* mh-e.el: Require cleanup, wrap compiler-shushing defvars with
eval-when-compile.
(mh-thread-scan-line-map-stack, tool-bar-mode): Delete unused
variables.
(mh-colors-available-p): Just call display-color-cells. It's on all
supported Emacsen (and defaliased on XEmacs).
* mh-funcs.el: mh-inc.el: mh-init.el: Wrap compiler-shushing defvars
* with eval-when-compile.
* mh-identity.el: Don't need (mh-require-cl).
* mh-index.el: Don't need to load executable any more.
* mh-mime.el: Wrap compiler-shushing defvars with eval-when-compile.
(mh-have-file-command): Initialize variable to 'undefined. Add
docstring. Update function of same name accordingly. Also don't need
to load executable any more.
(mh-mime-content-types): Delete.
(mh-minibuffer-read-type): Prompt user for type if mh-file-mime-type
returns application/octet-stream. Assume we have mailcap-mime-types.
(mh-mime-display): Update error message.
* mh-seq.el: Require cleanup, and wrap compiler-shushing defvars with
eval-when-compile.
* mh-utils.el: Require cleanup, and wrap compiler-shushing defvars
with eval-when-compile.
(mh-clean-msg-header): Don't set after-change-functions to nil.
(mh-replace-in-string): Remove. Create defsubst in mh-xemacs.el
instead.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Mon, 09 Jan 2006 06:28:49 +0000 |
parents | bbc0e52abce5 |
children | 5772368fe15e |
line wrap: on
line diff
--- a/lisp/mh-e/mh-seq.el Sun Jan 08 23:48:56 2006 +0000 +++ b/lisp/mh-e/mh-seq.el Mon Jan 09 06:28:49 2006 +0000 @@ -73,11 +73,9 @@ (eval-when-compile (require 'mh-acros)) (mh-require-cl) + (require 'mh-e) -;; Shush the byte-compiler -(defvar tool-bar-mode) - ;;; Data structures (used in message threading)... @@ -171,8 +169,7 @@ (when (and (eq sequence mh-unseen-seq) (mh-speed-flists-active-p)) (apply #'mh-speed-flists t folders-changed)))) -;; Avoid compiler warnings -(defvar view-exit-action) +(eval-when-compile (defvar view-exit-action)) ;shush compiler ;;;###mh-autoload (defun mh-list-sequences () @@ -239,8 +236,10 @@ (mh-list-to-string (mh-seq-containing-msg message t)) " ")))) -;; Avoid compiler warning -(defvar tool-bar-map) +;; Shush compiler +(eval-when-compile + (defvar tool-bar-map) + (defvar tool-bar-mode)) (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)