Re: [PATCH] New function to send a mail to the recipient at point

[Reiner Steib]

On Sat, Feb 23 2008, Xavier Maillard wrote:

> +2008-02-23  Xavier Maillard  <address@hidden>
> +
> +     * mail/rmail.el (rmail-send-mail-at-point): New function. Send an email
> +     to the recipient address at point.
[...]

> -So, the MIME support is turned off for the moment." 
> +So, the MIME support is turned off for the moment."

[Unrelated whitespace change.]

> +(defun rmail-send-mail-at-point ()
> +  "Edit a mail message to the recipient found at point."
> +  (interactive)
> +  (require 'thingatpt)
> +  (let ((to (thing-at-point 'email)))
> +    (if to
> +     (mail nil to)
> +      (error "No email found at point"))))

`M-x browse-url-at-point RET' already does this for me (in every mode).
I have `("^mailto:"; . browse-url-mail)' in `browse-url-browser-function'.

[BTW, your User-Agent header is not confirming to RFC 2616 or the
usefor drafts.]

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/