/usr/share/emacs/site-lisp/semi/mime-mac.el is in semi 1.14.7~0.20120428-22.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | ;;; mime-mac.el --- Playback processing module for Mac OS X
;; Copyright (C) 2010 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (Secretariat of Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'mime-play)
(defun mime-mac-save-and-play-with-open (entity situation)
(let ((filename
(mime-save-content entity situation)))
(call-process "open" nil nil nil filename)))
(defun mime-mac-save-and-play-with-preview (entity situation)
(let ((filename
(mime-save-content entity situation)))
(call-process "open" nil nil nil
"-a" "/Applications/Preview.app"
filename)))
;; (mime-add-condition
;; 'action
;; '((type . application)
;; (method . mime-mac-save-and-play-with-open))
;; 'strict)
;; (mime-add-condition
;; 'action
;; '((type . application)(subtype . pdf)
;; (method . mime-mac-save-and-play-with-preview))
;; 'strict)
;;; @ end
;;;
(provide 'mime-mac)
;;; mime-mac.el ends here
|