Function: mh-letter-skip-leading-whitespace-in-header-field

mh-letter-skip-leading-whitespace-in-header-field is an autoloaded and byte-compiled function defined in mh-utils.el.gz.

Signature

(mh-letter-skip-leading-whitespace-in-header-field)

Documentation

Skip leading whitespace in a header field.

If the header field doesn't have at least one space after the colon then a space character is added.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-utils.el.gz
;;;###mh-autoload
(defun mh-letter-skip-leading-whitespace-in-header-field ()
  "Skip leading whitespace in a header field.
If the header field doesn't have at least one space after the
colon then a space character is added."
  (let ((need-space t))
    (while (memq (char-after) '(?\t ?\ ))
      (forward-char)
      (setq need-space nil))
    (when need-space (insert " "))))