summaryrefslogtreecommitdiff
path: root/lisp/mh-e/mh-search.el
diff options
context:
space:
mode:
authorBill Wohler <wohler@newt.com>2011-07-03 19:17:42 -0700
committerBill Wohler <wohler@newt.com>2011-07-03 19:17:42 -0700
commit54a5db74a373f36180e336e594d9b16154386dd8 (patch)
tree6c0138cbbf417674e3aa230d0002fbf04c245bb8 /lisp/mh-e/mh-search.el
parenteb28a31248c9eccc0499060284c746bcd38a0c36 (diff)
downloademacs-54a5db74a373f36180e336e594d9b16154386dd8.tar.gz
* mh-acros.el, mh-comp.el, mh-e.el, mh-folder.el, mh-letter.el:
* mh-mime.el, mh-search.el, mh-seq.el: Shush XEmacs compiler in mh-do-in-xemacs block.
Diffstat (limited to 'lisp/mh-e/mh-search.el')
-rw-r--r--lisp/mh-e/mh-search.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index a90a26ab2a4..1e764291f5d 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -321,7 +321,8 @@ folder containing the index search results."
count (> (hash-table-count msg-hash) 0)))))))
;; Shush compiler.
-(defvar pick-folder) ; XEmacs
+(mh-do-in-xemacs
+ (defvar pick-folder))
(defun mh-search-folder (folder window-config)
"Search FOLDER for messages matching a pattern.
@@ -401,8 +402,9 @@ or nothing to search all folders."
(mh-index-sequenced-messages folders mh-tick-seq))
;; Shush compiler.
-(defvar mh-mairix-folder) ; XEmacs
-(defvar mh-flists-search-folders) ; XEmacs
+(mh-do-in-xemacs
+ (defvar mh-mairix-folder)
+ (defvar mh-flists-search-folders))
;;;###mh-autoload
(defun mh-index-sequenced-messages (folders sequence)
@@ -1442,7 +1444,8 @@ being the list of messages originally from that folder."
mh-index-data)
;; Shush compiler
-(defvar mh-speed-flists-inhibit-flag) ; XEmacs
+(mh-do-in-xemacs
+ (defvar mh-speed-flists-inhibit-flag))
;;;###mh-autoload
(defun mh-index-execute-commands ()