Function: message-mailto-1

message-mailto-1 is a byte-compiled function defined in message.el.gz.

Signature

(message-mailto-1 URL)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-mailto-1 (url)
  (let ((args (message-parse-mailto-url url)))
    (dolist (arg args)
      (unless (equal (car arg) "body")
	(message-position-on-field (capitalize (car arg)))
	(insert (string-replace
		 "\r\n" "\n"
		 (mapconcat #'identity (reverse (cdr arg)) ", ")))))
    (when (assoc "body" args)
      (message-goto-body)
      (dolist (body (cdr (assoc "body" args)))
	(insert body "\n")))
    (if (assoc "subject" args)
	(message-goto-body)
      (message-goto-subject))))