From d4670530ed58acaa1e7fd1e7fb53fdc202af8464 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 21 Oct 1998 01:05:54 +0000 Subject: [PATCH] Sync up with the latest semi-1_10. --- ChangeLog | 23 +++++++++++++++++++++++ README.en | 2 +- mime-edit.el | 9 +++++---- mime-view.el | 18 +++++++++--------- semi-def.el | 2 +- 5 files changed, 39 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index ddac0e0..46a092e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,26 @@ +1998-10-20 MORIOKA Tomohiko + + * 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 + + * mime-edit.el (mime-edit-decode-buffer): Convert encoding to + lower case. + +1998-10-19 MORIOKA Tomohiko + + * 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 * 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)) -- 1.7.10.4