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

[Xavier Maillard]

   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.]

Yes, I did not change anything there. Git has added this for me,
I guess.

   > +(defun rmail-send-mail-at-point ()
   > +  "Edit a mail message to the recipient found at point."

   `M-x browse-url-at-point RET' already does this for me (in
   every mode).

Hum, it seems it does not for me using emacs -Q :

Debugger entered--Lisp error: (wrong-type-argument stringp 
browse-url-text-browser)
  start-process("lynxmailto:address@hidden"; nil "xterm" "-e" 
browse-url-text-browser "mailto:address@hidden";)
  apply(start-process ("lynxmailto:address@hidden"; nil "xterm" "-e" 
browse-url-text-browser "mailto:address@hidden";))
  browse-url-text-xterm("mailto:address@hidden"; nil)
  apply(browse-url-text-xterm "mailto:address@hidden"; nil)
  browse-url-default-browser("mailto:address@hidden"; nil)
  apply(browse-url-default-browser "mailto:address@hidden"; nil)
  browse-url("mailto:address@hidden"; nil)
  browse-url-at-point(nil)
  call-interactively(browse-url-at-point t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)

   I have `("^mailto:"; . browse-url-mail)' in `browse-url-browser-function'.

With my patch, there is no need to customize anything. Maybe we
should change the default value of `browse-url-browser-function' ?

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

Thank you for the notice. I will check in what I should conform
to by reading the RFC.

        Xavier
-- 
http://www.gnu.org
http://www.april.org
http://www.lolica.org