Re: Good things to put in mailcap-mime-data for NT?

[Rod Whitby <list.ding@rwhitby.net>]

Jonas Steverud <d4jonas@dtek.chalmers.se> writes:
> Anyone that has some nice elisp/data to add to mailcap-mime-data for
> usage on WinNT? I have a .mailcap on h: but it's also ~ on our
> Solaris-system so I can't add anything Windows-specific stuff there (I
> know I can have tests in .mailcap but I want to avoid it).
> 
> As of now I can't view e.g. MS Word files without having to save them
> and then open them in Word.

What I do on XEmacs/NT to get around the whole problem of deciding
which application to launch is to get Windows to decide for me:

[This might be a useful function to add to mailcap.el ...]

(defun mailcap-mswindows-shell-execute ()
  (goto-char (point-min))
  (unwind-protect
      (let* ((dir (make-temp-name (expand-file-name "emm." mm-tmp-directory)))
	     (filename (mail-content-type-get
			(mm-handle-disposition handle) 'filename))
	     file buffer)
	;; We create a private sub-directory where we store our files.
	(make-directory dir)
	(set-file-modes dir 448)
	(if filename
	    (setq file (expand-file-name (file-name-nondirectory filename)
					 dir))
	  (setq file (make-temp-name (expand-file-name "mm." dir))))
	(message "Saving file %s ..." file)
	(let ((coding-system-for-write mm-binary-coding-system))
	  (write-region (point-min) (point-max) file nil 'nomesg))
	(message "Saving file %s ... done." file)
	(message "Loading application ...")
	(mswindows-shell-execute "open" file)    
	(message "Loading application ... done.")
	'external))
  (progn
    (ignore-errors (delete-file file))
    (ignore-errors (delete-directory
		    (file-name-directory file)))
    (ignore-errors (kill-buffer (current-buffer)))))

(mapcar
 (lambda (arg) (mailcap-add arg 'mailcap-mswindows-shell-execute))
 (list
  "application/dvi"
  "application/msword"
  "application/octet-stream"
  "application/pdf"
  "application/postscript"
  "application/ppt"
  "application/vnd.ms-excel"
  "application/vnd.ms-powerpoint"
  "application/x-mspowerpoint"
  "application/x-msword"
  "application/x-powerpoint"
  "application/x-zip-compressed"
  "application/zip"
  ))


-- 
-- Rod Whitby, Snr Staff Engr, Electronic Design Automation --
-- Motorola Australia Software Centre - Adelaide, Australia --
-- Phone: +61 8 8168 3526, Fax: +61 8 8168 3501, <GMT+9:30> --