Function: mh-insert-prefix-string

mh-insert-prefix-string is a byte-compiled function defined in mh-letter.el.gz.

Signature

(mh-insert-prefix-string MH-INS-STRING)

Documentation

Insert prefix string before each line in buffer.

The inserted letter is cited using sc-cite-original if mh-yank-behavior is one of supercite or autosupercite. Otherwise, simply insert MH-INS-STRING before each line.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-letter.el.gz
(defun mh-insert-prefix-string (mh-ins-string)
  "Insert prefix string before each line in buffer.
The inserted letter is cited using `sc-cite-original' if
`mh-yank-behavior' is one of `supercite' or `autosupercite'.
Otherwise, simply insert MH-INS-STRING before each line."
  (goto-char (point-min))
  (cond ((or (eq mh-yank-behavior 'supercite)
             (eq mh-yank-behavior 'autosupercite))
         (sc-cite-original))
        (mail-citation-hook
         (run-hooks 'mail-citation-hook))
        (t
         (or (bolp) (forward-line 1))
         (while (< (point) (point-max))
           (insert mh-ins-string)
           (forward-line 1))
         (goto-char (point-min)))))     ;leave point like sc-cite-original