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>
Removed code that was marked as Emacs 20 compatible that was
......
......@@ -149,7 +149,8 @@ Display the results only if something went wrong."
(re-search-forward "^rmf: " (point-max) t))
(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
(defun mh-list-folders ()
......
......@@ -73,7 +73,8 @@
(char-to-string key)
"] 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 ()
"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."
(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)
......
......@@ -591,7 +591,8 @@ automatically."
(mml-insert-empty-tag 'part 'type type 'filename file
'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)
"Add tag to encrypt or sign message.
......
......@@ -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))
(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
(defun mh-list-sequences ()
......
......@@ -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-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 ()
"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