From b007e01c6c5937b052662cb64beca7b8422af5cb Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Tue, 12 Jul 2005 11:32:40 +0000 Subject: [PATCH] (mac-services-mail-selection, mac-services-mail-to): New functions. (mac-application-menu-map): Bind them. --- lisp/term/mac-win.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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) -- 2.39.2