-(defun mime-view-filter-for-application/postscript (ctype params encoding)
- (let* ((beg (point-min)) (end (point-max))
- (file-base
- (make-temp-name (expand-file-name "tm" mime-temp-directory)))
- (ps-file (concat file-base ".ps"))
- (gif-file (concat file-base ".gif"))
- )
- (remove-text-properties beg end '(face nil))
- (message "Decoding Postscript...")
- (mime-decode-region beg end encoding)
- (write-region (point-min)(point-max) ps-file)
- (message "Decoding Postscript...")
- (delete-region (point-min)(point-max))
- (call-process mime-view-ps-to-gif-command nil nil nil ps-file)
- (set-extent-end-glyph (make-extent (point) (point))
- (make-glyph (vector 'gif :file gif-file)))
- (message "Decoding Postscript... done")
- (delete-file ps-file)
- (delete-file gif-file)
- ))
+;; (defvar mime-view-ps-to-gif-command "pstogif")
+
+;; (defun mime-preview-filter-for-application/postscript (ctype params encoding)
+;; (let* ((beg (point-min)) (end (point-max))
+;; (file-base
+;; (make-temp-name (expand-file-name "tm" mime-temp-directory)))
+;; (ps-file (concat file-base ".ps"))
+;; (gif-file (concat file-base ".gif"))
+;; )
+;; (remove-text-properties beg end '(face nil))
+;; (message "Decoding Postscript...")
+;; (mime-decode-region beg end encoding)
+;; (write-region (point-min)(point-max) ps-file)
+;; (message "Decoding Postscript...")
+;; (delete-region (point-min)(point-max))
+;; (call-process mime-view-ps-to-gif-command nil nil nil ps-file)
+;; (set-extent-end-glyph (make-extent (point) (point))
+;; (make-glyph (vector 'gif :file gif-file)))
+;; (message "Decoding Postscript... done")
+;; (delete-file ps-file)
+;; (delete-file gif-file)
+;; ))