Function: mh-pick-execute-search

mh-pick-execute-search is a byte-compiled function defined in mh-search.el.gz.

Signature

(mh-pick-execute-search FOLDER-PATH SEARCH-REGEXP)

Documentation

Execute pick.

Read "pick(1)" or the section Finding Messages with pick in the MH book to find out more about how to enter the criteria (see URL http://www.ics.uci.edu/~mh/book/mh/finpic.htm).

In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP is used to search.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
(defun mh-pick-execute-search (folder-path search-regexp)
  "Execute pick.

Read \"pick(1)\" or the section Finding Messages with pick in the
MH book to find out more about how to enter the criteria (see URL
`http://www.ics.uci.edu/~mh/book/mh/finpic.htm').

In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP
is used to search."
  (set-buffer (get-buffer-create mh-temp-index-buffer))
  (erase-buffer)
  (let ((folders
         (mh-folder-list (substring folder-path (length mh-user-path)))))
    (cl-loop for folder in folders do
             (setq folder (concat "+" folder))
             (insert folder "\n")
             (apply #'call-process (expand-file-name "pick" mh-progs)
                    nil '(t nil) nil folder "-list" search-regexp)))
  (goto-char (point-min)))