From 59ea8227a1751abe1c9b0fb3c8cca0161338fb89 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 30 Sep 1999 05:48:58 +0000
Subject: [PATCH] Sync up with semi-1_13.

---
 ChangeLog    |    8 ++++++++
 VERSION      |    3 ++-
 mime-view.el |   27 ++++++++-------------------
 semi-def.el  |    2 +-
 4 files changed, 19 insertions(+), 21 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5adad38..4158bbd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 1999-09-29  MORIOKA Tomohiko  <tomo@m17n.org>
 
+	* mime-view.el (mime-display-multipart/mixed): Share cell of
+	`major-mode'.
+	(mime-display-multipart/alternative): Likewise.
+	(mime-display-entity): Refer `major-mode' value of a situation
+	instead of buffer-local-variable `major-mode'.
+
+1999-09-29  MORIOKA Tomohiko  <tomo@m17n.org>
+
 	* mime-play.el (mime-preview-play-current-entity): Use
 	text-property `mime-view-situation' as the initial value of
 	acting-situation to add major-mode.
diff --git a/VERSION b/VERSION
index 1b629b7..9c1fa27 100644
--- a/VERSION
+++ b/VERSION
@@ -80,6 +80,7 @@
 1.13.4	Terai			$(B;{0f(B
 1.13.5	Meih-Dò-A			$(BL@Jv(B
 1.13.6	Komatsu			$(B>.>>(B
+1.13.7	Awazu			$(B0@DE(B
 :	:			:
 -------	Tsuruga			$(BFX2l(B		; = JR $(B>.IM@~(B
 -------	Shin-Hikida		$(B?7I%ED(B
@@ -148,7 +149,7 @@
 1.13.4	Nishi-Yaizu		$(B@>>FDE(B
 1.13.5	Fijieda			$(BF#;^(B
 1.13.6	Rokug-Dò-A			$(BO;9g(B
-------	Shimada			$(BEgED(B
+1.13.7	Shimada			$(BEgED(B
 ------	Kanaya			$(B6bC+(B	; = $(BBg0f@nE4F;(B
 ------	Kikugawa		$(B5F@n(B
 ------	Kakegawa		$(B3]@n(B	; = $(BE7N5IML>8PE4F;(B
diff --git a/mime-view.el b/mime-view.el
index 04efc7d..003c37d 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -212,14 +212,6 @@ mother-buffer."
 	      (cons (cons 'encoding (or (mime-entity-encoding entity)
 					"7bit"))
 		    situation)))
-
-    ;; major-mode
-    ;; (or (assq 'major-mode situation)
-    ;;     (setq situation
-    ;;           (cons (cons 'major-mode
-    ;;                       (with-current-buffer (mime-entity-buffer entity)
-    ;;                         major-mode))
-    ;;                 situation)))
     
     situation))
 
@@ -542,14 +534,12 @@ Each elements are regexp of field-name.")
 
 (defun mime-display-multipart/mixed (entity situation)
   (let ((children (mime-entity-children entity))
-	(original-major-mode (cdr (assq 'major-mode situation)))
+	(original-major-mode-cell (assq 'major-mode situation))
 	(default-situation
 	  (cdr (assq 'childrens-situation situation))))
-    (if original-major-mode
+    (if original-major-mode-cell
 	(setq default-situation
-	      (cons (cons 'major-mode original-major-mode)
-		    default-situation))
-      )
+	      (cons original-major-mode-cell default-situation)))
     (while children
       (mime-display-entity (car children) nil default-situation)
       (setq children (cdr children))
@@ -573,18 +563,16 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 
 (defun mime-display-multipart/alternative (entity situation)
   (let* ((children (mime-entity-children entity))
-	 (original-major-mode (cdr (assq 'major-mode situation)))
+	 (original-major-mode-cell (assq 'major-mode situation))
 	 (default-situation
 	   (cdr (assq 'childrens-situation situation)))
 	 (i 0)
 	 (p 0)
 	 (max-score 0)
 	 situations)
-    (if original-major-mode
+    (if original-major-mode-cell
 	(setq default-situation
-	      (cons (cons 'major-mode original-major-mode)
-		    default-situation))
-      )
+	      (cons original-major-mode-cell default-situation)))
     (setq situations
 	  (mapcar (function
 		   (lambda (child)
@@ -769,7 +757,8 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	   (eq (cdr (assq 'header situation)) 'visible))
 	  (header-presentation-method
 	   (or (cdr (assq 'header-presentation-method situation))
-	       (cdr (assq major-mode mime-header-presentation-method-alist))))
+	       (cdr (assq (cdr (assq 'major-mode situation))
+			  mime-header-presentation-method-alist))))
 	  (body-presentation-method
 	   (cdr (assq 'body-presentation-method situation)))
 	  (children (mime-entity-children entity)))
diff --git a/semi-def.el b/semi-def.el
index edff01b..29dd2a4 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product ["SEMI" (1 13 6) "Komatsu"]
+(defconst mime-user-interface-product ["SEMI" (1 13 7) "Awazu"]
   "Product name, version number and code name of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
-- 
1.7.10.4