Commit 04f6a2d1 authored by Bill Wohler's avatar Bill Wohler
Browse files

* 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.
parent 23847cd6
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> 2006-01-08 Bill Wohler <wohler@newt.com>
Removed code that was marked as Emacs 20 compatible that was Removed code that was marked as Emacs 20 compatible that was
......
...@@ -149,7 +149,8 @@ Display the results only if something went wrong." ...@@ -149,7 +149,8 @@ Display the results only if something went wrong."
(re-search-forward "^rmf: " (point-max) t)) (re-search-forward "^rmf: " (point-max) t))
(display-buffer mh-temp-buffer))) (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 ;;;###mh-autoload
(defun mh-list-folders () (defun mh-list-folders ()
......
...@@ -73,7 +73,8 @@ ...@@ -73,7 +73,8 @@
(char-to-string key) (char-to-string key)
"] inc " folder " folder\n")))) "] 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 () (defun mh-inc-spool-make ()
"Make all commands and defines keys for contents of `mh-inc-spool-list'." "Make all commands and defines keys for contents of `mh-inc-spool-list'."
......
...@@ -297,7 +297,8 @@ This assumes that a temporary buffer is setup." ...@@ -297,7 +297,8 @@ This assumes that a temporary buffer is setup."
(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) (defvar mh-image-load-path-called-flag nil)
......
...@@ -591,7 +591,8 @@ automatically." ...@@ -591,7 +591,8 @@ automatically."
(mml-insert-empty-tag 'part 'type type 'filename file (mml-insert-empty-tag 'part 'type type 'filename file
'disposition dispos 'description description))) '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) (defun mh-secure-message (method mode &optional identity)
"Add tag to encrypt or sign message. "Add tag to encrypt or sign message.
......
...@@ -169,7 +169,8 @@ you want to delete the messages, use \"\\[universal-argument] ...@@ -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)) (when (and (eq sequence mh-unseen-seq) (mh-speed-flists-active-p))
(apply #'mh-speed-flists t folders-changed)))) (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 ;;;###mh-autoload
(defun mh-list-sequences () (defun mh-list-sequences ()
......
...@@ -2606,7 +2606,8 @@ RAISE-ERROR is non-nil, in which case an error is signaled if ...@@ -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-exec-cmd-quiet nil "mhparam" "-components" component)
(mh-get-profile-field (concat 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 () (defun mh-exchange-point-and-mark-preserving-active-mark ()
"Put the mark where point is now, and point where the mark is now. "Put the mark where point is now, and point where the mark is now.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment