Function: mh-variant-gnu-mh-info

mh-variant-gnu-mh-info is a byte-compiled function defined in mh-e.el.gz.

Signature

(mh-variant-gnu-mh-info DIR)

Documentation

Return info for GNU mailutils MH variant in DIR.

This assumes that a temporary buffer is set up.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-e.el.gz
(defun mh-variant-gnu-mh-info (dir)
  "Return info for GNU mailutils MH variant in DIR.
This assumes that a temporary buffer is set up."
  ;; Sample '-version' outputs:
  ;; mhparam (GNU mailutils 0.3.2)
  ;; install-mh (GNU Mailutils 2.2)
  ;; install-mh (GNU Mailutils 3.7)
  (let ((install-mh (expand-file-name "install-mh" dir)))
    (when (mh-file-command-p install-mh)
      (erase-buffer)
      (call-process install-mh nil '(t nil) nil "-version")
      (goto-char (point-min))
      (when (search-forward-regexp "install-mh (\\(GNU [Mm]ailutils \\S +\\))"
                                   nil t)
        (let ((version (match-string 1))
              (mh-progs dir))
          `(,version
            (variant        gnu-mh)
            (mh-lib-progs   ,(mh-profile-component "libdir"))
            (mh-lib         ,(mh-profile-component "etcdir"))
            (mh-progs       ,dir)
            (flists         ,(file-exists-p
                              (expand-file-name "flists" dir)))))))))