From: yamaoka <yamaoka>
Date: Wed, 15 Jul 1998 23:12:00 +0000 (+0000)
Subject: WEMI 1.8.4: Sync up with SEMI 1.8.4.
X-Git-Tag: wemi-1_8_4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=841971986f1416346c15194f159347d4e5c2c24a;p=elisp%2Fsemi.git

WEMI 1.8.4: Sync up with SEMI 1.8.4.
---

diff --git a/ChangeLog b/ChangeLog
index 0ef5143..58fa1d0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,112 @@
+1998-07-16  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* WEMI: Version 1.8.4 (Hara) released.
+
+1998-07-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-ui-en.sgml, mime-ui-ja.sgml (message/partial sending): New
+	section.
+
+	* mime-edit.el (mime-edit-split-blind-field-regexp): Add
+	DOC-string; change to user option.
+
+
+1998-07-11  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* REMI: Version 1.8.4 (Takaoka) released.
+
+1998-07-09  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el: Reduce `mime-acting-situation-example-list' while
+	it is bigger than `mime-acting-situation-example-list-max-size'.
+
+1998-07-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-edit.el (mime-edit-preview-message): Use `mime-view-buffer'
+	instead of `mime-view-mode'.
+
+
+1998-07-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* REMI: Version 1.8.3 (Ecch~-Nakagawa) released.
+
+	* mime-play.el (mime-delq-null-situation): Add new optional
+	argument `ignored-value'.
+	(mime-raw-play-entity): Add new optional argument
+	`ignored-method'; add `ignore-examples' to acting-situation.
+	(mime-detect-content): Specify `ignore-examples' of
+	acting-situation as `ignore-examples' of `mime-raw-play-entity';
+	specify `mime-detect-content' as `ignored-method' of
+	`mime-raw-play-entity'.
+
+1998-07-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-view.el (mime-preview-extract-current-entity): Change
+	interface to add `ignore-examples'.
+	(mime-preview-print-current-entity): Likewise.
+
+	* mime-play.el (mime-acting-situation-example-list-max-size): New
+	variable.
+	(mime-reduce-acting-situation-examples): New function.
+	(mime-preview-play-current-entity): Change interface to add
+	`ignore-examples'.
+	(mime-raw-play-entity): Add new optional argument
+	`ignore-examples'.  Reduce `mime-acting-situation-example-list'
+	when loading example file.
+
+
+1998-07-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* REMI: Version 1.8.2 (N~machi) released.
+
+1998-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-acting-situation-example-list): New variable;
+	abolish `mime-acting-situation-examples'.
+	(mime-save-acting-situation-examples): Modify for
+	`mime-acting-situation-example-list'.
+	(mime-compare-situation-with-example): New function.
+	(mime-raw-play-entity): Change algorithm to compare with
+	acting-situation-examples.
+	(mime-store-message/partial-piece): Use `mime-view-buffer' instead
+	of `mime-view-mode'.
+
+1998-07-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-preview-play-current-entity): Fix problem
+	when `mode' is omitted with non-interactive mode (maybe for button
+	dispatcher).
+
+
+1998-07-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* REMI: Version 1.8.1 (Fushiki) released.
+
+1998-07-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-ui-en.texi, mime-ui-en.sgml: New files.
+
+	* mime-ui-ja.sgml: Modify node names about MIME-Edit.
+	(file-type specification): Fix typo.
+
+1998-07-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-file-content-type-alist): Add "Standard
+	MIDI".
+
+	* mime-play.el (mime-detect-content): Fixed.
+
+1998-07-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-activate-mailcap-method): Check filename is
+	null string.
+
+1998-07-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-ui-ja.sgml, mime-ui-ja.texi: New files; delete
+	mime-view-ja.sgml and mime-view-ja.texi.
+
+
 1998-07-01  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* WEMI: Version 1.8.2 (Katahama) released.
@@ -86,7 +195,7 @@
 
 	* semi-def.el: Don't require 'browse-url.
 	Abolish `mime-browse-add-url-buttons-maybe' and `mime-browse-url'.
-	(mime-browse-url-function): New function.
+	(mime-browse-url-function): New variable.
 	(mime-add-url-buttons): Renamed from `mime-browse-add-url-button'.
 	Use `mime-browse-url-function'.
 
diff --git a/Makefile b/Makefile
index dcec6dc..4a4d4c6 100644
--- a/Makefile
+++ b/Makefile
@@ -3,7 +3,7 @@
 #
 
 PACKAGE = wemi
-VERSION = 1.8.2
+VERSION = 1.8.4
 
 SHELL	= /bin/sh
 MAKE	= make
@@ -68,4 +68,5 @@ tar:
 	$(RM) /tmp/$(PACKAGE)-$(VERSION)/ftp.in
 	cd /tmp; $(TAR) cvzf $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
 	cd /tmp; $(RM) -r $(PACKAGE)-$(VERSION)
-	sed "s/VERSION/$(VERSION)/" < ftp.in > ftp
+	sed "s/VERSION/$(VERSION)/" < ftp.in \
+		| sed "s/PACKAGE/$(PACKAGE)/" > ftp
diff --git a/VERSION b/VERSION
index 221a02f..dfe6c68 100644
--- a/VERSION
+++ b/VERSION
@@ -61,8 +61,8 @@
 1.8.0	Toyama			$(BIY;3(B		; = JR $(B9b;3K\@~!"IY;39A@~(B
 1.8.1	Kureha			$(B8b1)(B
 1.8.2	Kosugi			$(B>.?y(B
------	Ecch-Dþ-Daimon-A		$(B1[CfBgLg(B
------	Takaoka			$(B9b2,(B		; = JR $(BI98+@~!">kC<@~(B
+1.8.3	Ecch-Dþ-Daimon-A		$(B1[CfBgLg(B
+1.8.4	Takaoka			$(B9b2,(B		; = JR $(BI98+@~!">kC<@~(B
 :	:			:
 -------	Higashi-Kanazawa	$(BEl6bBt(B
 -------	Kanazawa		$(B6bBt(B		; <=> $(BKLN&E4F;(B $(BKLE46bBt(B
@@ -118,7 +118,7 @@
 1.8.0	Mishima			$B;0Eg(B	; = $B0KF&H":,E4F;(B
 1.8.1	Numazu			$B>BDE(B	; = JR $(B8fEB>l@~(B
 1.8.2	Katahama		$BJRIM(B
------	Hara			$B86(B
+1.8.4	Hara			$B86(B
 -----	Higashi-Tagonoura	$BElED;R%N1:(B
 -----	Yoshiwara		$B5H86(B	; = $B3YFnE4F;(B
 -----	Fuji			$BIY;N(B	; = JR $B?H1d@~(B
@@ -158,9 +158,9 @@
 1.6.0	Amaharashi		$(B1+@2(B
 1.8.0	Ecch-Dþ-Kokubu		$(B1[Cf9qJ,(B-A
 1.8.1	Fushiki			$(BIzLZ(B	; <=> $B%&%i%8%*%9%C%H%C%/9RO)(B
--------	Noumachi		$(BG=D.(B
--------	Ecch-Dþ-Nakagawa		$(B1[CfCf@n(B-A
-	(Takaoka)		($(B9b2,(B)	; = JR $(BKLN&K\@~!">kC<@~(B
+1.8.2	N-Dòmachi-A			$(BG=D.(B
+1.8.3	Ecch-Dþ-Nakagawa-A		$(B1[CfCf@n(B
+1.8.4	Takaoka			$(B9b2,(B	; = JR $(BKLN&K\@~!">kC<@~(B
 
 
 [etc.]
diff --git a/mime-edit.el b/mime-edit.el
index f911ce2..0d28389 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -513,8 +513,11 @@ If it is not specified for a major-mode,
 (defconst mime-edit-split-ignored-field-regexp
   "\\(^Content-\\|^Subject:\\|^Mime-Version:\\|Message-Id:\\)")
 
-(defvar mime-edit-split-blind-field-regexp
-  "\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)")
+(defcustom mime-edit-split-blind-field-regexp
+  "\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)"
+  "*Regular expression to match field-name to be ignored when split sending."
+  :group 'mime-edit
+  :type 'regexp)
 
 (defvar mime-edit-split-message-sender-alist nil)
 
@@ -2485,7 +2488,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	 (concat "^" (regexp-quote separator) "$"))
 	(replace-match "")
       )
-    (mime-view-mode)
+    (mime-view-buffer)
     ))
 
 (defun mime-edit-quitting-method ()
diff --git a/mime-play.el b/mime-play.el
index 106ef8b..bb5870b 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -37,7 +37,9 @@
     (error (defvar bbdb-buffer-name nil)))
   )
 
-(defvar mime-acting-situation-examples nil)
+(defvar mime-acting-situation-example-list nil)
+
+(defvar mime-acting-situation-example-list-max-size 16)
 
 (defun mime-save-acting-situation-examples ()
   (let* ((file mime-acting-situation-examples-file)
@@ -51,8 +53,8 @@
           (insert "\n;; This file is generated automatically by "
                   mime-view-version-string "\n\n")
 	  (insert ";;; Code:\n\n")
-	  (pp `(setq mime-acting-situation-examples
-		     ',mime-acting-situation-examples)
+	  (pp `(setq mime-acting-situation-example-list
+		     ',mime-acting-situation-example-list)
 	      (current-buffer))
 	  (insert "\n;;; "
                   (file-name-nondirectory file)
@@ -62,25 +64,74 @@
 
 (add-hook 'kill-emacs-hook 'mime-save-acting-situation-examples)
 
-  
+(defun mime-reduce-acting-situation-examples ()
+  (let* ((rest mime-acting-situation-example-list)
+	 (min-example (car rest))
+	 (min-score (cdr min-example)))
+    (while rest
+      (let* ((example (car rest))
+	     (score (cdr example)))
+	(cond ((< score min-score)
+	       (setq min-score score
+		     min-example example)
+	       )
+	      ((= score min-score)
+	       (if (<= (length (car example))(length (car min-example)))
+		   (setq min-example example)
+		 ))
+	      ))
+      (setq rest (cdr rest)))
+    (setq mime-acting-situation-example-list
+	  (delq min-example mime-acting-situation-example-list))
+    (setq min-example (car min-example))
+    (let ((examples mime-acting-situation-example-list)
+	  (max-score 0)
+	  max-examples)
+      (while examples
+	(let* ((ret (mime-compare-situation-with-example min-example
+							 (caar examples)))
+	       (ret-score (car ret)))
+	  (cond ((> ret-score max-score)
+		 (setq max-score ret-score
+		       max-examples (list (cdr ret)))
+		 )
+		((= ret-score max-score)
+		 (setq max-examples (cons (cdr ret) max-examples))
+		 )))
+	(setq examples (cdr examples)))
+      (while max-examples
+	(let* ((example (car max-examples))
+	       (cell (assoc example mime-acting-situation-example-list)))
+	  (if cell
+	      (setcdr cell (1+ (cdr cell)))
+	    (setq mime-acting-situation-example-list
+		  (cons (cons example 0)
+			mime-acting-situation-example-list))
+	    ))
+	(setq max-examples (cdr max-examples))
+	))))
+
+
 ;;; @ content decoder
 ;;;
 
 (defvar mime-preview-after-decoded-position nil)
 
-(defun mime-preview-play-current-entity (&optional mode)
+(defun mime-preview-play-current-entity (&optional ignore-examples mode)
   "Play current entity.
 It decodes current entity to call internal or external method.  The
 method is selected from variable `mime-acting-condition'.
+If IGNORE-EXAMPLES (C-u prefix) is specified, this function ignores
+`mime-acting-situation-example-list'.
 If MODE is specified, play as it.  Default MODE is \"play\"."
-  (interactive (list "play"))
+  (interactive "P")
   (let ((entity (get-text-property (point) 'mime-view-entity)))
     (if entity
 	(let ((the-buf (current-buffer))
 	      (raw-buffer (mime-entity-buffer entity)))
 	  (setq mime-preview-after-decoded-position (point))
 	  (set-buffer raw-buffer)
-	  (mime-raw-play-entity entity mode)
+	  (mime-raw-play-entity entity (or mode "play") nil ignore-examples)
 	  (when (eq (current-buffer) raw-buffer)
 	    (set-buffer the-buf)
 	    (goto-char mime-preview-after-decoded-position)
@@ -121,17 +172,39 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
 	      )))
   )
 
-(defsubst mime-delq-null-situation (situations field)
+(defsubst mime-delq-null-situation (situations field
+					       &optional ignored-value)
   (let (dest)
     (while situations
-      (let ((situation (car situations)))
-	(if (assq field situation)
-	    (setq dest (cons situation dest))
-	  ))
+      (let* ((situation (car situations))
+	     (cell (assq field situation)))
+	(if cell
+	    (or (eq (cdr cell) ignored-value)
+		(setq dest (cons situation dest))
+		)))
       (setq situations (cdr situations)))
     dest))
 
-(defun mime-raw-play-entity (entity &optional mode situation)
+(defun mime-compare-situation-with-example (situation example)
+  (let ((example (copy-alist example))
+	(match 0))
+    (while situation
+      (let* ((cell (car situation))
+	     (key (car cell))
+	     (ecell (assoc key example)))
+	(when ecell
+	  (if (equal cell ecell)
+	      (setq match (1+ match))
+	    (setq example (delq ecell example))
+	    ))
+	)
+      (setq situation (cdr situation))
+      )
+    (cons match example)
+    ))
+
+(defun mime-raw-play-entity (entity &optional mode situation ignore-examples
+				    ignored-method)
   "Play entity specified by ENTITY.
 It decodes the entity to call internal or external method.  The method
 is selected from variable `mime-acting-condition'.  If MODE is
@@ -142,21 +215,66 @@ specified, play as it.  Default MODE is \"play\"."
     (if mode
 	(setq situation (cons (cons 'mode mode) situation))
       )
+    (if ignore-examples
+	(or (assq 'ignore-examples situation)
+	    (setq situation
+		  (cons (cons 'ignore-examples ignore-examples) situation)))
+      )
     (setq ret
-	  (or (ctree-match-calist mime-acting-situation-examples situation)
-	      (ctree-match-calist-partially mime-acting-situation-examples
-					    situation)
-	      situation))
-    (setq ret
-	  (or (mime-delq-null-situation
-	       (ctree-find-calist mime-acting-condition ret
-				  mime-view-find-every-acting-situation)
-	       'method)
-	      (mime-delq-null-situation
-	       (ctree-find-calist mime-acting-condition situation
-				  mime-view-find-every-acting-situation)
-	       'method)
-	      ))
+	  (mime-delq-null-situation
+	   (ctree-find-calist mime-acting-condition situation
+			      mime-view-find-every-acting-situation)
+	   'method ignored-method))
+    (or ignore-examples
+	(if (cdr ret)
+	    (let ((rest ret)
+		  (max-score 0)
+		  max-escore
+		  max-examples
+		  max-situations)
+	      (while rest
+		(let ((situation (car rest))
+		      (examples mime-acting-situation-example-list))
+		  (while examples
+		    (let* ((ret
+			    (mime-compare-situation-with-example
+			     situation (caar examples)))
+			   (ret-score (car ret)))
+		      (cond ((> ret-score max-score)
+			     (setq max-score ret-score
+				   max-escore (cdar examples)
+				   max-examples (list (cdr ret))
+				   max-situations (list situation))
+			     )
+			    ((= ret-score max-score)
+			     (cond ((> (cdar examples) max-escore)
+				    (setq max-escore (cdar examples)
+					  max-examples (list (cdr ret))
+					  max-situations (list situation))
+				    )
+				   ((= (cdar examples) max-escore)
+				    (setq max-examples
+					  (cons (cdr ret) max-examples))
+				    (or (member situation max-situations)
+					(setq max-situations
+					      (cons situation max-situations)))
+				    )))))
+		    (setq examples (cdr examples))))
+		(setq rest (cdr rest)))
+	      (when max-situations
+		(setq ret max-situations)
+		(while max-examples
+		  (let* ((example (car max-examples))
+			 (cell
+			  (assoc example mime-acting-situation-example-list)))
+		    (if cell
+			(setcdr cell (1+ (cdr cell)))
+		      (setq mime-acting-situation-example-list
+			    (cons (cons example 0)
+				  mime-acting-situation-example-list))
+		      ))
+		  (setq max-examples (cdr max-examples))
+		  )))))
     (cond ((cdr ret)
 	   (setq ret (select-menu-alist
 		      "Methods"
@@ -168,7 +286,7 @@ specified, play as it.  Default MODE is \"play\"."
 				  situation)))
 			      ret)))
 	   (setq ret (mime-sort-situation ret))
-	   (ctree-set-calist-strictly 'mime-acting-situation-examples ret)
+	   (add-to-list 'mime-acting-situation-example-list (cons ret 0))
 	   )
 	  (t
 	   (setq ret (car ret))
@@ -206,7 +324,7 @@ specified, play as it.  Default MODE is \"play\"."
 	(let ((method (cdr (assoc 'method situation)))
 	      (name (mime-entity-safe-filename entity)))
 	  (setq name
-		(if name
+		(if (and name (not (string= name "")))
 		    (expand-file-name name mime-temp-directory)
 		  (make-temp-name
 		   (expand-file-name "EMI" mime-temp-directory))
@@ -338,8 +456,9 @@ window.")
 ;;;
 
 (defvar mime-file-content-type-alist
-  '(("JPEG"	image jpeg)
-    ("GIF"	image gif)
+  '(("JPEG"		image jpeg)
+    ("GIF"		image gif)
+    ("Standard MIDI"	audio midi)
     )
   "*Alist of \"file\" output patterns vs. corresponding media-types.
 Each element looks like (REGEXP TYPE SUBTYPE).
@@ -369,17 +488,22 @@ SUBTYPE is symbol to indicate subtype of media-type.")
 	  (if (search-forward (concat filename ": ") nil t)
 	      (let ((rest mime-file-content-type-alist))
 		(while (not (let ((cell (car rest)))
-			      (if (looking-at (car cell))
-				  (setq type (nth 1 cell)
-					subtype (nth 2 cell))
-				)))
+			      (if cell
+				  (if (looking-at (car cell))
+				      (setq type (nth 1 cell)
+					    subtype (nth 2 cell))
+				    )
+				t)))
 		  (setq rest (cdr rest))))))
 	(if type
 	    (mime-raw-play-entity
-	     entity "play"
+	     entity nil
 	     (put-alist 'type type
 			(put-alist 'subtype subtype
-				   (mime-entity-situation entity))))
+				   (del-alist 'method
+					      (copy-alist situation))))
+	     (cdr (assq 'ignore-examples situation))
+	     'mime-detect-content)
 	  ))
       )))
 
@@ -449,7 +573,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	    (erase-buffer)
 	    (as-binary-input-file (insert-file-contents file))
 	    (setq major-mode 'mime-show-message-mode)
-	    (mime-view-mode mother)
+	    (mime-view-buffer (current-buffer) nil mother)
 	    )
 	  (set-window-buffer pwin
 			     (save-excursion
@@ -519,11 +643,10 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 		       ))
 		(save-window-excursion
 		  (setq major-mode 'mime-show-message-mode)
-		  (mime-view-mode mother)
+		  (mime-view-buffer (current-buffer) nil mother)
 		  )
 		(let ((pwin (or (get-buffer-window mother)
-				(get-largest-window)
-				))
+				(get-largest-window)))
 		      (pbuf (save-excursion
 			      (set-buffer full-buf)
 			      mime-preview-buffer)))
@@ -608,8 +731,15 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	    (insert-file-contents file)
 	    (eval-buffer)
 	    ;; format check
-	    (or (eq (car mime-acting-situation-examples) 'type)
-		(setq mime-acting-situation-examples nil))
+	    (condition-case nil
+		(let ((i 0))
+		  (while (and (> (length mime-acting-situation-example-list)
+				 mime-acting-situation-example-list-max-size)
+			      (< i 16))
+		    (mime-reduce-acting-situation-examples)
+		    (setq i (1+ i))
+		    ))
+	      (error (setq mime-acting-situation-example-list nil)))
 	    )
 	(kill-buffer buffer))))
 
diff --git a/mime-view-ja.sgml b/mime-view-ja.sgml
deleted file mode 100644
index e0591a2..0000000
--- a/mime-view-ja.sgml
+++ /dev/null
@@ -1,278 +0,0 @@
-<!doctype sinfo system>
-<head>
-<title>SEMI 1.6 MIME-View $B@bL@=q(B
-<author>$B<i2,(B $BCNI'(B <mail>morioka@jaist.ac.jp</mail>
-<date>1998/06/15
-
-<toc>
-</head>
-
-<body>
-
-<abstract>
-<p>
-This file documents MIME-View, a MIME Viewer for GNU Emacs.
-<p>
-GNU Emacs $BMQ$N(B MIME Viewer $B$G$"$k(B MIME-View $B$K$D$$$F@bL@$7$^$9!#(B
-</abstract>
-
-
-<h1> MIME-View $B$C$F2?!)(B
-<node> Introduction
-<p>
-MIME-View $B$O(B GNU Emacs $B$GF0:n$9$kHFMQE*$J(B MIME viewer $B$G$9!#(B
-<p>
-MIME-View $B$O(B MIME message $B$r1\Mw$9$k$?$a$NMxMQ<T3&LL(B (user interface) 
-$B$N3K$G$"$j!"$3$N>e$G(B presentation-method $B$H8F$P$l$kI=<($r:n$k%W%m%0%i%`(B
-$B$rF0$+$7$?$j!"(Bacting-method $B$H8F$P$l$k(B entity $B$N=hM}%W%m%0%i%`$rF0$+$9(B
-$B$3$H$,2DG=$G!"$5$^$6$^$J<oN`$N(B entity $B$r07$&;v$,$G$-$k$h$&$K$J$C$F$$$^$9!#(B
-
-
-<h1> MIME-View $B35@b(B
-<node> Overview
-<p>
-Internet $B$NEE;R=q4J!&%M%C%H%K%e!<%9$J$I$N=qLL(B (message) $B$NI=8=7A<0$O(B 
-STD 11 $B$K4p$E$$$F$$$^$9!#(BSTD 11 $B$N=qLLK\BN(B (message body) $B$O9T$rM#0l$N(B
-$B9=B$$H$9$k4J0WJ8LL(B (plain text) $B$G$"$j!"J8;zId9f$b(B us-ascii $B$HDj$a$i$l(B
-$B$F$$$^$9!#<B:]$K$O!"J8;zId9f$r(B us-ascii $B$NBe$o$j$K$=$N8@8l7w$GMQ$$$i$l(B
-$B$kJ8;zId9f$H$7$?!XCO0h2=$5$l$?(B STD 11$B!Y=qLL$bMQ$$$i$l$F$-$^$7$?$,!"$3(B
-$B$N>l9g$b=qLL$NJ8;zId9f$O#1$D$G$9!#$3$N$?$a!"MxMQ<T3&LL(B (Message User
-Agent) $B$O!"$7$P$7$P!"(Bbyte $BNs(B = us-ascii $BJ8;zNs!"$J$$$7$O!"(Bbyte $BNs(B = $B$=(B
-$B$N8@8l7w$GMQ$$$kJ8;zId9f$NJ8;zNs$N$h$&$K8+Jo$7$F$-$^$7$?!#(B
-<p>
-$B$7$+$7$J$,$i!"(BMIME $B$G$O=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$K$J$j!"$^$?!"(B
-$B#1$D$N=qLL$GJ#?t$NJ8;zId9f$rMQ$$$k$3$H$,$G$-$^$9!#$^$?!"(Bentity $B$NFbMF(B
-$B$OJ8LL$d3($N$h$&$JC1=c$KI=<(2DG=$J$b$N$@$1$G$J$/!"2;@<$dF02h$J$I$N0lDj(B
-$B;~4V:F@8$5$l$k$h$&$J$b$N$dFCDj$N%"%W%j%1!<%7%g%s$N%G!<%?$d%W%m%0%i%`$N(B
-$B%=!<%9!"$"$k$$$O!"(Bftp $B$d(B mail service $B$NMxMQK!$d(B URL $B$H$$$C$?7A$GI=$5(B
-$B$l$?30It;2>H$J$I$N$5$^$6$^$J$b$N$,9M$($i$^$9!#$3$N$?$a!"I=<($@$1$r9M$((B
-$B$F$$$?(B STD 11 $B$K$*$1$kMxMQ<T3&LL$NC1=c$J1dD9$G$O(B MIME $B$NA4$F$N5!G=$r07(B
-$B$&$3$H$O$G$-$^$;$s!#$D$^$j!"(BMIME $B$N7A<0$K9g$o$;$FI|9f$9$k$@$1$G$OIT==(B
-$BJ,$G$"$j!"MxMQ<T$H$NBPOCE*$J:F@8=hM}$r9MN8$9$kI,MW$,$"$j$^$9!#(BMIME $B=q(B
-$BLL$N7A<0$O<+F0=hM}$,$7$d$9$/@_7W$5$l$F$$$^$9$,!"(BMIME $B=qLL$K4^$^$l$kFb(B
-$BMF$NCf$K$O%;%-%e%j%F%#!<>e$NLdBj$+$i<+F0=hM}$r$9$k$Y$-$G$J$$$b$N$,$"$j!"(B
-$B$3$&$$$C$?$b$N$N:F@8$K4X$7$F$OMxMQ<T$NH=CG$r6D$0$h$&$K@_7W$5$l$k$Y$-$G(B
-$B$7$g$&!#7k6I!"(BMIME $B=qLL$r07$&$?$a$K$O(B STD 11 $B$*$h$S(B MIME $B$N9=J8$G5-=R(B
-$B$5$l$?%a%C%;!<%8$N>pJs8r49MQI=8=$H$=$N2r<a7k2L$G$"$kI=<(2hLL$d:F@8Ey$N(B
-$B=hM}$r6hJL$7$F9M$($kI,MW$,$"$j$^$9!#$^$?!"MxMQ<T$H$NBPOCE*$J:F@8=hM}$,(B
-$BI,MW$G$9!#(B
-<p>
-$B$3$N$?$a!"(BMIME-View $B$O#1$D$N=qLL$KBP$7$F!">pJs8r49MQI=8=$r3JG<$9$k(B 
-mime-raw-buffer $B$HI=<(MQI=8=$r3JG<$9$k(B mime-preview-buffer $B$N#2$D$N(B 
-buffer $B$rMQ$$$^$9!#(B
-<p>
-MIME-View $B$O(B mime-preview-buffer $B$KBP$7$F(B mime-view-mode $B$H$$$&(B MIME
-message $B$r1\Mw$9$k$?$a$N(B mode $B$rDs6!$7$^$9!#MxMQ<T$O$3$3$G3F(B entity $B$K(B
-$BBP$7$FA`:n$r9T$&$3$H$,$G$-$^$9!#(B
-
-
-<h1> mime-preview-buffer $B$N2hLL9=@.(B
-<node> MIME-Preview
-<p>
-mime-view-mode $B$G$O3F(B entity $B$KBP$7$F(B
-<p>
-<verb>
-	[entity-button]
-	(header)
-	
-	(body)
-	(separator)
-</verb>
-<p>
-<noindent>
-$B$H$$$&>pJs$rI=<($7$^$9!#$3$l$i$O>r7o$K=>$C$F(B design $B$rJQ99$7$?$j!"I=<((B
-$B$rM^@)$9$k$3$H$b$G$-$^$9!#(B
-<p>
-$B0J2<$K!"I=<(Nc$r<($7$^$9!#(B
-
-
-<verb>
-From: morioka@jaist.ac.jp ($B<i2,(B $BCNI'(B / MORIOKA Tomohiko)
-Subject: Re: $B<ALd!)(B
-Newsgroups: zxr.message.mime
-Date: 22 Oct 93 11:02:44
-Mime-Version: 1.0
-Organization: Japan Advanced Institute of Science and Technology,
-        Ishikawa, Japan
-
-[1  (text/plain)]
-  MIME-Edit mode $B$K$*$1$k!"(BMIME message $B$N:n$jJ}!#(B
-
-  C-c C-x ? $B$r2!$9$H(B help $B$,=P$F$/$k!#(B
-
-C-c C-x C-t	insert a text message.
-C-c C-x TAB	insert a (binary) file.
-C-c C-x C-e	insert a reference to external body.
-C-c C-x C-v	insert a voice message.
-C-c C-x C-y	insert a mail or news message.
-C-c C-x RET	insert a mail message.
-C-c C-x C-s	insert a signature file at end.
-C-c C-x t	insert a new MIME tag.
-C-c C-x a	enclose as multipart/alternative.
-C-c C-x p	enclose as multipart/parallel.
-C-c C-x m	enclose as multipart/mixed.
-C-c C-x d	enclose as multipart/digest.
-C-c C-x s	enclose as PGP signed.
-C-c C-x e	enclose as PGP encrypted.
-C-c C-x C-k	insert PGP public key.
-C-c C-x C-p	preview editing MIME message.
-...
-
-$B$C$FLu$G!"(BC-c C-x C-i $B$r2!$7$F!"A^F~$7$?$$(B binary file $B$r;XDj$7$^$9!#(B
-
-  binary file $B$N(B MIME encoding $B$K$O!"IaDL!"(BBase64 $B$r;XDj$7$^$9!#(B
-
-[2  (image/gif)]
-
-[3  (text/plain)]
-
-  $B$3$s$JIw$K!"3(F~$j(B message $B$N$G$->e$,$j!#(B
-
-$B".".".".".".".".".".".(B $B%m%7%"%s!&%F%#!<$r0lGU!#(B $B".".".".".".".".".".".(B
-$B".".".".".(B  $B!y(B $B%8%c%`$G$O$J$/%^!<%^%l!<%I$G$b$J$/K*L*$G(B $B!y(B  $B".".".".".(B
-$B".".".".".(B         $B'.'0'2$$'0','!(B  $B'4'0'.'0'7'*','0(B         $B".".".".".(B
-$B".".".".".".".(B  Internet E-mail: &lt;morioka@jaist.ac.jp&gt;  $B".".".".".".".(B
-</verb>
-
-
-<h2> entity-button
-<node> entity-button
-<p>
-<concept>entity-button</concept> $B$O(B entity $B$N@hF,$K$"$C$F!"$=$N(B entity 
-$B$K4X$9$kBg$^$+$J>pJs$rI=<($9$kItJ,$G$9!#(B
-<p>
-$BI8=`$G$O(B
-
-<verb>
-        [1.3 test (text/plain)]
-</verb>
-
-<noindent>
-$B$N$h$&$J46$8$KI=<($5$l$^$9!#(B
-<p>
-$B:G=i$N?t;z$O(B message $BCf$N$3$N(B entity $B$N0LCV$r@aHV9f$N$h$&$KI=$7$?$b$N(B
-$B$G!"(B<concept>entity-number</concept> $B$H8F$S$^$9!#(B
-<p>
-$B#2HVL\$NJ8;zNs$OI=Bj$rI=$7$^$9!#$3$N>pJs$O!"(B
-
-<ol>
-<li>Content-Description field $B$b$7$/$O(B Subject field $B$K=q$+$l$?I=Bj(B
-<li>Content-Disposition field $B$N(B filename parameter $B$K=q$+$l$?(B file $BL>(B
-<li>Content-Type field $B$N(B name parameter $B$K=q$+$l$?(B file $BL>(B
-<li> uuencode $B$N>l9g$N(B file $BL>(B
-</ol>
-
-<noindent>
-$B$+$i:n$j$^$9!#$I$l$bB8:_$7$J$$>l9g$O6uGr$,I=<($5$l$^$9!#(B
-<p>
-$B#3HVL\$N3g8L$NCf$N>pJs$O$=$N(B entity $B$N(B media-type/subtype $B$rI=$7$^$9!#(B
-$BHs(B MIME entity $B$N>l9g!"(B<code>nil</code> $B$,I=<($5$l$^$9!#(B
-<p>
-$B$3$N(B entity-button $B$O(B entity $B$NFbMF$r>]D'$9$k(B icon $B$N$h$&$JLr3d$r2L$?(B
-$B$7$^$9!#Nc$($P!"(B
-
-<verb>
-        [2  (image/gif)]
-</verb>
-
-<noindent>
-$B$N>e$G(B <kbd>v</kbd> $B$r2!$;$P$3$3$KF~$C$F$$$k3($,I=<($5$l$^$9!#(B
-<p>
-$B$^$?!"(Bmouse $BA`:n$,2DG=$J>l9g!"(Bentity-button $B$rBh#2%\%?%s!J(B3 button
-mouse $B$N>l9g!"Cf1{$N%\%?%s!K$G2!$;$P!"F1MM$K$=$N3($,I=<($5$l$^$9!#(B
-
-
-<h2> entity-header
-<node> entity-header
-<p>
-<concept>entity-header</concept> $B$O$"$k(B entity $B$N(B header $B$rI=<($9$kIt(B
-$BJ,$G$9!J!V$=$N$^$^$d$s$1!W$C$FE\$i$J$$$G!#$=$&$$$&$b$s$J$s$G$9!K!#(B
-
-
-<h2> entity-body
-<node> entity-body
-<p>
-<concept>entity-body</concept> $B$O(B part $B$NFbMF$rI=<($9$kItJ,$G$9!#(B
-<p>
-$B$3$l$b$R$M$j$,B-$j$J$$$G$9$,!"$^$"!"$=$&$$$&$b$s$G$9!#(B
-<p>
-$B$H$O$$$(!"<B:]$K$O>/$7$R$M$C$F$^$9!#(B
-<p>
-text entity $B$N>l9g$O(B charset $B$K1~$8$F(B code $BJQ49$7$?$j$7$^$9$7!"(BXEmacs 
-$B$G$O(B image entity $B$rJQ49$7$J$$$H$$$1$J$$$7!#(B
-<p>
-$B>\$7$/$O$^$?8e$G!#(B
-
-
-<h1> mime-preview-buffer $B$G$NA`:n(B
-<node> mime-view-mode
-<p>
-mime-preview-buffer $B$K$O0J2<$N5!G=$,$"$j$^$9!#(B
-<p>
-<kl>
-<kt>u
-<kd>
-$B>e$N(B part $B$KLa$k!J(Bmessage $B$N0lHV>e$N(B part $B$G$3$l$r9T$J$&$H(B Summary
-mode $B$KLa$k(B (*1)$B!K(B
-</kd>
-<kt>p<kd>$BA0$N(B part $B$K0\F0$9$k(B
-</kd>
-<kt>M-TAB<kd>$BA0$N(B part $B$K0\F0$9$k(B
-</kd>
-<kt>n<kd>$B<!$N(B part $B$K0\F0$9$k(B
-</kd>
-<kt>TAB<kd>$B<!$N(B part $B$K0\F0$9$k(B
-</kd>
-<kt>SPC<kd>scroll up $B$9$k(B
-</kd>
-<kt>M-SPC<kd>scroll down $B$9$k(B
-</kd>
-<kt>DEL<kd>scroll down $B$9$k(B
-</kd>
-<kt>RET<kd>$B<!$N9T$K0\F0$9$k(B
-</kd>
-<kt>M-RET<kd>$BA0$N9T$K0\F0$9$k(B
-</kd>
-<kt>v<kd>part $B$r:F@8$9$k(B (*2)
-</kd>
-<kt>e<kd>part $B$+$i(B file $B$r<h$j=P$9(B (*2)
-</kd>
-<kt>C-c C-p<kd>part $B$r0u:~$9$k(B (*2)
-</kd>
-<kt>mouse-button-2
-<kd>
-preview-buffer $BCf$N(B mouse button $B$r5/F0$9$k(B
-<p>
-content-button $B$r2!$;$P!"$=$N(B part $B$,:F@8$5$l$k(B(*2)
-<p>
-URL-button $B$r2!$;$P!"$=$N(B WWW browser $B$,5/F0$5$l$k(B
-</kd>
-</kl>
-<p>
-<memo title="$BCm0U(B">
-<p>
-(*1) MUA $B$G(B mime-view $B$N@_Dj$r$7$F$$$J$$>l9g!"(BSummary mode $B$K$OLa$j$^(B
-$B$;$s!#(B
-<p>
-(*2) $B<B:]$NF0:n$OBP1~$9$k(B method $B$K0M$j$^$9!#(B
-</memo>
-
-
-<h1> $B35G0:w0z(B
-<node> Concept Index
-
-<cindex>
-
-
-<h1> $B4X?t:w0z(B
-<node> Function Index
-
-<findex>
-
-
-<h1> $BJQ?t:w0z(B
-<node> Variable Index
-
-<vindex>
-
-</body>
diff --git a/mime-view-ja.texi b/mime-view-ja.texi
deleted file mode 100644
index 3ee2adc..0000000
--- a/mime-view-ja.texi
+++ /dev/null
@@ -1,311 +0,0 @@
-\input texinfo.tex
-@setfilename mime-view-ja.info
-@settitle{SEMI 1.6 MIME-View $B@bL@=q(B}
-@titlepage
-@title SEMI 1.6 MIME-View $B@bL@=q(B
-@author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>
-@subtitle 1998/06/15
-@end titlepage
-@node Top, Introduction, (dir), (dir)
-@top SEMI 1.6 MIME-View $B@bL@=q(B
-
-@ifinfo
-
-This file documents MIME-View, a MIME Viewer for GNU Emacs.@refill
-
-GNU Emacs $BMQ$N(B MIME Viewer $B$G$"$k(B MIME-View $B$K$D$$$F@bL@$7$^$9!#(B
-@end ifinfo
-
-@menu
-* Introduction::                MIME-View $B$C$F2?!)(B
-* Overview::                    MIME-View $B35@b(B
-* MIME-Preview::                mime-preview-buffer $B$N2hLL9=@.(B
-* mime-view-mode::              mime-preview-buffer $B$G$NA`:n(B
-* Concept Index::               $B35G0:w0z(B
-* Function Index::              $B4X?t:w0z(B
-* Variable Index::              $BJQ?t:w0z(B
-@end menu
-
-@node Introduction, Overview, Top, Top
-@chapter MIME-View $B$C$F2?!)(B
-
-MIME-View $B$O(B GNU Emacs $B$GF0:n$9$kHFMQE*$J(B MIME viewer $B$G$9!#(B@refill
-
-MIME-View $B$O(B MIME message $B$r1\Mw$9$k$?$a$NMxMQ<T3&LL(B (user interface) 
-$B$N3K$G$"$j!"$3$N>e$G(B presentation-method $B$H8F$P$l$kI=<($r:n$k%W%m%0%i%`(B
-$B$rF0$+$7$?$j!"(Bacting-method $B$H8F$P$l$k(B entity $B$N=hM}%W%m%0%i%`$rF0$+$9(B
-$B$3$H$,2DG=$G!"$5$^$6$^$J<oN`$N(B entity $B$r07$&;v$,$G$-$k$h$&$K$J$C$F$$$^$9!#(B
-
-
-@node Overview, MIME-Preview, Introduction, Top
-@chapter MIME-View $B35@b(B
-
-Internet $B$NEE;R=q4J!&%M%C%H%K%e!<%9$J$I$N=qLL(B (message) $B$NI=8=7A<0$O(B STD
-11 $B$K4p$E$$$F$$$^$9!#(BSTD 11 $B$N=qLLK\BN(B (message body) $B$O9T$rM#0l$N9=B$$H(B
-$B$9$k4J0WJ8LL(B (plain text) $B$G$"$j!"J8;zId9f$b(B us-ascii $B$HDj$a$i$l$F$$$^$9!#(B
-$B<B:]$K$O!"J8;zId9f$r(B us-ascii $B$NBe$o$j$K$=$N8@8l7w$GMQ$$$i$l$kJ8;zId9f$H(B
-$B$7$?!XCO0h2=$5$l$?(B STD 11$B!Y=qLL$bMQ$$$i$l$F$-$^$7$?$,!"$3$N>l9g$b=qLL$N(B
-$BJ8;zId9f$O#1$D$G$9!#$3$N$?$a!"MxMQ<T3&LL(B (Message User Agent) $B$O!"$7$P$7(B
-$B$P!"(Bbyte $BNs(B = us-ascii $BJ8;zNs!"$J$$$7$O!"(Bbyte $BNs(B = $B$=$N8@8l7w$GMQ$$$kJ8(B
-$B;zId9f$NJ8;zNs$N$h$&$K8+Jo$7$F$-$^$7$?!#(B@refill
-
-$B$7$+$7$J$,$i!"(BMIME $B$G$O=qLL$O(B entity $B$rC10L$H$9$kLZ9=B$$K$J$j!"$^$?!"#1(B
-$B$D$N=qLL$GJ#?t$NJ8;zId9f$rMQ$$$k$3$H$,$G$-$^$9!#$^$?!"(Bentity $B$NFbMF$OJ8(B
-$BLL$d3($N$h$&$JC1=c$KI=<(2DG=$J$b$N$@$1$G$J$/!"2;@<$dF02h$J$I$N0lDj;~4V:F(B
-$B@8$5$l$k$h$&$J$b$N$dFCDj$N%"%W%j%1!<%7%g%s$N%G!<%?$d%W%m%0%i%`$N%=!<%9!"(B
-$B$"$k$$$O!"(Bftp $B$d(B mail service $B$NMxMQK!$d(B URL $B$H$$$C$?7A$GI=$5$l$?30It;2(B
-$B>H$J$I$N$5$^$6$^$J$b$N$,9M$($i$^$9!#$3$N$?$a!"I=<($@$1$r9M$($F$$$?(B STD
-11 $B$K$*$1$kMxMQ<T3&LL$NC1=c$J1dD9$G$O(B MIME $B$NA4$F$N5!G=$r07$&$3$H$O$G$-(B
-$B$^$;$s!#$D$^$j!"(BMIME $B$N7A<0$K9g$o$;$FI|9f$9$k$@$1$G$OIT==J,$G$"$j!"MxMQ(B
-$B<T$H$NBPOCE*$J:F@8=hM}$r9MN8$9$kI,MW$,$"$j$^$9!#(BMIME $B=qLL$N7A<0$O<+F0=h(B
-$BM}$,$7$d$9$/@_7W$5$l$F$$$^$9$,!"(BMIME $B=qLL$K4^$^$l$kFbMF$NCf$K$O%;%-%e%j(B
-$B%F%#!<>e$NLdBj$+$i<+F0=hM}$r$9$k$Y$-$G$J$$$b$N$,$"$j!"$3$&$$$C$?$b$N$N:F(B
-$B@8$K4X$7$F$OMxMQ<T$NH=CG$r6D$0$h$&$K@_7W$5$l$k$Y$-$G$7$g$&!#7k6I!"(BMIME 
-$B=qLL$r07$&$?$a$K$O(B STD 11 $B$*$h$S(B MIME $B$N9=J8$G5-=R$5$l$?%a%C%;!<%8$N>pJs(B
-$B8r49MQI=8=$H$=$N2r<a7k2L$G$"$kI=<(2hLL$d:F@8Ey$N=hM}$r6hJL$7$F9M$($kI,MW(B
-$B$,$"$j$^$9!#$^$?!"MxMQ<T$H$NBPOCE*$J:F@8=hM}$,I,MW$G$9!#(B@refill
-
-$B$3$N$?$a!"(BMIME-View $B$O#1$D$N=qLL$KBP$7$F!">pJs8r49MQI=8=$r3JG<$9$k(B 
-mime-raw-buffer $B$HI=<(MQI=8=$r3JG<$9$k(B mime-preview-buffer $B$N#2$D$N(B 
-buffer $B$rMQ$$$^$9!#(B@refill
-
-MIME-View $B$O(B mime-preview-buffer $B$KBP$7$F(B mime-view-mode $B$H$$$&(B MIME
-message $B$r1\Mw$9$k$?$a$N(B mode $B$rDs6!$7$^$9!#MxMQ<T$O$3$3$G3F(B entity $B$K(B
-$BBP$7$FA`:n$r9T$&$3$H$,$G$-$^$9!#(B
-
-
-@node MIME-Preview, mime-view-mode, Overview, Top
-@chapter mime-preview-buffer $B$N2hLL9=@.(B
-
-mime-view-mode $B$G$O3F(B entity $B$KBP$7$F(B@refill
-
-@example
-	[entity-button]
-	(header)
-	
-	(body)
-	(separator)
-@end example
-
-@noindent
-$B$H$$$&>pJs$rI=<($7$^$9!#$3$l$i$O>r7o$K=>$C$F(B design $B$rJQ99$7$?$j!"I=<((B
-$B$rM^@)$9$k$3$H$b$G$-$^$9!#(B
-
-$B0J2<$K!"I=<(Nc$r<($7$^$9!#(B
-
-
-@example
-From: morioka@@jaist.ac.jp ($B<i2,(B $BCNI'(B / MORIOKA Tomohiko)
-Subject: Re: $B<ALd!)(B
-Newsgroups: zxr.message.mime
-Date: 22 Oct 93 11:02:44
-Mime-Version: 1.0
-Organization: Japan Advanced Institute of Science and Technology,
-        Ishikawa, Japan
-
-[1  (text/plain)]
-  MIME-Edit mode $B$K$*$1$k!"(BMIME message $B$N:n$jJ}!#(B
-
-  C-c C-x ? $B$r2!$9$H(B help $B$,=P$F$/$k!#(B
-
-C-c C-x C-t	insert a text message.
-C-c C-x TAB	insert a (binary) file.
-C-c C-x C-e	insert a reference to external body.
-C-c C-x C-v	insert a voice message.
-C-c C-x C-y	insert a mail or news message.
-C-c C-x RET	insert a mail message.
-C-c C-x C-s	insert a signature file at end.
-C-c C-x t	insert a new MIME tag.
-C-c C-x a	enclose as multipart/alternative.
-C-c C-x p	enclose as multipart/parallel.
-C-c C-x m	enclose as multipart/mixed.
-C-c C-x d	enclose as multipart/digest.
-C-c C-x s	enclose as PGP signed.
-C-c C-x e	enclose as PGP encrypted.
-C-c C-x C-k	insert PGP public key.
-C-c C-x C-p	preview editing MIME message.
-...
-
-$B$C$FLu$G!"(BC-c C-x C-i $B$r2!$7$F!"A^F~$7$?$$(B binary file $B$r;XDj$7$^$9!#(B
-
-  binary file $B$N(B MIME encoding $B$K$O!"IaDL!"(BBase64 $B$r;XDj$7$^$9!#(B
-
-[2  (image/gif)]
-
-[3  (text/plain)]
-
-  $B$3$s$JIw$K!"3(F~$j(B message $B$N$G$->e$,$j!#(B
-
-$B".".".".".".".".".".".(B $B%m%7%"%s!&%F%#!<$r0lGU!#(B $B".".".".".".".".".".".(B
-$B".".".".".(B  $B!y(B $B%8%c%`$G$O$J$/%^!<%^%l!<%I$G$b$J$/K*L*$G(B $B!y(B  $B".".".".".(B
-$B".".".".".(B         $B'.'0'2$$'0','!(B  $B'4'0'.'0'7'*','0(B         $B".".".".".(B
-$B".".".".".".".(B  Internet E-mail: <morioka@@jaist.ac.jp>  $B".".".".".".".(B
-@end example
-
-
-
-@menu
-* entity-button::               
-* entity-header::               
-* entity-body::                 
-@end menu
-
-@node entity-button, entity-header, MIME-Preview, MIME-Preview
-@section entity-button
-@cindex entity-number
-@cindex entity-button
-
-@strong{entity-button} $B$O(B entity $B$N@hF,$K$"$C$F!"$=$N(B entity $B$K4X$9$kBg(B
-$B$^$+$J>pJs$rI=<($9$kItJ,$G$9!#(B@refill
-
-$BI8=`$G$O(B
-
-@example
-        [1.3 test (text/plain)]
-@end example
-
-@noindent
-$B$N$h$&$J46$8$KI=<($5$l$^$9!#(B
-
-$B:G=i$N?t;z$O(B message $BCf$N$3$N(B entity $B$N0LCV$r@aHV9f$N$h$&$KI=$7$?$b$N$G!"(B
-@strong{entity-number} $B$H8F$S$^$9!#(B@refill
-
-$B#2HVL\$NJ8;zNs$OI=Bj$rI=$7$^$9!#$3$N>pJs$O!"(B
-
-@enumerate
-@item
-Content-Description field $B$b$7$/$O(B Subject field $B$K=q$+$l$?I=Bj(B
-@item
-Content-Disposition field $B$N(B filename parameter $B$K=q$+$l$?(B file $BL>(B
-@item
-Content-Type field $B$N(B name parameter $B$K=q$+$l$?(B file $BL>(B
-@item
- uuencode $B$N>l9g$N(B file $BL>(B
-@end enumerate
-
-@noindent
-$B$+$i:n$j$^$9!#$I$l$bB8:_$7$J$$>l9g$O6uGr$,I=<($5$l$^$9!#(B
-
-$B#3HVL\$N3g8L$NCf$N>pJs$O$=$N(B entity $B$N(B media-type/subtype $B$rI=$7$^$9!#Hs(B 
-MIME entity $B$N>l9g!"(B@code{nil} $B$,I=<($5$l$^$9!#(B@refill
-
-$B$3$N(B entity-button $B$O(B entity $B$NFbMF$r>]D'$9$k(B icon $B$N$h$&$JLr3d$r2L$?(B
-$B$7$^$9!#Nc$($P!"(B
-
-@example
-        [2  (image/gif)]
-@end example
-
-@noindent
-$B$N>e$G(B @kbd{v} $B$r2!$;$P$3$3$KF~$C$F$$$k3($,I=<($5$l$^$9!#(B
-
-$B$^$?!"(Bmouse $BA`:n$,2DG=$J>l9g!"(Bentity-button $B$rBh#2%\%?%s!J(B3 button
-mouse $B$N>l9g!"Cf1{$N%\%?%s!K$G2!$;$P!"F1MM$K$=$N3($,I=<($5$l$^$9!#(B
-
-
-@node entity-header, entity-body, entity-button, MIME-Preview
-@section entity-header
-@cindex entity-header
-
-@strong{entity-header} $B$O$"$k(B entity $B$N(B header $B$rI=<($9$kIt(B
-$BJ,$G$9!J!V$=$N$^$^$d$s$1!W$C$FE\$i$J$$$G!#$=$&$$$&$b$s$J$s$G$9!K!#(B
-
-
-@node entity-body,  , entity-header, MIME-Preview
-@section entity-body
-@cindex entity-body
-
-@strong{entity-body} $B$O(B part $B$NFbMF$rI=<($9$kItJ,$G$9!#(B@refill
-
-$B$3$l$b$R$M$j$,B-$j$J$$$G$9$,!"$^$"!"$=$&$$$&$b$s$G$9!#(B@refill
-
-$B$H$O$$$(!"<B:]$K$O>/$7$R$M$C$F$^$9!#(B@refill
-
-text entity $B$N>l9g$O(B charset $B$K1~$8$F(B code $BJQ49$7$?$j$7$^$9$7!"(BXEmacs $B$G(B
-$B$O(B image entity $B$rJQ49$7$J$$$H$$$1$J$$$7!#(B@refill
-
-$B>\$7$/$O$^$?8e$G!#(B
-
-
-@node mime-view-mode, Concept Index, MIME-Preview, Top
-@chapter mime-preview-buffer $B$G$NA`:n(B
-
-mime-preview-buffer $B$K$O0J2<$N5!G=$,$"$j$^$9!#(B@refill
-
-@table @kbd
-@item @key{u}
-$B>e$N(B part $B$KLa$k!J(Bmessage $B$N0lHV>e$N(B part $B$G$3$l$r9T$J$&$H(B Summary
-mode $B$KLa$k(B (*1)$B!K(B
-
-@item @key{p}
-$BA0$N(B part $B$K0\F0$9$k(B
-
-@item @key{M-TAB}
-$BA0$N(B part $B$K0\F0$9$k(B
-
-@item @key{n}
-$B<!$N(B part $B$K0\F0$9$k(B
-
-@item @key{TAB}
-$B<!$N(B part $B$K0\F0$9$k(B
-
-@item @key{SPC}
-scroll up $B$9$k(B
-
-@item @key{M-SPC}
-scroll down $B$9$k(B
-
-@item @key{DEL}
-scroll down $B$9$k(B
-
-@item @key{RET}
-$B<!$N9T$K0\F0$9$k(B
-
-@item @key{M-RET}
-$BA0$N9T$K0\F0$9$k(B
-
-@item @key{v}
-part $B$r:F@8$9$k(B (*2)
-
-@item @key{e}
-part $B$+$i(B file $B$r<h$j=P$9(B (*2)
-
-@item @key{C-c C-p}
-part $B$r0u:~$9$k(B (*2)
-
-@item @key{mouse-button-2}
-preview-buffer $BCf$N(B mouse button $B$r5/F0$9$k(B
-
-content-button $B$r2!$;$P!"$=$N(B part $B$,:F@8$5$l$k(B(*2)@refill
-
-URL-button $B$r2!$;$P!"$=$N(B WWW browser $B$,5/F0$5$l$k(B@refill
-
-@end table
-
-@noindent
-@strong{[$BCm0U(B]}
-@quotation
-
-(*1) MUA $B$G(B mime-view $B$N@_Dj$r$7$F$$$J$$>l9g!"(BSummary mode $B$K$OLa$j$^$;(B
-$B$s!#(B@refill
-
-(*2) $B<B:]$NF0:n$OBP1~$9$k(B method $B$K0M$j$^$9!#(B
-@end quotation
-
-
-
-@node Concept Index, Function Index, mime-view-mode, Top
-@chapter $B35G0:w0z(B
-
-@printindex cp
-
-@node Function Index, Variable Index, Concept Index, Top
-@chapter $B4X?t:w0z(B
-
-@printindex fn
-
-@node Variable Index,  , Function Index, Top
-@chapter $BJQ?t:w0z(B
-
-@printindex vr
-@bye
diff --git a/mime-view.el b/mime-view.el
index 97a678d..e11e2dd 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -981,22 +981,22 @@ button-2	Move to point under the mouse cursor
 (autoload 'mime-preview-play-current-entity "mime-play"
   "Play current entity." t)
 
-(defun mime-preview-extract-current-entity ()
+(defun mime-preview-extract-current-entity (&optional ignore-examples)
   "Extract current entity into file (maybe).
 It decodes current entity to call internal or external method as
 \"extract\" mode.  The method is selected from variable
 `mime-acting-condition'."
-  (interactive)
-  (mime-preview-play-current-entity "extract")
+  (interactive "P")
+  (mime-preview-play-current-entity ignore-examples "extract")
   )
 
-(defun mime-preview-print-current-entity ()
+(defun mime-preview-print-current-entity (&optional ignore-examples)
   "Print current entity (maybe).
 It decodes current entity to call internal or external method as
 \"print\" mode.  The method is selected from variable
 `mime-acting-condition'."
-  (interactive)
-  (mime-preview-play-current-entity "print")
+  (interactive "P")
+  (mime-preview-play-current-entity ignore-examples "print")
   )
 
 
diff --git a/semi-def.el b/semi-def.el
index fd7dac1..35862c2 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -29,7 +29,7 @@
 (eval-when-compile (require 'cl))
 
 
-(defconst mime-user-interface-version '("WEMI" "Katahama" 1 8 2)
+(defconst mime-user-interface-version '("WEMI" "Hara" 1 8 4)
   "Implementation name, version name and numbers of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"