shr-mailto (was Re: `W D D' in shr rendered article)

[Katsumi Yamaoka <yamaoka@jpl.org>]

Lars Magne Ingebrigtsen wrote:
> Katsumi Yamaoka <yamaoka@jpl.org> writes:
>>> +      (gnus-url-mailto url))
>>
>> Supposing the use of Gnus resources in shr.el is ok, how about
[...]

> Uhm.  That was, I think, an error on my part.  :-)

> I think it should just call Message directly instead of using the Gnus
> function...  I think...  or...  er...  Hm.

How about this generic one?

--8<---------------cut here---------------start------------->8---
(autoload 'rfc2368-parse-mailto-url "rfc2368")

(defun shr-mailto (url)
  (let* ((info (rfc2368-parse-mailto-url url))
	 (to (assoc "To" info))
	 (subject (assoc "Subject" info))
	 (body (assoc "Body" info)))
    (compose-mail (cdr to) (cdr subject)
		  (delq to (delq subject (delq body info))))
    (when body
      (insert (replace-regexp-in-string "\r\n" "\n" (cdr body)))
      (unless (bolp) (insert "\n")))))
--8<---------------cut here---------------end--------------->8---

This allows a user to use her favorite mailer.  Gnus users had
better have: (setq mail-user-agent 'gnus-user-agent)