From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: YAMAMOTO Mitsuharu Newsgroups: gmane.emacs.devel Subject: Re: OS X: using emacs as default mailer? Date: Wed, 29 Jun 2005 19:55:53 +0900 Organization: Faculty of Science, Chiba University Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=US-ASCII X-Trace: sea.gmane.org 1120044639 14615 80.91.229.2 (29 Jun 2005 11:30:39 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 29 Jun 2005 11:30:39 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jun 29 13:30:29 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DnalM-0001dY-17 for ged-emacs-devel@m.gmane.org; Wed, 29 Jun 2005 13:29:52 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DnatN-0001a8-Um for ged-emacs-devel@m.gmane.org; Wed, 29 Jun 2005 07:38:10 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DnaIW-000850-N5 for emacs-devel@gnu.org; Wed, 29 Jun 2005 07:00:05 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DnaII-00081G-5x for emacs-devel@gnu.org; Wed, 29 Jun 2005 06:59:54 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DnaIF-0007yL-GA for emacs-devel@gnu.org; Wed, 29 Jun 2005 06:59:47 -0400 Original-Received: from [133.82.132.2] (helo=mathmail.math.s.chiba-u.ac.jp) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DnaJB-0004Pj-6Y for emacs-devel@gnu.org; Wed, 29 Jun 2005 07:00:45 -0400 Original-Received: from church.math.s.chiba-u.ac.jp (church [133.82.132.36]) by mathmail.math.s.chiba-u.ac.jp (Postfix) with ESMTP id 848AA2CB5; Wed, 29 Jun 2005 19:55:53 +0900 (JST) Original-To: John Owens In-Reply-To: User-Agent: Wanderlust/2.14.0 (Africa) SEMI/1.14.6 (Maruoka) FLIM/1.14.6 (Marutamachi) APEL/10.6 Emacs/22.0.50 (sparc-sun-solaris2.8) MULE/5.0 (SAKAKI) 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:39887 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:39887 >>>>> On Tue, 28 Jun 2005 00:30:45 +0000 (UTC), John Owens said: > I'd like to use emacs as my default mailer in OS X. When I click on > a mailto: link, I'd like gnuclient to call compose-mail. Handling an apple event is already shown, so here's an alternative way using the "Services" menu. Unfortunately it is not as easy as clicking a mailto: link. YAMAMOTO Mitsuharu mituharu@math.s.chiba-u.ac.jp Index: lisp/term/mac-win.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/term/mac-win.el,v retrieving revision 1.47 diff -c -r1.47 mac-win.el *** lisp/term/mac-win.el 16 May 2005 11:27:56 -0000 1.47 --- lisp/term/mac-win.el 29 Jun 2005 10:36:09 -0000 *************** *** 1377,1382 **** --- 1377,1393 ---- (save-buffer) ; It pops up the save dialog. ) + (defun mac-services-mail-selection () + (interactive) + (compose-mail) + (rfc822-goto-eoh) + (forward-line 1) + (insert (x-selection-value mac-services-selection) "\n")) + + (defun mac-services-mail-to () + (interactive) + (compose-mail (x-selection-value mac-services-selection))) + (defun mac-services-insert-text () (interactive) (let ((text (x-selection-value mac-services-selection))) *************** *** 1393,1398 **** --- 1404,1413 ---- 'mac-services-open-file) (define-key mac-application-menu-map [services perform open-selection] 'mac-services-open-selection) + (define-key mac-application-menu-map [services perform mail-selection] + 'mac-services-mail-selection) + (define-key mac-application-menu-map [services perform mail-to] + 'mac-services-mail-to) (define-key mac-application-menu-map [services paste] 'mac-services-insert-text) (define-key mac-application-menu-map [preferences] 'customize) Index: mac/Emacs.app/Contents/Info.plist =================================================================== RCS file: /cvsroot/emacs/emacs/mac/Emacs.app/Contents/Info.plist,v retrieving revision 1.5 diff -c -r1.5 Info.plist *** mac/Emacs.app/Contents/Info.plist 24 Apr 2005 06:00:57 -0000 1.5 --- mac/Emacs.app/Contents/Info.plist 29 Jun 2005 10:36:09 -0000 *************** *** 75,80 **** --- 75,118 ---- NSStringPboardType + + NSKeyEquivalent + + NSMenuItem + + default + Emacs/Send Selection + + NSMessage + mail-selection + NSPortName + Emacs + NSReturnTypes + + NSSendTypes + + NSStringPboardType + + + + NSKeyEquivalent + + NSMenuItem + + default + Emacs/Send To + + NSMessage + mail-to + NSPortName + Emacs + NSReturnTypes + + NSSendTypes + + NSStringPboardType + +