Function: mml-insert-tag

mml-insert-tag is an autoloaded and byte-compiled function defined in mml.el.gz.

Signature

(mml-insert-tag NAME &rest PLIST)

Documentation

Insert an MML tag described by NAME and PLIST.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml.el.gz
(defun mml-insert-tag (name &rest plist)
  "Insert an MML tag described by NAME and PLIST."
  (when (symbolp name)
    (setq name (symbol-name name)))
  (insert "<#" name)
  (while plist
    (let ((key (pop plist))
	  (value (pop plist)))
      (when value
	;; Quote VALUE if it contains suspicious characters.
	(when (string-match "[][\"'\\~/*;()<>= \t\n[:multibyte:]]" value)
	  (setq value (with-output-to-string
			(let (print-escape-nonascii)
			  (prin1 value)))))
	(insert (format " %s=%s" key value)))))
  (insert ">\n"))