[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/mac-win.el
diff -c emacs/lisp/term/mac-win.el:1.48 emacs/lisp/term/mac-win.el:1.49
*** emacs/lisp/term/mac-win.el:1.48     Mon Jul  4 16:49:23 2005
--- emacs/lisp/term/mac-win.el  Tue Jul 12 11:32:40 2005
***************
*** 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)