Sync up with semi-1_13.

diff --git a/ChangeLog b/ChangeLog
index 5adad38..4158bbd 100644 (file)
--- 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 (file)
--- a/VERSION
+++ b/VERSION
@@ -80,6 +80,7 @@
 1.13.4 Terai                   \e$(B;{0f\e(B
 1.13.5 Meih\e-Dò\e-A                     \e$(BL@Jv\e(B
 1.13.6 Komatsu                 \e$(B>.>>\e(B
+1.13.7 Awazu                   \e$(B0@DE\e(B
 :      :                       :
 -------        Tsuruga                 \e$(BFX2l\e(B             ; = JR \e$(B>.IM@~\e(B
 -------        Shin-Hikida             \e$(B?7I%ED\e(B
@@ -148,7 +149,7 @@
 1.13.4 Nishi-Yaizu             \e$(B@>>FDE\e(B
 1.13.5 Fijieda                 \e$(BF#;^\e(B
 1.13.6 Rokug\e-Dò\e-A                    \e$(BO;9g\e(B
------- Shimada                 \e$(BEgED\e(B
+1.13.7 Shimada                 \e$(BEgED\e(B
 ------ Kanaya                  \e$(B6bC+\e(B     ; = \e$(BBg0f@nE4F;\e(B
 ------ Kikugawa                \e$(B5F@n\e(B
 ------ Kakegawa                \e$(B3]@n\e(B     ; = \e$(BE7N5IML>8PE4F;\e(B

diff --git a/mime-view.el b/mime-view.el
index 04efc7d..003c37d 100644 (file)
--- 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 (file)
--- 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"