Lines Matching +defs:parse +defs:result
61 (defvar mh-search-next-result-function nil
62 "Function to parse the next line of output.
247 (let ((result-count 0)
271 (loop for next-result = (funcall mh-search-next-result-function)
272 while next-result
273 do (unless (eq next-result 'error)
274 (unless (gethash (car next-result) folder-results-map)
275 (setf (gethash (car next-result) folder-results-map)
277 (setf (gethash (cadr next-result)
278 (gethash (car next-result) folder-results-map))
295 do (incf result-count)
296 (setf (gethash result-count origin-map)
430 (mh-search-next-result-function 'mh-mairix-next-result)
641 (let* ((regexp-list (mh-pick-parse-search-buffer))
654 (defun mh-pick-parse-search-buffer ()
677 (mh-index-parse-search-regexp
684 (defun mh-index-parse-search-regexp (input-string)
685 "Construct parse tree for INPUT-STRING.
752 (let ((result ())
759 (push current result))
761 (push "and" result)
765 (push current result)
768 (nreverse result)))
793 mh-swish++-binary mh-swish++-execute-search mh-swish++-next-result
796 mh-swish-binary mh-swish-execute-search mh-swish-next-result nil)
798 mh-mairix-binary mh-mairix-execute-search mh-mairix-next-result
801 mh-namazu-binary mh-namazu-execute-search mh-namazu-next-result nil)
803 mh-pick-binary mh-pick-execute-search mh-pick-next-result
806 mh-grep-binary mh-grep-execute-search mh-grep-next-result nil))
813 `mh-search-next-result-function' are set according to the first
830 (setq mh-search-next-result-function (nth 3 current))
891 (defalias 'mh-swish++-next-result 'mh-swish-next-result)
982 (defun mh-swish-next-result ()
983 "Get the next result from swish output."
1059 (defun mh-mairix-next-result ()
1060 "Return next result from mairix output."
1092 (let ((result ()))
1114 result)))
1115 result))
1126 result next-factor)
1127 (setq result (pop conjuncts))
1130 (setq result (let ((res ()))
1131 (dolist (t1 (cdr result))
1135 result))
1196 (defun mh-namazu-next-result ()
1197 "Get the next result from namazu output."
1245 (defun mh-pick-next-result ()
1246 "Return the next pick search result."
1273 (let ((result ()))
1276 (setq result `(,@result "-and" "-lbrace"
1291 (cdr result)))
1328 (defun mh-grep-next-result ()
1329 "Read the next result.
1372 (let ((result-table (make-hash-table :test #'equal)))
1377 result-table)))
1378 (loop for x being the hash-keys of result-table
1379 collect (cons x (nreverse (gethash x result-table)))))))
1454 the desired result. Before deleting the messages we make sure