Function: mh-thread-add-spaces

mh-thread-add-spaces is an autoloaded and byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-add-spaces COUNT)

Documentation

Add COUNT spaces to each scan line in mh-thread-scan-line-map.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
;;;###mh-autoload
(defun mh-thread-add-spaces (count)
  "Add COUNT spaces to each scan line in `mh-thread-scan-line-map'."
  (let ((spaces (format (format "%%%ss" count) "")))
    (while (not (eobp))
      (let* ((msg-num (mh-get-msg-num nil))
             (old-line (nth 3 (gethash msg-num mh-thread-scan-line-map))))
        (when (numberp msg-num)
          (setf (gethash msg-num mh-thread-scan-line-map)
                (mh-thread-parse-scan-line (format "%s%s" spaces old-line)))))
      (forward-line 1))))