- (filter (assoc-value ctype mime-viewer/graphic-converter-alist))
- )
- (if filter
- (let* ((beg (point-min)) (end (point-max))
- (orig-file
- (make-temp-name (expand-file-name "tm" mime/tmp-dir)))
- (xbm-file (concat orig-file ".xbm"))
- gl annot)
- ;;(remove-text-properties beg end '(face nil))
- (mime-decode-region beg end encoding)
- (write-region (point-min)(point-max) orig-file)
- (delete-region (point-min)(point-max))
- (message "Now translating, please wait...")
- (apply (function call-process)
- mime-viewer/shell-command nil nil nil
- (append mime-viewer/shell-arguments
- (list (format filter orig-file xbm-file)))
- )
- (setq gl (make-glyph xbm-file))
- (setq annot (make-annotation gl (point) 'text))
- (unwind-protect
- (delete-file orig-file)
- (condition-case nil
- (delete-file xbm-file)
- (error nil)))
- (goto-char (point-max))
- (insert "\n")
- (message "Translation done.")
- )
- (message (format "%s is not supported." ctype))
- )))
-
-
-;;; @ content filter for xbm
-;;;
-
-(defun mime-preview/filter-for-image/xbm (ctype params encoding)
- (let* ((mode mime::preview/original-major-mode)
- (m (assq mode mime-viewer/code-converter-alist))
- (charset (assoc "charset" params))
- (beg (point-min)) (end (point-max))
- (xbm-file (make-temp-name (expand-file-name "tm" mime/tmp-dir)))
- )
- (remove-text-properties beg end '(face nil))
- (mime-decode-region beg end encoding)
- (write-region (point-min)(point-max) xbm-file)
- (delete-region (point-min)(point-max))
- (bitmap-insert-xbm-file xbm-file)
- (delete-file xbm-file)
- ))
-
-(set-alist 'mime-viewer/content-filter-alist
- "image/xbm" (function mime-preview/filter-for-image/xbm))
-
-(set-alist 'mime-viewer/content-filter-alist
- "image/x-xbm" (function mime-preview/filter-for-image/xbm))
-
-
-;;; @ content filter for support in-line image types
-;;;
-;; (for XEmacs 19.14 or later)
-
-(defun mime-preview/filter-for-inline-image (ctype params encoding)
- (let* ((mode mime::preview/original-major-mode)
- (m (assq mode mime-viewer/code-converter-alist))