Function: mh-pick-next-result

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

Signature

(mh-pick-next-result)

Documentation

Return the next pick search result.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
(defun mh-pick-next-result ()
  "Return the next pick search result."
  (prog1
      (cl-block nil
        (when (eobp) (cl-return nil))
        (when (search-forward-regexp "^\\+" (line-end-position) t)
          (setq mh-index-pick-folder
                (buffer-substring-no-properties (line-beginning-position)
                                                (line-end-position)))
          (cl-return 'error))
        (unless (search-forward-regexp "^[1-9][0-9]*$" (line-end-position) t)
          (cl-return 'error))
        (list mh-index-pick-folder
              (string-to-number
               (buffer-substring-no-properties (line-beginning-position)
                                               (line-end-position)))
              nil))
    (forward-line)))