diff options
| author | Bill Wohler <wohler@newt.com> | 2006-01-09 06:28:49 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-01-09 06:28:49 +0000 |
| commit | 7094eefe8034342f492f538676220e84fb8706e6 (patch) | |
| tree | 5fe6d3752c4d755bc20868a8138b7ef118b548ab /lisp/mh-e/mh-seq.el | |
| parent | e1b3b7a2d93d2883817969f17d3764f2a15f69bc (diff) | |
| download | emacs-7094eefe8034342f492f538676220e84fb8706e6.tar.gz emacs-7094eefe8034342f492f538676220e84fb8706e6.tar.bz2 emacs-7094eefe8034342f492f538676220e84fb8706e6.zip | |
* 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.
Diffstat (limited to 'lisp/mh-e/mh-seq.el')
| -rw-r--r-- | lisp/mh-e/mh-seq.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el index 53bae76cc07..40eaaff37cd 100644 --- a/lisp/mh-e/mh-seq.el +++ b/lisp/mh-e/mh-seq.el @@ -73,10 +73,8 @@ (eval-when-compile (require 'mh-acros)) (mh-require-cl) -(require 'mh-e) -;; Shush the byte-compiler -(defvar tool-bar-mode) +(require 'mh-e) @@ -171,8 +169,7 @@ 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)))) -;; 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 @@ MESSAGE appears." (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) |