[Mew-dist 2789] Re: patch for external program

[SAKAI Kiyotaka]

>> In article <19971029011445-2441R.fuji0924 at example.com>, OKUNISHI Fujikazu <fuji0924 at example.com> writes:

> で、毎度のように `C-c C-e' するのはかなり意識的な行為だという観点から
> mew-y-or-p をはずして戴けるとうるさくなくて嬉しいです。

そうですね。

> ;;; ところで save のとこの `C-o' というのは `y' ですよね? 何か重大な勘
> ;;; 違いをしてるのでしょうか、僕。

cut & paste でそのまま入れてしまったのですが、substitute-command-keys 
する必要がありました。

>> In article <19971028203018Z.kawakami at example.com>, Shinji Kawakami <kawakami at example.com> writes:

>> # SunOS の /usr/5bin/banner で "PROGRAM" の文字を作るとこの大きさにな
>> # りますが、"BINARY" の文字の大きさと違うのは何故だろう…。

> banner program と、
> banner PROGRAM の違いじゃないですか?

こんな違いがあったとは…。

という訳でパッチです。昨日、送ったパッチの後に当てて下さい。(奥西さん
のパッチも含んでいます。)
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-summary.el
===================================================================
RCS file: /home/cvsroot/mew-1.92.1/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el	1997/10/28 10:40:58	1.2
+++ mew-summary.el	1997/10/29 00:56:36
@@ -871,28 +871,28 @@
       (save-excursion
 	(set-buffer (mew-buffer-message))
 	(let ((buffer-read-only nil))
-	  (insert " #####   #####    ####    ####   #####     ##    #    #\n"
-		  " #    #  #    #  #    #  #    #  #    #   #  #   ##  ##\n"
-		  " #    #  #    #  #    #  #       #    #  #    #  # ## #\n"
-		  " #####   #####   #    #  #  ###  #####   ######  #    #\n"
-		  " #       #   #   #    #  #    #  #   #   #    #  #    #\n"
-		  " #       #    #   ####    ####   #    #  #    #  #    #\n"
+	  (insert "######  ######  #######  #####  ######     #    #     #\n"
+		  "#     # #     # #     # #     # #     #   # #   ##   ##\n"
+		  "#     # #     # #     # #       #     #  #   #  # # # #\n"
+		  "######  ######  #     # #  #### ######  #     # #  #  #\n"
+		  "#       #   #   #     # #     # #   #   ####### #     #\n"
+		  "#       #    #  #     # #     # #    #  #     # #     #\n"
+		  "#       #     # #######  #####  #     # #     # #     #\n"
 		  "\n\n")
 	  (insert (format "Content-Type:\t%s\n" ct))
 	  (insert (format "Size:\t\t%dbytes\n" (- end begin)))
 	  (insert (format "Program:\t%s\n" program))
-	  (if (not (and execute
-			(or mew-icon-p
-			    ;; gee, the following has a bug that multipart
-			    ;; icons disappear from toolbar...
-			    ;;(and mew-icon-p (button-event-p last-command-event))
-			    (mew-y-or-n-p (format "Start %s? " program)))))
+	  (if (not execute)
 	      (progn
 		(insert "\nTo execute this external command, type "
 			(substitute-command-keys
-			 "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))
-		(insert "\nTo save this part, type C-o.")
-		(insert "\nTo display this part in Message mode, type C-c TAB."))
+			 "\\<mew-summary-mode-map>\\[mew-summary-execute-external].")
+			"\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 (not (mew-which program exec-path))
 		(message "Program %s is not found" program)
 	      (if (not (file-exists-p mew-temp-dir))