Re: shimbunの Inlne画像を外部ビューア ーで見るには？

[Yoichi NAKAYAMA <yoichi@xxxxxxxxx>]

なかやまです

At Fri, 28 Jan 2005 08:42:14 +0900,
Katsumi Yamaoka wrote:
> 残念ながら cid の画像を外部ビューアーに送るコマンドは、今のとこ
> ろ emacs-w3m にはありません。さらに野宮さんには残念なことに、大
> 多数のユーザが Emacs 21 を使っていて、cid の画像をそのまま見るこ
> とができるので、cid の画像に Emacs のインライン表示で見ることが
> 困難な巨大なものが少ないこともあって、あえて外部ビューアーで見た
> いという動機が生じないであろうことが予想されます。
> 
> えーと、ぼくの 1日を 30時間にしてくれたら、作ってもいいです。;-)

w3m.el をちゃんと理解せず、かなりあやしいことをやってると思いますが、
なんとなく動いている(気がする)ものができたので送ります。
-- 
Yoichi NAKAYAMA

Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1090
diff -u -r1.1090 w3m.el
--- w3m.el	19 Jan 2005 03:10:52 -0000	1.1090
+++ w3m.el	30 Jan 2005 04:13:32 -0000
@@ -2477,6 +2477,11 @@
 		(concat "about://source/" (nth 5 attrs))))))
      ((string-match "\\`about:" url)
       (list "text/html" w3m-coding-system nil nil nil url))
+     ((string-match "\\`cid:" url)
+      (let ((w3m-current-buffer (current-buffer)))
+	(w3m-process-do-with-temp-buffer
+	    (type (w3m-cid-retrieve url nil nil))
+	  (list type nil nil nil nil url url))))
      ((w3m-url-local-p url)
       (w3m-local-attributes url))
      (t
@@ -5461,10 +5466,11 @@
 		    (setq file (concat file suffix))))
 		(cond
 		 ((and command (memq 'file arguments))
-		  (w3m-process-do
-		      (success (w3m-download url file no-cache handler))
-		    (when success
-		      (w3m-external-view-file command file url arguments))))
+		  (let ((w3m-current-buffer (current-buffer)))
+		    (w3m-process-do
+			(success (w3m-download url file no-cache handler))
+		      (when success
+			(w3m-external-view-file command file url arguments)))))
 		 (command
 		  (w3m-external-view-file command nil url arguments))
 		 (t