X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-conf.el;h=67f613bd003f5297f01ce0ff6eea46d528d9ba2a;hb=fd286d9c7f55d1b60bbbae790e3887d7e7ee28b8;hp=84fed4078f3ff6cd24a604802ebe93766e551056;hpb=99783ea757d4de0e2e1f6905e2a98d58cabe9979;p=elisp%2Fflim.git

diff --git a/mime-conf.el b/mime-conf.el
index 84fed40..67f613b 100644
--- a/mime-conf.el
+++ b/mime-conf.el
@@ -1,6 +1,6 @@
 ;;; mime-conf.el --- mailcap parser and MIME playback configuration
 
-;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000,2004 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Created: 1997-06-27
@@ -22,8 +22,8 @@
 
 ;; 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -176,10 +176,8 @@ order.  Otherwise result is not sorted."
 
 
 ;;;###autoload
-(defcustom mime-mailcap-file "~/.mailcap"
-  "*File name of user's mailcap file."
-  :group 'mime
-  :type 'file)
+(defvar mime-mailcap-file "~/.mailcap"
+  "*File name of user's mailcap file.")
 
 ;;;###autoload
 (defun mime-parse-mailcap-file (&optional filename order)
@@ -224,7 +222,7 @@ may be:
 			    (error "'filename is not specified in situation.")
 			  (setq dest (concat dest
 					     (substring mtext p (1- i))
-					     file)
+					     (shell-quote-argument file))
 				i (1+ i)
 				p i)
 			  )))