Function: mh-namazu-next-result

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

Signature

(mh-namazu-next-result)

Documentation

Get the next result from namazu output.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
(defun mh-namazu-next-result ()
  "Get the next result from namazu output."
  (prog1
      (cl-block nil
        (when (eobp) (cl-return nil))
        (let ((file-name (buffer-substring-no-properties
                          (point) (mh-line-end-position))))
          (unless (equal (string-match mh-namazu-folder file-name) 0)
            (cl-return 'error))
          (unless (file-exists-p file-name)
            (cl-return 'error))
          (string-match mh-user-path file-name)
          (let* ((folder/msg (substring file-name (match-end 0)))
                 (mark (mh-search-from-end ?/ folder/msg)))
            (unless mark (cl-return 'error))
            (list (format "+%s" (substring folder/msg 0 mark))
                  (let ((n (ignore-errors (string-to-number
                                           (substring folder/msg (1+ mark))))))
                    (or n (cl-return 'error)))
                  nil))))
    (forward-line)))