Mercurial > hg > xemacs-beta

comparison lisp/w3/mm.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
726 ((and (listp test) ; List to be eval'd 726 ((and (listp test) ; List to be eval'd
727 (symbolp (car test))) 727 (symbolp (car test)))
728 (eval test)) 728 (eval test))
729 (t 729 (t
730 (setq test (mm-unescape-mime-test test type-info) 730 (setq test (mm-unescape-mime-test test type-info)
731 test (list "/bin/sh" nil nil nil "-c" test) 731 test (list shell-file-name nil nil nil shell-command-switch test)
732 status (apply 'call-process test)) 732 status (apply 'call-process test))
733 (= 0 status))))) 733 (= 0 status)))))
734 734
735 (defun mm-add-mailcap-entry (major minor info) 735 (defun mm-add-mailcap-entry (major minor info)
736 (let ((old-major (assoc major mm-mime-data))) 736 (let ((old-major (assoc major mm-mime-data)))
1040 (setq comp (mm-unescape-mime-test (or comp ctyp) info)) 1040 (setq comp (mm-unescape-mime-test (or comp ctyp) info))
1041 (while (string-match "\\([^\\\\]\\)%s" comp) 1041 (while (string-match "\\([^\\\\]\\)%s" comp)
1042 (setq comp (concat (substring comp 0 (match-end 1)) fnam 1042 (setq comp (concat (substring comp 0 (match-end 1)) fnam
1043 (substring comp (match-end 0) nil)) 1043 (substring comp (match-end 0) nil))
1044 usef t)) 1044 usef t))
1045 (call-process (or shell-file-name 1045 (call-process shell-file-name nil
1046 (getenv "ESHELL") (getenv "SHELL") "/bin/sh") 1046 (if usef nil buff)
1047 nil (if usef nil buff) nil "-c" comp) 1047 nil shell-command-switch comp)
1048 (setq retval 1048 (setq retval
1049 (concat 1049 (concat
1050 (if typeit (concat "Content-type: " type "\r\n\r\n") "") 1050 (if typeit (concat "Content-type: " type "\r\n\r\n") "")
1051 (if usef 1051 (if usef
1052 (save-excursion 1052 (save-excursion