;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:46:51 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/mh-pick.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/mh-pick.el' was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÂÃ!‡" [provide mh-pick require mh-e] 2) #@45 Invoked in `mh-pick-mode' on a new pattern. (defvar mh-pick-mode-hook nil (#$ . 539)) #@30 Keymap for searching folder. (defvar mh-pick-mode-map (make-sparse-keymap) (#$ . 631)) (byte-code "ÀÁ!„ÂÁ B‡" [boundp mh-searching-folder nil current-load-list] 2) #@103 Search FOLDER for messages matching a pattern. Add the messages found to the sequence named `search'. (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 (#$ . 807) (list (mh-prompt-for-folder "Search" mh-current-folder t))]) (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 (quote mh-pick-mode) (quote mode-class) (quote special)) #@592 Mode for creating search templates in mh-e.\ After each field name, enter the pattern to search for. If a field's value does not matter for the search, leave it empty. To search the entire message, supply the pattern in the "body" of the template. Each non-empty field must be matched for a message to be selected. To effect a logical "or", use \[mh-search-folder] multiple times. 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. (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 (#$ . 1443) nil]) #@201 Find messages that match the qualifications in the current pattern buffer. Messages are searched for in the folder named in mh-searching-folder. Add the messages found to the sequence named `search'. (defalias 'mh-do-pick-search #[nil "À ‰Ã‰ \nŠË !ƒ- qˆÌÍ#C‚7Ð !ˆÑÃ)ÒÓ!ˆebˆƒhÔ\n!‰ƒhÕ Ö×Ø  ÙÚ!¯!#‰‰„DÒÛ!ˆ\fƒzÜ \"ˆ‚Ý !ˆÞÖ\"ˆß .‡" [buffer-name mh-searching-folder nil t new-buffer pattern finding-messages msgs range searching-buffer pattern-buffer get-buffer format "%d-%d" mh-first-msg-num mh-last-msg-num mh-make-folder ("all") message "Searching..." mh-next-pick-field mh-seq-from-command search mh-list-to-string "pick" "-list" mh-coalesce-msg-list "Searching...done" mh-scan-folder switch-to-buffer mh-add-msgs-to-seq delete-other-windows] 11 (#$ . 2294) nil]) (defalias 'mh-seq-from-command #[(folder seq seq-command) "À‰ÁŠÅ‹ˆqˆ Ÿ‰,‡" [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] 4]) (defalias '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]) (byte-code "À ÂÃ#ˆÀ ÄÅ#ˆÀ ÆÅ#ˆÀ ÇÅ#ˆÀ ÈÅ#ˆÀ ÉÅ#ˆÀ ÊÅ#ˆÀ ËÅ#ˆÀ ÌÅ#ˆÀ ÍÅ#ˆÀ ÎÅ#ˆÀ ÏÅ#ˆÀ ÐÅ#ˆÀ ÑÅ#ˆÀ ÒÅ#‡" [define-key mh-pick-mode-map "" mh-do-pick-search "" mh-to-field "" "" "" "" "" "" "b" "c" "d" "f" "r" "s" "t"] 4)