Function: mh-msg-num-width

mh-msg-num-width is an autoloaded and byte-compiled function defined in mh-scan.el.gz.

Signature

(mh-msg-num-width FOLDER)

Documentation

Return the width of the largest message number in this FOLDER.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-scan.el.gz
;;;###mh-autoload
(defun mh-msg-num-width (folder)
  "Return the width of the largest message number in this FOLDER."
  (or mh-progs (mh-find-path))
  (let ((tmp-buffer (get-buffer-create mh-temp-buffer))
        (width 0))
    (with-current-buffer tmp-buffer
      (erase-buffer)
      (apply #'call-process
             (expand-file-name mh-scan-prog mh-progs) nil '(t nil) nil
             (list folder "last" "-format" "%(msg)"))
      (goto-char (point-min))
      (if (re-search-forward mh-scan-msg-number-regexp nil 0 1)
          (setq width (length (buffer-substring
                               (match-beginning 1) (match-end 1))))))
    width))