From: yamaoka <yamaoka>
Date: Mon, 19 Oct 1998 00:46:24 +0000 (+0000)
Subject: 	WEMI 1.10.0 - "Shin-Kambara": Sync up with semi-1_10.
X-Git-Tag: wemi-1_10_1~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c012f1b28d323d9aae9f8dc3056e67c1d6a20e23;p=elisp%2Fsemi.git

	WEMI 1.10.0 - "Shin-Kambara": Sync up with semi-1_10.
---

diff --git a/ChangeLog b/ChangeLog
index df71b4e..ddac0e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,37 @@
+1998-10-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-edit.el (mime-edit-decode-buffer): Call
+	`mule-caesar-region' for text/x-rot13-47-48 entity.
+
+1998-09-22  Shozo UEHARA      <uehara@eken.phys.nagoya-u.ac.jp>
+
+	* mime-play.el (mime-raw-play-entity): Initialize `max-escore' by
+	0. <cf. [tm-ja:3432]>
+
+1998-10-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* NEWS (Changes in SEMI 1.10): New section.
+
+	* NEWS (Changes in SEMI 1.9): New section.
+
+	* NEWS (User-Agent field): New subsection.
+
+1998-10-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-play.el (mime-view-caesar): Use `mime-insert-text-content'
+	instead of `mime-text-insert-decoded-body'.
+
+	* mime-w3.el (mime-preview-text/html): Use
+	`mime-insert-text-content' instead of
+	`mime-text-insert-decoded-body'.
+
+	* mime-text.el: Abolish function `mime-text-insert-decoded-body'.
+	(mime-display-text/plain): Use `mime-insert-text-content' instead
+	of `mime-text-insert-decoded-body'.
+	(mime-display-text/richtext): Likewise.
+	(mime-display-text/enriched): Likewise.
+
+
 1998-10-14  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* WEMI: Version 1.9.1 (Fujikawa) released.
@@ -77,7 +111,7 @@
 	`mime-product-name', `mime-product-version' and
 	`mime-product-code-name'.
 
-	* semi-def.el (mime-user-interface-product): New variable; abolish
+	* semi-def.el (mime-user-interface-product): New constant; abolish
 	`mime-user-interface-version'.
 
 1998-10-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
diff --git a/NEWS b/NEWS
index febedc3..50bf1d8 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,46 @@
 SEMI NEWS --- history of major-changes.
 Copyright (C) 1998 Free Software Foundation, Inc.
 
+* Changes in SEMI 1.10
+
+** Function `mime-text-insert-decoded-body' was abolished
+
+  SEMI 1.9 uses `mime-insert-text-content' of FLIM 1.11 API instead of
+`mime-text-insert-decoded-body'.
+
+  Now `mime-view-caesar' does not run `mime-text-decode-hook'.
+
+
+* Changes in SEMI 1.9
+
+** User option `mime-encoding-list'
+
+  SEMI 1.9 requires FLIM 1.10 API.  In FLIM 1.10 API, variable
+`mime-file-encoding-method-alist' was abolished.  If you want to use
+non-standard Content-Transfer-Encoding to insert a file into sending
+message, please edit new user option `mime-encoding-list' instead of
+`mime-file-encoding-method-alist'.
+
+
+** Constant `mime-user-interface-product'
+
+  Constant `mime-user-interface-version' was renamed to
+`mime-user-interface-product'.  Notice that data format is changed
+too.
+
+  FLIM 1.10 API provides following macros to access a slot of the new
+data format:
+
+     mime-product-name (product)
+
+     mime-product-version (product)
+
+     mime-product-code-name (product)
+
+Please use them to get elements of the constant
+`mime-user-interface-product'.
+
+
 * Changes in SEMI 1.8
 
 ** Don't use "file" command to detect content of entity
@@ -39,6 +79,15 @@ value were ignored.  On the other hand,
 `request-partial-message-method' is required to return structure of
 message at current summary line.  Format of it is mime-entity.
 
+
+** User-Agent field
+
+  MIME-Edit inserts User-Agent field instaed of X-Emacs field if
+`mime-edit-insert-user-agent-field' is not nil.  Contents of
+User-Agent is specified by mime-edit-user-agent-value'.
+
+  X-Emacs field related features were abolished.
+
 
 * Changes in SEMI 1.7
 
diff --git a/VERSION b/VERSION
index 4d0280b..09b16cd 100644
--- a/VERSION
+++ b/VERSION
@@ -67,7 +67,7 @@
 1.8.6	Fukuoka			$(BJ!2,(B
 1.9.0	Isurugi			$(B@PF0(B
 1.9.1	Kurikara		$(B6fMx2@Me(B
------	Tsubata			$(BDEH((B
+1.10.0	Tsubata			$(BDEH((B
 -----	Morimoto		$(B?9K\(B
 -------	Higashi-Kanazawa	$(BEl6bBt(B
 -------	Kanazawa		$(B6bBt(B		; <=> $(BKLN&E4F;(B $(BKLE46bBt(B
@@ -128,46 +128,46 @@
 1.8.6	Yoshiwara		$(B5H86(B	; = $(B3YFnE4F;(B
 1.9.0	Fuji			$(BIY;N(B	; = JR $(B?H1d@~(B
 1.9.1	Fujikawa		$(BIY;N@n(B
------	Shin-Kambara		$(B?73w86(B
------	Kambara			$(B3w86(B
------	Yui			$(BM3Hf(B
------	Okitsu			$(B6=DE(B
------	Shimizu			$(B@6?e(B
------	Kusanagi		$(BApFe(B
------	Shizuoka		$(B@E2,(B
------	Abekawa			$(B0BG\@n(B
------	Mochimune		$(BMQ=!(B
------	Yaizu			$(B>FDE(B
------	Nishi-Yaizu		$(B@>>FDE(B
------	Fijieda			$(BF#;^(B
------	Rokug-Dò-A			$(BO;9g(B
------	Shimada			$(BEgED(B
------	Kanaya			$(B6bC+(B	; = $(BBg0f@nE4F;(B
------	Kikugawa		$(B5F@n(B
------	Kakegawa		$(B3]@n(B	; = $(BE7N5IML>8PE4F;(B
+1.10.0	Shin-Kambara		$(B?73w86(B
+------	Kambara			$(B3w86(B
+------	Yui			$(BM3Hf(B
+------	Okitsu			$(B6=DE(B
+------	Shimizu			$(B@6?e(B
+------	Kusanagi		$(BApFe(B
+------	Shizuoka		$(B@E2,(B
+------	Abekawa			$(B0BG\@n(B
+------	Mochimune		$(BMQ=!(B
+------	Yaizu			$(B>FDE(B
+------	Nishi-Yaizu		$(B@>>FDE(B
+------	Fijieda			$(BF#;^(B
+------	Rokug-Dò-A			$(BO;9g(B
+------	Shimada			$(BEgED(B
+------	Kanaya			$(B6bC+(B	; = $(BBg0f@nE4F;(B
+------	Kikugawa		$(B5F@n(B
+------	Kakegawa		$(B3]@n(B	; = $(BE7N5IML>8PE4F;(B
 :	:			:
------	Kanayama		$(B6b;3(B	; =$(B!J(BJR $(BCf1{K\@~!K(B
------	Ot-Dòbashi-A		$(BHxF,66(B
------	Nagoya			$(BL>8E20(B	; = JR $(B4X@>K\@~!J!&Cf1{K\@~!K(B
+------	Kanayama		$(B6b;3(B	; =$(B!J(BJR $(BCf1{K\@~!K(B
+------	Ot-Dòbashi-A		$(BHxF,66(B
+------	Nagoya			$(BL>8E20(B	; = JR $(B4X@>K\@~!J!&Cf1{K\@~!K(B
 :	:			:
------	Gifu			$(B4tIl(B	; = JR $(B9b;3K\@~(B
+------	Gifu			$(B4tIl(B	; = JR $(B9b;3K\@~(B
 :	:			:
------	Samegai			$(B@C%v0f(B
+------	Samegai			$(B@C%v0f(B
 ;;-------------------------------------------------------------------------
 ;;	West Japan Railway	$(B@>F|K\N95RE4F;(B	http://www.westjr.co.jp/
 ;;-------------------------------------------------------------------------
------	Maibara			$(BJF86(B	; = JR $(BKLN&K\@~(B
+------	Maibara			$(BJF86(B	; = JR $(BKLN&K\@~(B
 :	:			:
------	Kusatsu			$(BApDE(B	; = JR $(BApDE@~(B
+------	Kusatsu			$(BApDE(B	; = JR $(BApDE@~(B
 :	:			:
------	Yamashina		$(B;32J(B	; = JR $(B8P@>@~(B
------	Ky-Dòto-A			$(B5~ET(B	; = JR $(BF`NI@~!&;31"K\@~(B
+------	Yamashina		$(B;32J(B	; = JR $(B8P@>@~(B
+------	Ky-Dòto-A			$(B5~ET(B	; = JR $(BF`NI@~!&;31"K\@~(B
 					; <=> $(B6aE4(B $(B5~ET@~!"5~ET;T8rDL6I(B $(B1(4]@~(B
 :	:			:
------	-DÒsaka-A			$(BBg:e(B	; = JR $(BBg:e4D>u@~(B <=> JR $(BEl@>@~(B $(BKL?7CO(B
+------	-DÒsaka-A			$(BBg:e(B	; = JR $(BBg:e4D>u@~(B <=> JR $(BEl@>@~(B $(BKL?7CO(B
 					;   <=> $(BBg:e;T8rDL6I!":e?@!":e5^(B $(BG_ED(B
 :	:			:
------	K-Dòbe-A			$(B?@8M(B	; = JR $(B;3M[K\@~(B
+------	K-Dòbe-A			$(B?@8M(B	; = JR $(B;3M[K\@~(B
 
 
 [REMI version names]
diff --git a/mime-edit.el b/mime-edit.el
index eab91e7..ff83978 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2689,6 +2689,10 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 			   (match-end 0)
 			 (point-min)
 			 )))
+		  (if (and (eq type 'text)
+			   (eq stype 'x-rot13-47-48))
+		      (mule-caesar-region he (point-max))
+		    )
 		  (if (= (point-min) 1)
 		      (progn
 			(goto-char he)
diff --git a/mime-play.el b/mime-play.el
index 2e921fb..11fc355 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -229,7 +229,7 @@ specified, play as it.  Default MODE is \"play\"."
 	(if (cdr ret)
 	    (let ((rest ret)
 		  (max-score 0)
-		  max-escore
+		  (max-escore 0)
 		  max-examples
 		  max-situations)
 	      (while rest
@@ -705,7 +705,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
       )
     (setq buffer-read-only nil)
     (erase-buffer)
-    (mime-text-insert-decoded-body entity)
+    (mime-insert-text-content entity)
     (mule-caesar-region (point-min) (point-max))
     (set-buffer-modified-p nil)
     (set-buffer mother)
diff --git a/mime-text.el b/mime-text.el
index e107222..37ba1c6 100644
--- a/mime-text.el
+++ b/mime-text.el
@@ -28,39 +28,14 @@
 (autoload 'widget-convert-text "wid-edit")
 
 
-;;; @ code conversion
-;;;
-
-(defun mime-text-insert-decoded-body (entity)
-  "Insert text body of ENTITY in SITUATION.
-It decodes MIME-encoding then code-converts as MIME-charset.
-MIME-encoding is value of field 'encoding of SITUATION.  It must be
-'nil or string.  MIME-charset is value of field \"charset\" of
-SITUATION.  It must be symbol."
-  (let ((str (mime-entity-content entity)))
-    (insert
-     (if (and (mime-entity-cooked-p entity)
-	      (member (mime-entity-encoding entity)
-		      '(nil "7bit" "8bit" "binary")))
-	 str
-       (decode-mime-charset-string str
-				   (or (mime-content-type-parameter
-					(mime-entity-content-type entity)
-					"charset")
-				       default-mime-charset)
-				   'CRLF)
-       )))
-  (run-hooks 'mime-text-decode-hook)
-  )
-
-
 ;;; @ content filters for mime-text
 ;;;
 
 (defun mime-display-text/plain (entity situation)
   (save-restriction
     (narrow-to-region (point-max)(point-max))
-    (mime-text-insert-decoded-body entity)
+    (mime-insert-text-content entity)
+    (run-hooks 'mime-text-decode-hook)
     (goto-char (point-max))
     (if (not (eq (char-after (1- (point))) ?\n))
 	(insert "\n")
@@ -72,7 +47,8 @@ SITUATION.  It must be symbol."
 (defun mime-display-text/richtext (entity situation)
   (save-restriction
     (narrow-to-region (point-max)(point-max))
-    (mime-text-insert-decoded-body entity)
+    (mime-insert-text-content entity)
+    (run-hooks 'mime-text-decode-hook)
     (let ((beg (point-min)))
       (remove-text-properties beg (point-max) '(face nil))
       (richtext-decode beg (point-max))
@@ -81,7 +57,8 @@ SITUATION.  It must be symbol."
 (defun mime-display-text/enriched (entity situation)
   (save-restriction
     (narrow-to-region (point-max)(point-max))
-    (mime-text-insert-decoded-body entity)
+    (mime-insert-text-content entity)
+    (run-hooks 'mime-text-decode-hook)
     (let ((beg (point-min)))
       (remove-text-properties beg (point-max) '(face nil))
       (enriched-decode beg (point-max))
diff --git a/mime-w3.el b/mime-w3.el
index fec612c..d9c1948 100644
--- a/mime-w3.el
+++ b/mime-w3.el
@@ -51,7 +51,8 @@
     (mime-save-background-color
      (save-restriction
        (narrow-to-region p p)
-       (mime-text-insert-decoded-body entity)
+       (mime-insert-text-content entity)
+       (run-hooks 'mime-text-decode-hook)
        (w3-region p (point-max))
        (mime-put-keymap-region p (point-max) w3-mode-map)
        ))))
diff --git a/semi-def.el b/semi-def.el
index aefe191..48637c3 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product '["WEMI" (1 9 1) "Fujikawa"]
+(defconst mime-user-interface-product '["WEMI" (1 10 0) "Shin-Kambara"]
   "Implementation name, version name and numbers of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"