From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Xavier Maillard Newsgroups: gmane.emacs.devel Subject: Re: [PATCH] New function to send a mail to the recipient at point Date: Tue, 26 Feb 2008 03:00:09 +0100 Organization: GNU's Not UNIX! Message-ID: <200802260200.m1Q209gO006811@localhost.localdomain> References: <200802232244.m1NMiK5I014327@localhost.localdomain> Reply-To: Xavier Maillard NNTP-Posting-Host: lo.gmane.org X-Trace: ger.gmane.org 1203993335 19256 80.91.229.12 (26 Feb 2008 02:35:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 26 Feb 2008 02:35:35 +0000 (UTC) Cc: emacs-devel@gnu.org To: Reiner Steib Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Feb 26 03:36:00 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JTpfg-0006MU-7K for ged-emacs-devel@m.gmane.org; Tue, 26 Feb 2008 03:35:56 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JTpfA-0003Iv-At for ged-emacs-devel@m.gmane.org; Mon, 25 Feb 2008 21:35:24 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JTpeE-0002RD-Qv for emacs-devel@gnu.org; Mon, 25 Feb 2008 21:34:26 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JTpeC-0002Oi-Eb for emacs-devel@gnu.org; Mon, 25 Feb 2008 21:34:24 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JTpeC-0002OB-2A for emacs-devel@gnu.org; Mon, 25 Feb 2008 21:34:24 -0500 Original-Received: from master.uucpssh.org ([193.218.105.66]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JTpeB-0007w7-GA for emacs-devel@gnu.org; Mon, 25 Feb 2008 21:34:23 -0500 Original-Received: by master.uucpssh.org (Postfix, from userid 10) id C4557C79E4; Tue, 26 Feb 2008 03:32:40 +0100 (CET) Original-Received: from localhost.localdomain (IDENT:1000@localhost [127.0.0.1]) by localhost.localdomain (8.14.1/8.13.8) with ESMTP id m1Q20HBF006827; Tue, 26 Feb 2008 03:00:20 +0100 Original-Received: (from xma@localhost) by localhost.localdomain (8.14.1/8.13.8/Submit) id m1Q209gO006811; Tue, 26 Feb 2008 03:00:09 +0100 In-reply-to: (message from Reiner Steib on Sun, 24 Feb 2008 10:05:40 +0100) User-Agent: Rmail in GNU Emacs 23.0.60.2 on GNU/Linux Jabber-ID: xma01@jabber.fr X-uucpssh: Found to be clean X-uucpssh-SpamCheck: not spam, SpamAssassin (not cached, score=-1.441, required 4.6, autolearn=not spam, ALL_TRUSTED -1.44, SPF_HELO_PASS -0.00) X-uucpssh-From: xma@gnu.org X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:90463 Archived-At: On Sat, Feb 23 2008, Xavier Maillard wrote: > +2008-02-23 Xavier Maillard > + > + * 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:foo@bar.com" nil "xterm" "-e" browse-url-text-browser "mailto:foo@bar.com") apply(start-process ("lynxmailto:foo@bar.com" nil "xterm" "-e" browse-url-text-browser "mailto:foo@bar.com")) browse-url-text-xterm("mailto:foo@bar.com" nil) apply(browse-url-text-xterm "mailto:foo@bar.com" nil) browse-url-default-browser("mailto:foo@bar.com" nil) apply(browse-url-default-browser "mailto:foo@bar.com" nil) browse-url("mailto:foo@bar.com" 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