From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Cc: emacs-devel@gnu.org
Subject: Re: OS X: using emacs as default mailer?
Date: Wed, 29 Jun 2005 19:55:53 +0900 [thread overview]
Message-ID: <wl8y0tjuti.wl%mituharu@math.s.chiba-u.ac.jp> (raw)
In-Reply-To: <loom.20050628T022541-142@post.gmane.org>
>>>>> On Tue, 28 Jun 2005 00:30:45 +0000 (UTC), John Owens <john_owens@yahoo.com> 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 ----
<string>NSStringPboardType</string>
</array>
</dict>
+ <dict>
+ <key>NSKeyEquivalent</key>
+ <dict/>
+ <key>NSMenuItem</key>
+ <dict>
+ <key>default</key>
+ <string>Emacs/Send Selection</string>
+ </dict>
+ <key>NSMessage</key>
+ <string>mail-selection</string>
+ <key>NSPortName</key>
+ <string>Emacs</string>
+ <key>NSReturnTypes</key>
+ <array/>
+ <key>NSSendTypes</key>
+ <array>
+ <string>NSStringPboardType</string>
+ </array>
+ </dict>
+ <dict>
+ <key>NSKeyEquivalent</key>
+ <dict/>
+ <key>NSMenuItem</key>
+ <dict>
+ <key>default</key>
+ <string>Emacs/Send To</string>
+ </dict>
+ <key>NSMessage</key>
+ <string>mail-to</string>
+ <key>NSPortName</key>
+ <string>Emacs</string>
+ <key>NSReturnTypes</key>
+ <array/>
+ <key>NSSendTypes</key>
+ <array>
+ <string>NSStringPboardType</string>
+ </array>
+ </dict>
</array>
</dict>
</plist>
prev parent reply other threads:[~2005-06-29 10:55 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-06-28 0:30 OS X: using emacs as default mailer? John Owens
2005-06-28 2:00 ` Sean O'Rourke
2005-06-28 3:51 ` John Owens
2005-06-28 5:43 ` Sean O'Rourke
2005-06-28 5:47 ` Sean O'Rourke
2005-06-28 5:19 ` John Owens
2005-11-30 9:54 ` YAMAMOTO Mitsuharu
2005-06-29 10:55 ` YAMAMOTO Mitsuharu [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=wl8y0tjuti.wl%mituharu@math.s.chiba-u.ac.jp \
--to=mituharu@math.s.chiba-u.ac.jp \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.