Function: mm-url-remove-markup

mm-url-remove-markup is a byte-compiled function defined in mm-url.el.gz.

Signature

(mm-url-remove-markup)

Documentation

Remove all HTML markup, leaving just plain text.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-url.el.gz
(defun mm-url-remove-markup ()
  "Remove all HTML markup, leaving just plain text."
  (goto-char (point-min))
  (while (search-forward "<!--" nil t)
    (delete-region (match-beginning 0)
                   (or (search-forward "-->" nil t)
                       (point-max))))
  (goto-char (point-min))
  (while (re-search-forward "<[^>]+>" nil t)
    (replace-match "" t t)))