-(defun mime-preview/filter-for-application/postscript (ctype params encoding)
- (let* ((mode mime::preview/original-major-mode)
- (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)
- ))
-
-(set-alist 'mime-view-content-filter-alist
- "application/postscript"
- (function mime-preview/filter-for-application/postscript))
-
-(if (featurep 'gif)
- (add-to-list 'mime-view-default-showing-Content-Type-list
- "application/postscript")
- )
+;; (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)
+;; ))
+
+;; If you would like to display inline Postscript image, please
+;; activate following:
+
+;; (set-alist 'mime-view-content-filter-alist
+;; "application/postscript"
+;; (function mime-preview-filter-for-application/postscript))
+
+;; (if (featurep 'gif)
+;; (add-to-list
+;; 'mime-view-visible-media-type-list "application/postscript")
+;; )