Function: mh-mh-quote-unescaped-sharp

mh-mh-quote-unescaped-sharp is a byte-compiled function defined in mh-mime.el.gz.

Signature

(mh-mh-quote-unescaped-sharp)

Documentation

Quote "#" characters that haven't been quoted for "mhbuild".

If the "#" character is present in the first column, but it isn't part of a MH-style directive then "mhbuild" gives an error. This function will quote all such characters.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
(defun mh-mh-quote-unescaped-sharp ()
  "Quote \"#\" characters that haven't been quoted for \"mhbuild\".
If the \"#\" character is present in the first column, but it isn't
part of a MH-style directive then \"mhbuild\" gives an error.
This function will quote all such characters."
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^#" nil t)
      (beginning-of-line)
      (unless (mh-mh-directive-present-p (point) (line-end-position))
        (insert "#"))
      (goto-char (line-end-position)))))