[Mew-dist 16809] Re: mew-w3m.el + multipart/related

[Hideyuki SHIRAI ( 白井秀行 )]

From:  Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 16808] Re: mew-w3m.el + multipart/related
Message-ID: <20010312.113041.76212391.shirai at example.com>
Date: Mon, 12 Mar 2001 11:33:24 +0900

白井> それに、表示出来ても『遅いし、汚い』ですよ。以前、冗談で作ったも
白井> のがあるのですが、これを使うと bitmap.el の機能を使って、Mew で
白井> image/xxx な part を inline 表示します。遅さと汚さを体験してみて
白井> くださいませ。あんまり遅いときは C-g の連打かな。
白井> 結構適当に作ってあるし、ImageMagick の "conver" を使っています。

あまりに冗長でみっともないので、再提出。

# そんなもん要らないっていわれそう。

(add-hook
 'mew-init-hook
 (lambda ()
   (unless (mew-image-inline-p 'jpeg)
     (when (and window-system
		(featurep 'bitmap)
		(mew-which-exec "convert"))
       ;; view image use bitmap.el
       (defun mew-image-inline-p (format) t)
       (defun mew-mime-image (cache begin end format)
	 (message "Loading image ... ")
	 (let ((infile (concat
			(expand-file-name
			 (make-temp-name "img") mew-temp-dir)
			"." (symbol-name format)))
	       (xbmfile (concat
			 (expand-file-name
			  (make-temp-name "img") mew-temp-dir)
			 ".xbm")))
	   (save-excursion
	     (set-buffer cache)
	     (if (eq format 'xbm)
		 (mew-frwlet
		  mew-cs-dummy
		  mew-cs-text-for-write
		  (write-region
		   (buffer-substring-no-properties begin end) nil
		   xbmfile nil 'nomsg))
	       (mew-flet
		(write-region
		 (string-as-unibyte
		  (buffer-substring-no-properties begin end)) nil
		  infile nil 'nomsg)
		(apply (function call-process) "convert" nil nil nil
		       (list infile xbmfile)))))
	   (when (file-exists-p xbmfile)
	     (mew-elet
	      (delete-region (point-min) (point-max))
	      (mew-frwlet
	       mew-cs-text-for-read mew-cs-text-for-write
	       (bitmap-insert-xbm-file xbmfile))))
	   (when (and (file-exists-p infile) (file-writable-p infile))
	     (delete-file infile))
	   (when (and (file-exists-p xbmfile) (file-writable-p xbmfile))
	     (delete-file xbmfile))
	   (message "Loading image...done.")))
       ))
   ))

-- 
白井秀行 (mailto:shirai at example.com)