From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Tue, 12 Jul 2005 11:32:40 +0000 (+0000)
Subject: (mac-services-mail-selection, mac-services-mail-to): New functions.
X-Git-Tag: emacs-pretest-22.0.90~8219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b007e01c6c5937b052662cb64beca7b8422af5cb;p=emacs.git

(mac-services-mail-selection, mac-services-mail-to): New functions.
(mac-application-menu-map): Bind them.
---

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 22bd55e5943..124a7898b13 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1377,6 +1377,17 @@ in `selection-converter-alist', which see."
   (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,6 +1404,10 @@ in `selection-converter-alist', which see."
   '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)