Function: mml-quote-region

mml-quote-region is an interactive and byte-compiled function defined in mml.el.gz.

Signature

(mml-quote-region BEG END)

Documentation

Quote the MML tags in the region.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml.el.gz
(defun mml-quote-region (beg end)
  "Quote the MML tags in the region."
  (interactive "r" mml-mode)
  (save-excursion
    (save-restriction
      ;; Temporarily narrow the region to defend from changes
      ;; invalidating END.
      (narrow-to-region beg end)
      (goto-char (point-min))
      ;; Quote parts.
      (while (re-search-forward
	      "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)" nil t)
	;; Insert ! after the #.
	(goto-char (+ (match-beginning 0) 2))
	(insert "!")))))