Function: mh-thread-current-indentation-level

mh-thread-current-indentation-level is a byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-current-indentation-level)

Documentation

Find the number of spaces by which current message is indented.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
;;; Support Routines

(defun mh-thread-current-indentation-level ()
  "Find the number of spaces by which current message is indented."
  (save-excursion
    (let ((address-start-offset (+ mh-cmd-note mh-scan-date-flag-width
                                   mh-scan-date-width 1))
          (level 0))
      (beginning-of-line)
      (forward-char address-start-offset)
      (while (char-equal (char-after) ? )
        (cl-incf level)
        (forward-char))
      level)))