[Mew-dist 03618] Re: 1.93b10

[SAKAI Kiyotaka]

>> In article <19980128215557M.kazu at example.com>, Kazu Yamamoto (山本和彦) <Kazu at example.com> writes:

> text/html に対する外部コマンドは C-cC-e で起動した方がいいような気もし
> ますが、

僕もそう思います。

> やる気が起きないので、だれかお願いします。

はい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-mime.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b12/mew-mime.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-mime.el
--- mew-mime.el	1998/01/30 05:45:37	1.1.1.1
+++ mew-mime.el	1998/02/02 02:22:44
@@ -129,22 +129,50 @@
 	))
   )
 
-(defun mew-mime-text/html (begin end &optional params)
-  (cond
-   ((and (symbolp mew-prog-text/html) (fboundp mew-prog-text/html))
-    (funcall mew-prog-text/html begin end params))
-   ((stringp mew-prog-text/html)
-    (if (> end begin)
-	(let ((file (mew-make-temp-name))) ;; xxx append ".html"?
-	  (save-excursion
-	    (set-buffer (mew-current-get 'cache))
-	    (mew-frwlet
-	     mew-cs-noconv mew-cs-outfile ;; xxx anyway
-	     (write-region begin end file nil 'no-msg)
-	     (apply (function start-process)
-		    mew-prog-text/html mew-buffer-tmp mew-prog-text/html
-		    (append mew-prog-text/html-arg (list file))))))))
-   ))
+(defun mew-mime-text/html (begin end &optional params execute)
+  (let ((size (- end begin))
+	(buffer-read-only nil))
+    (insert "#     # ####### #     # #\n"
+	    "#     #    #    ##   ## #\n"
+	    "#     #    #    # # # # #\n"
+	    "#######    #    #  #  # #\n"
+	    "#     #    #    #     # #\n"
+	    "#     #    #    #     # #\n"
+	    "#     #    #    #     # #######\n"
+	    "\n\n"
+	    (format "Size:\t\t%d bytes\n" size)
+	    (format "Browser:\t%s\n"
+		    (cond ((and (symbolp mew-prog-text/html)
+				(fboundp mew-prog-text/html))
+			   (symbol-name mew-prog-text/html))
+			  ((stringp mew-prog-text/html) mew-prog-text/html)
+			  (t "none")))
+	    "\nTo save this part, type "
+	    (substitute-command-keys
+	     "\\<mew-summary-mode-map>\\[mew-summary-save].")
+	    "\nTo display this part in Message mode, type "
+	    (substitute-command-keys
+	     "\\<mew-summary-mode-map>\\[mew-summary-insert].")
+	    )
+    (if (null execute)
+        (insert "\nTo display this text/html contents with browser, type "
+                (substitute-command-keys
+                 "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))
+      (cond
+       ((and (symbolp mew-prog-text/html) (fboundp mew-prog-text/html))
+	(funcall mew-prog-text/html begin end params))
+       ((stringp mew-prog-text/html)
+	(if (> end begin)
+	    (let ((file (mew-make-temp-name))) ;; xxx append ".html"?
+	      (save-excursion
+		(set-buffer (mew-current-get 'cache))
+		(mew-frwlet
+		 mew-cs-noconv mew-cs-outfile ;; xxx anyway
+		 (write-region begin end file nil 'no-msg)
+		 (apply (function start-process)
+			mew-prog-text/html mew-buffer-tmp mew-prog-text/html
+			(append mew-prog-text/html-arg (list file))))))))))
+    ))
 
 (defun mew-mime-message/rfc822 (part)
   (let* ((hbegin (mew-syntax-get-begin part))
Index: mew-summary.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b12/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el	1998/02/02 01:45:11	1.2
+++ mew-summary.el	1998/02/02 02:08:54
@@ -880,6 +880,8 @@
 	    (cond
 	     ((eq program 'mew-mime-message/rfc822)
 	      (funcall program syntax)) ;; for recursive MIME
+	     ((eq program 'mew-mime-text/html)
+	      (funcall program begin end params execute))
 	     ((eq program 'mew-mime-external-body)
 	      (funcall program begin end params execute))
 	     ((eq program 'mew-mime-application/octet-stream)