;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Mar 15 01:43:46 1994
;;; from file /home/fsf/rms/e19/lisp/mh-pick.el
;;; emacs version 19.22.85.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/home/fsf/rms/e19/lisp/mh-pick.el' was compiled for Emacs 19"))

(byte-code "ÀÁ!ˆÂÃ!‡" [provide mh-pick require mh-e] 2)
(defvar mh-pick-mode-map (make-sparse-keymap) "\
Keymap for searching folder.")
(defvar mh-pick-mode-hook nil "\
Invoked in `mh-pick-mode' on a new pattern.")
(defvar mh-searching-folder nil "\
Folder this pick is searching.")
(defalias 'mh-search-folder #[(folder) "ÀÁ!ˆÂ ÃU„ ÄÅ!„ Æ ˆ‚ ÇÈ!ˆ	‰\n‡" [switch-to-buffer-other-window "pick-pattern" buffer-size 0 y-or-n-p "Reuse pattern? " mh-make-pick-template message "" folder mh-searching-folder] 2 "\
Search FOLDER for messages matching a pattern." (list (mh-prompt-for-folder "Search" mh-current-folder t))])
(byte-code "ÀÁÂ\"ˆÃÄÅÆ#‡" [defalias mh-make-pick-template #[nil "À ˆÁÂÃÄÅÆ±ˆÇ ˆebˆÈ‡" [erase-buffer "From: \n" "To: \n" "Cc: \n" "Date: \n" "Subject: \n" "---------\n" mh-pick-mode nil] 6] put mh-pick-mode mode-class special] 4)
(defalias 'mh-pick-mode #[nil "À ˆÁÂ!ˆÃ\f!ˆÅÇÈ!ˆÉÊ!‡" [kill-all-local-variables make-local-variable mh-searching-folder use-local-map mh-pick-mode-map mh-pick-mode major-mode mh-set-mode-name "MH-Pick" run-hooks mh-pick-mode-hook] 2 "\
Mode for creating search templates in mh-e.\\<mh-pick-mode-map>
After each field name, enter the pattern to search for.  To search
the entire message, supply the pattern in the \"body\" of the template.
When you have finished, type  \\[mh-do-pick-search]  to do the search.
\\{mh-pick-mode-map}
Turning on mh-pick-mode calls the value of the variable mh-pick-mode-hook
if that value is non-nil." nil])
(defalias 'mh-do-pick-search #[nil "À 	Â‰‰‰ŠÉ!ƒ( qˆÊË\f#‚2 Î!ˆÏÐ)ÑÒ!ˆebˆÓ!‰ƒ\\ ÔÕÖ\fB×ØÙ¯¤#Ø‚: ÑÚ!ˆƒm Û\"ˆ‚r Ü!ˆÝ ˆÞÕß T#.‡" [buffer-name mh-searching-folder nil new-buffer pattern msgs range searching-buffer pattern-buffer get-buffer format "%d-%d" mh-first-msg-num mh-last-msg-num mh-make-folder "all" t message "Searching..." mh-next-pick-field mh-seq-from-command search "pick" "-sequence" "search" "-list" "Searching...done" mh-scan-folder switch-to-buffer delete-other-windows mh-notate-seq 37 mh-cmd-note] 9 "\
Find messages that match the qualifications in the current pattern buffer.
Messages are searched for in the folder named in mh-searching-folder.
Add messages found to the sequence named `search'." nil])
(byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÅÇÈ#ˆÅÉÊ#ˆÅËÊ#ˆÅÌÊ#ˆÅÍÊ#ˆÅÎÊ#ˆÅÏÊ#ˆÅÐÊ#ˆÅÑÊ#ˆÅÒÊ#ˆÅÓÊ#ˆÅÔÕ#‡" [defalias mh-seq-from-command #[(folder seq seq-command) "À‰ÁŠÅ‹ˆqˆŸÇ\"	B	,‡" [nil t case-fold-search msgs msg ((byte-code "ÀÁÂ#Ä=ƒ  Å @‰ƒ  BÈyˆ‚\n Â‡" [apply mh-exec-cmd-quiet nil seq-command 0 mh-read-msg-list msg msgs 1] 4)) folder mh-make-seq seq mh-seq-list] 3] mh-next-pick-field #[(buffer) "qˆÁmƒ Ã‚[ ÄÅÃÁ#ƒ3 ÆÇÈ”È•{—\"	Ê”Ê•{Èyˆ	*D‚[ ÄÌÃÁ#ƒZ Èuˆ`d{‰GÎV…V Ïš?…V ÐD)‚[ Ã)‡" [buffer t case-fold-search nil re-search-forward "^\\([a-z][^: 	\n]*\\):[ 	]*\\([a-z0-9].*\\)$" format "--%s" 1 component 2 pat "^-*$" body 0 "\n" "-search"] 5] define-key mh-pick-mode-map "" mh-do-pick-search "" mh-to-field "" "" "" "" "b" "c" "f" "s" "t" "" mh-check-whom] 4)