Sync up with the latest semi-1_10.

diff --git a/ChangeLog b/ChangeLog
index ddac0e0..46a092e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,26 @@
+1998-10-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * README.en (Required environment): Modify to require APEL 9.5 and
+       FLIM 1.11.1.
+
+       * mime-edit.el: - Don't require emu.
+                       - Require invisible.
+
+       * semi-def.el: Require poe instead of emu.
+
+1998-10-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mime-edit.el (mime-edit-decode-buffer): Convert encoding to
+       lower case.
+
+1998-10-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mime-view.el (mime-view-ignored-field-list): Modify each element
+       of initial value to include `:'.
+       (mime-view-visible-field-list): Likewise.
+       (mime-display-entity): Use `mime-insert-header' instead of
+       `mime-insert-decoded-header'.
+
 1998-10-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * mime-edit.el (mime-edit-decode-buffer): Call

diff --git a/README.en b/README.en
index 12efc58..2d21fca 100644 (file)
--- a/README.en
+++ b/README.en
@@ -44,7 +44,7 @@ Required environment
   19.14.  WEMI also does not support Emacs 19.29 to 19.34, XEmacs
   19.15 or XEmacs 20.2 without mule, but WEMI may work with them.
 
-  SEMI requires APEL (9.1 or later) and FLIM (1.10.1 or later)
+  SEMI requires APEL (9.5 or later) and FLIM (1.11.1 or later)
   package.  Please install them before installing it.  APEL package is
   available at:
 

diff --git a/mime-edit.el b/mime-edit.el
index ff83978..b07cf72 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -107,13 +107,13 @@
 
 ;;; Code:
 
-(require 'emu)
 (require 'sendmail)
 (require 'mail-utils)
 (require 'mel)
 (require 'mime-view)
 (require 'signature)
 (require 'alist)
+(require 'invisible)
 
 
 ;;; @ version
@@ -2665,9 +2665,10 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
                            (hbeg (match-end 0))
                            (end (std11-field-end)))
                        (setq encoding
-                             (eliminate-top-spaces
-                              (std11-unfold-string
-                               (buffer-substring hbeg end))))
+                             (downcase
+                              (eliminate-top-spaces
+                               (std11-unfold-string
+                                (buffer-substring hbeg end)))))
                        (if (or charset (eq type 'text))
                            (progn
                              (delete-region beg (1+ end))

diff --git a/mime-view.el b/mime-view.el
index d4b1e54..9b1c31e 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -295,15 +295,15 @@ SYMBOL must be major mode in raw-buffer or t.  t means default.
 Interface of FUNCTION must be (ENTITY SITUATION).")
 
 (defvar mime-view-ignored-field-list
-  '(".*Received" ".*Path" ".*Id" "References"
-    "Replied" "Errors-To"
-    "Lines" "Sender" ".*Host" "Xref"
-    "Content-Type" "Precedence"
-    "Status" "X-VM-.*")
+  '(".*Received:" ".*Path:" ".*Id:" "^References:"
+    "^Replied:" "^Errors-To:"
+    "^Lines:" "^Sender:" ".*Host:" "^Xref:"
+    "^Content-Type:" "^Precedence:"
+    "^Status:" "^X-VM-.*:")
   "All fields that match this list will be hidden in MIME preview buffer.
 Each elements are regexp of field-name.")
 
-(defvar mime-view-visible-field-list '("Dnas.*" "Message-Id")
+(defvar mime-view-visible-field-list '("^Dnas.*:" "^Message-Id:")
   "All fields that match this list will be displayed in MIME preview buffer.
 Each elements are regexp of field-name.")
 
@@ -682,9 +682,9 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
       (when header-is-visible
        (if header-presentation-method
            (funcall header-presentation-method entity situation)
-         (mime-insert-decoded-header entity
-                                     mime-view-ignored-field-list
-                                     mime-view-visible-field-list))
+         (mime-insert-header entity
+                             mime-view-ignored-field-list
+                             mime-view-visible-field-list))
        (goto-char (point-max))
        (insert "\n")
        (run-hooks 'mime-display-header-hook)

diff --git a/semi-def.el b/semi-def.el
index 48637c3..c5d0f58 100644 (file)
--- a/semi-def.el
+++ b/semi-def.el
@@ -24,7 +24,7 @@
 
 ;;; Code:
 
-(require 'emu)
+(require 'poe)
 
 (eval-when-compile (require 'cl))