Function: mh-swish++-regexp-builder

mh-swish++-regexp-builder is a byte-compiled function defined in mh-search.el.gz.

Signature

(mh-swish++-regexp-builder REGEXP-LIST)

Documentation

Generate query for swish++.

REGEXP-LIST is an alist of fields and values.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
(defun mh-swish++-regexp-builder (regexp-list)
  "Generate query for swish++.
REGEXP-LIST is an alist of fields and values."
  (let ((regexp ""))
    (dolist (elem regexp-list)
      (when (cdr elem)
        (setq regexp (concat regexp " and "
                             (if (car elem) "(" "")
                             (if (car elem) (symbol-name (car elem)) "")
                             (if (car elem) " = " "")
                             (mh-swish++-print-regexp (cdr elem))
                             (if (car elem) ")" "")))))
    (substring regexp 4)))