From: yamaoka <yamaoka>
Date: Wed, 21 Oct 1998 01:05:54 +0000 (+0000)
Subject: Sync up with the latest semi-1_10.
X-Git-Tag: wemi-1_10_1~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d4670530ed58acaa1e7fd1e7fb53fdc202af8464;p=elisp%2Fsemi.git

Sync up with the latest semi-1_10.
---

diff --git a/ChangeLog b/ChangeLog
index ddac0e0..46a092e 100644
--- 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
--- 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
--- 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
--- 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
--- a/semi-def.el
+++ b/semi-def.el
@@ -24,7 +24,7 @@
 
 ;;; Code:
 
-(require 'emu)
+(require 'poe)
 
 (eval-when-compile (require 'cl))