-(add-hook 'mime-viewer/content-header-filter-hook
- mime-preview/x-face-function)
-
-(defun mime-preview/x-face-function-use-highlight-headers ()
- (highlight-headers (point-min) (re-search-forward "^$" nil t) t)
- )
-
-(defun mime-preview/x-face-function-for-xemacs ()
- (save-restriction
- (narrow-to-region (point-min) (re-search-forward "^$" nil t))
- (goto-char (point-min))
- (if (re-search-forward "^X-Face:[ \t]*" nil t)
- (let ((beg (match-end 0))
- (end (rfc822/field-end))
- (xbm-file
- (make-temp-name (expand-file-name "tmxf" mime/tmp-dir))
- ))
- (call-process-region
- beg end "sh" nil 0 nil
- "-c"
- (format "%s > %s"
- mime-viewer/x-face-to-xbm-command
- xbm-file))
- (while (not (file-exists-p xbm-file)))
- (delete-region beg end)
- (bitmap-read-xbm xbm-file)
- (condition-case nil
- (delete-file xbm-file)
- (error nil))
- ))))
-
-(defun mime-preview/x-face-function-for-mule ()
- (save-restriction
- (narrow-to-region (point-min) (re-search-forward "^$" nil t))
- (goto-char (point-min))
- (if (re-search-forward "^X-Face:[ \t]*" nil t)
- (let ((p (match-beginning 0))
- (beg (match-end 0))
- (end (rfc822/field-end))
- (xbm-file
- (concat
- (make-temp-name (expand-file-name "tmxf" mime/tmp-dir))
- ".xbm")
- ))
- (if (< end (point-max))
- (setq end (1+ end))
- )
- (while (progn
- (call-process-region
- beg end "sh" nil 0 nil
- "-c"
- (format "%s > %s"
- mime-viewer/x-face-to-xbm-command
- xbm-file))
- (not (file-exists-p xbm-file))
- ))
- (save-restriction
- (narrow-to-region p end)
- (delete-region p end)
- (goto-char p)
- (while (progn
- (condition-case nil
- (bitmap-read-xbm xbm-file)
- (error nil))
- (kill-buffer
- (some-element
- (function
- (lambda (buf)
- (string-equal (buffer-file-name buf) xbm-file)
- ))
- (buffer-list)))
- (= (point-min) (point-max))
- ))
- (goto-char p)
- (insert "X-Face: ")
- (while (re-search-forward "^." nil t)
- (goto-char (match-beginning 0))
- (insert " ")
- ))
- (condition-case nil
- (delete-file xbm-file)
- (error nil))
- ))))
+(mapcar (function
+ (lambda (rule)
+ (let ((ctype (car rule))
+ (format (cdr rule))
+ )
+ (if (image-inline-p format)
+ (progn
+ (set-alist 'mime-viewer/content-filter-alist
+ ctype
+ (function mime-preview/filter-for-image))
+ (set-alist 'mime-viewer/image-converter-alist
+ ctype format)
+ (add-to-list
+ 'mime-viewer/default-showing-Content-Type-list
+ ctype)
+ )
+ ))))
+ '(("image/jpeg" . jpeg)
+ ("image/gif" . gif)
+ ("image/tiff" . tiff)
+ ("image/x-tiff" . tiff)
+ ("image/xbm" . xbm)
+ ("image/x-xbm" . xbm)
+ ("image/x-xpixmap" . xpm)
+ ("image/x-pic" . pic)
+ ("image/x-mag" . mag)
+ ))
+
+(defvar mime-viewer/ps-to-gif-command "pstogif")