From: akr <akr>
Date: Thu, 8 Apr 1999 04:38:51 +0000 (+0000)
Subject: Delete all files from akemi branch.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9da79b68e206dd05145ad46fd5c546741170b780;p=elisp%2Fsemi.git

Delete all files from akemi branch.
---

diff --git a/ChangeLog b/ChangeLog
deleted file mode 100644
index 704d13f..0000000
--- a/ChangeLog
+++ /dev/null
@@ -1,2908 +0,0 @@
-1998-04-04  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-analyze-comment): Swallow series of comments
-	and unterminated comment.
-
-1998-04-03  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-analyze-atom): Set enable-multibyte-characters
-	as nil when calling `string-match'.
-
-1998-03-23  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-header): Set default-mime-charset when
-	calling `eword-decode-region'.
-
-1998-03-22  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-analyze-atom): Treat encoded-word immediately
-	after an atom.
-
-1998-03-22  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-after-encoded-word-regexp): New constant.
-	eword-encoded-text-in-phrase-regexp: New constant.
-	eword-encoded-word-in-phrase-regexp: New constant.
-	eword-after-encoded-word-in-phrase-regexp: New constant.
-	eword-encoded-text-in-comment-regexp: New constant.
-	eword-encoded-word-in-comment-regexp: New constant.
-	eword-after-encoded-word-in-comment-regexp: New constant.
-	eword-encoded-text-in-quoted-string-regexp: New constant.
-	eword-encoded-word-in-quoted-string-regexp: New constant.
-	eword-after-encoded-word-in-quoted-string-regexp: New constant.
-	eword-decode-sticked-encoded-word: Update DOC-STRING.
-	eword-decode-quoted-encoded-word: Update DOC-STRING.
-	eword-decode-first-encoded-words: Add argument eword-regexp.
-	eword-decode-comment-string: Use `eword-encoded-word-in-comment-regexp'
-	and `eword-after-encoded-word-in-comment-regexp'.
-	eword-decode-quoted-string : Use
-	`eword-encoded-word-in-quoted-string-regexp' and
-	`eword-after-encoded-word-in-quoted-string-regexp'.
-	eword-decode-unstructured-string: Use `eword-encoded-word-regexp' and
-	`eword-after-encoded-word-regexp'.
-	eword-analyze-encoded-word: Use `eword-encoded-word-in-phrase-regexp'
-	and `eword-after-encoded-word-in-phrase-regexp'
-	eword-lexical-analyze: Add `default-mime-charset' and `must-unfold' to
-	key of cache.
- 
-1998-03-21  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-sticked-encoded-word): Add
-	document for relation of RFC2047.
-	(eword-decode-quoted-encoded-word): Add document for relation of
-	RFC2047.
-
-1998-03-21  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-quoted-encoded-word): New variable.
-	(eword-decode-quoted-string): New function. It has facility that
-	decode encodes-words in quoted-string.
-	(eword-analyze-quoted-string): Call `eword-decode-quoted-string'.
-
-1998-03-20  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-before-ewords-regexp): Delete.
-	(eword-decode-between-ewords-regexp): Delete.
-	(eword-decode-after-ewords-regexp): Delete.
-	(eword-decode-sticked-encoded-word): New variable.
-	(eword-decode-first-encoded-words): New function.
-	(eword-decode-comment-string): New function.
-	(eword-decode-unstructured-string): New function. It treats
-	`default-mime-charset' for parts other than encoded-words.
-	(eword-decode-string): Now, it is stub to
-	`eword-decode-unstructured-string'.
-	(eword-decode-region): Now, it is stub to
-	`eword-decode-unstructured-string'.
-	(eword-decode-header): Adapt to new `eword-decode-string'.
-	(eword-analyze-quoted-string): Call
-	`std11-wrap-as-quoted-string' first.
-	(eword-analyze-comment): Call `eword-decode-comment-string'.
-	(eword-analyze-encoded-word): Now, it is stub to
-	`eword-decode-first-encoded-words'.
-	(eword-decode-token): Adapt to new `eword-analyze-quoted-string'
-	and `eword-analyze-comment'.
-	(eword-decode-unstructured-field-body): Adapt to new
-	`eword-decode-string'
-
-1998-03-20  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-string): Treat undecodable
-	encoded-words.
-
-1998-03-19  Tanaka Akira  <akr@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-region): Treat undecodable
-	encoded-words.
-	(eword-decode-before-ewords-regexp): New variable.
-	(eword-decode-between-ewords-regexp): New variable.
-	(eword-decode-after-ewords-regexp): New variable.
-
-1998-03-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.2.0 (Nishiizumi) was released.
-
-	* NEWS: Update for SEMI 1.2.
-
-1998-03-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el: Rename 'mime-view-plain-text-preview-hook ->
-	'mime-preview-text/plain-hook.
-
-	* mime-text.el (mime-text-add-url-buttons): New function.
-	(mime-text-add-url-buttons-maybe): New function.
-
-1998-03-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el, mime-text.el, mime-image.el: Rename
- 	'mime-view-filter-for-* -> 'mime-preview-filter-for-*.
-
-1998-03-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el: Rename 'mime-decode-text-body ->
- 	'mime-text-decode-body.
-
-1998-03-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el (mime-decode-text-body): Change interface; call
- 	'mime-text-decode-hook.
-
-1998-03-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* VERSION: New file.
-
-
-1998-03-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.1.2 (Shin-Nishikanazawa) was released.
-
-1998-03-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* NEWS: Modify about 'image-format.
-
-	* mime-image.el (mime-view-filter-for-image): Refer 'image-format
-	of preview-situation instead of 'mime-view-image-converter-alist;
-	abolish variable 'mime-view-image-converter-alist.
-
-1998-03-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* NEWS: Modify about 'body-filter.
-
-1998-03-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el: Abolish 'mime-view-ps-to-gif-command.
-
-	* mime-image.el (mime-view-filter-for-image): Change interface.
-	Abolish `mime-view-filter-for-application/postscript'.
-
-	* mime-text.el (mime-view-filter-for-text/plain): Change
-	interface.
-	(mime-view-filter-for-text/richtext): Change interface.
-	(mime-view-filter-for-text/enriched): Change interface.
-
-	* mime-view.el (mime-view-display-entity): Change interface of
-	body-filter.
-
-1998-03-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el (mime-preview-condition): Set 'with-filter in
-	body-presentation-method for body-filter.
-
-	* mime-view.el (mime-view-display-entity): Call body-filter only
-	when body-presentation-method is 'with-filter.
-
-1998-03-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-display-entity): Modify to omit check
-	for body-presentation-method.
-
-1998-03-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* NEWS: Modify about `mime-preview-condition'.
-
-1998-03-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el: Set up for `mime-preview-condition' instead of
-	`mime-view-body-visible-condition' and
-	`mime-view-content-filter-alist'.
-
-	* mime-view.el (mime-preview-condition): New variable.
-	(mime-view-body-visible-p): Use `mime-preview-condition' instead
-	of `mime-view-body-visible-condition'; abolish variable
-	`mime-view-body-visible-condition'.
-	(mime-view-insert-message/partial-button): Add argument
-	`situation'.
-	(mime-view-display-entity): Use `mime-preview-condition' instead
-	of `mime-view-content-filter-alist'; don't hard-coding for
-	`message/partial-button'; abolish variable
-	`mime-view-content-filter-alist'.
-
-1998-03-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: Require 'mime-text when compiling.
-
-1998-03-21  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
-
-	* eword-decode.el (eword-lexical-analyze-internal): Fixed return
-	value.
-
-	* mime-view.el (mime-view-body-visible-condition): text media-
-	type is always visible.
-
-
-1998-03-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.1.1 (Oshino) was released.
-
-	* mime-play.el (mime-method-to-save): Must treat nil encoding as
-	7bit.
-
-1998-03-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* NEWS: Update for latest version.
-
-1998-03-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-CFG: Must set up load-path before version check codes.
-
-1998-03-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: Don't require mime-text.el; add autoload setting
-	for mime-text.el.
-	(mime-text-decoder-alist): moved from mime-text.el.
-	(mime-view-entity-separator-visible-p): New function.
-	Abolish `mime-view-display-header', `mime-view-display-body' and
-	`mime-view-entity-separator-function'.
-
-	* mime-text.el: Require mime-view (mime-text.el is autoloaded by
-	mime-view); variable `mime-text-decoder-alist' was moved to
-	mime-view.el.
-
-	* mime-play.el (mime-method-to-save): fixed.
-
-1998-03-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* NEWS: New file.
-
-
-1998-03-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.1.0 (Nonoichi) was released.
-
-1998-03-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-method-to-verify-application/pgp-signature):
-	Abolish unused local-variable `raw-buf'.
-
-	* mime-play.el (mime-raw-play-entity): fixed.
-
-	* mime-view.el (mime-preview-original-window-configuration): Use
-	`defvar' to avoid warning of byte-compiler.
-
-	* mime-view.el (mime-view-display-entity): Don't use
-	`mime-view-entity-button-function' (abolish it); use
-	`mime-root-entity-p'.
-
-1998-03-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-entity-button-visible-p): New function.
-	(mime-view-entity-button-function): Use function
- 	`mime-view-entity-button-visible-p'.
-
-	* mime-view.el (mime-raw-entity-parent): New function.
-	(mime-view-entity-button-function): Use `mime-raw-entity-parent'.
-
-	* mime-view.el (mime-view-entity-button-function): Use
- 	`mime-root-entity-p'.
-
-	* mime-parse.el (mime-root-entity-p): New function.
-
-1998-03-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-CFG: Insert version check code.
-
-1998-03-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el: Set up `mime-view-body-visible-condition' instead
- 	of `mime-view-visible-media-type-list'.
-
-	* mime-view.el (mime-view-body-visible-condition): New variable.
-	(mime-view-body-visible-p): Use `mime-view-body-visible-condition'
- 	instead of `mime-view-visible-media-type-list'.  	
-	Abolish `mime-view-visible-media-type-list'.
-
-	* mime-parse.el (mime-type/subtype-string): New function.
-	(mime-entity-type/subtype): Use `mime-type/subtype-string'.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-method-to-verify-application/pgp-signature):
-	Use `mime-raw-write-region'.
-
-	* mime-view.el (mime-raw-buffer-coding-system-alist): Move setting
-	for mh-show-mode.
-
-	* mime-play.el, mime-view.el: Rename
-	`mime-raw-coding-system-alist' ->
-	`mime-raw-buffer-coding-system-alist'.
-
-	* mime-view.el, mime-play.el: Move `mime-raw-coding-system-alist'
-	from mime-play.el to mime-view.el.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-raw-point-to-entity-node-id): Use
-	`mime-raw-find-entity-from-point'.
-	(mime-raw-point-to-entity-number): Likewise.
-
-	* mime-view.el (mime-raw-find-entity-from-point): New function.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-display-body): Change interface.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el, mime-view.el: Rename `mime-view-entity-info' ->
-	`mime-view-entity'.
-
-	* mime-view.el: Rename `mime-raw-entity-number-to-entity-info' ->
-	`mime-raw-find-entity-from-number'.
-
-	* mime-pgp.el, mime-view.el: Rename
-	`mime-raw-entity-node-id-to-entity-info' ->
-	`mime-raw-find-entity-from-node-id'.
-
-	* mime-pgp.el, mime-partial.el, mime-play.el, mime-view.el,
- 	mime-parse.el: Rename `mime-entity-info' -> `mime-entity'.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-header-visible-p): Change interface.
-	(mime-view-body-visible-p): Change interface.
-
-	* mime-view.el (mime-view-insert-entity-button): Change interface.
-	(mime-view-entity-button-function): Change interface.
-
-	* mime-view.el (mime-view-body-visible-p): Add DOC-string.
-
-	* mime-view.el: `rcnum' -> `entity-node-id'.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-method-to-verify-application/pgp-signature):
-	Don't use temporary buffer for signed entity.
-
-	* mime-pgp.el (mime-method-to-verify-application/pgp-signature):
-	Don't use temporary buffer for PGP-signature.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-method-to-verify-application/pgp-signature):
-	Use `write-region-as-binary'.
-
-	* mime-pgp.el (mime-method-to-verify-application/pgp-signature):
-	Use `mime-write-decoded-region'.
-
-	* mime-pgp.el: Rename `rmcnum' -> `mother-node-id'.
-
-1998-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-method-to-decrypt-application/pgp-encrypted):
-	Use `mime-raw-point-to-entity-node-id'; abolish `entity-number'.
-
-	* (mime-method-to-verify-application/pgp-signature): Use
-	`mime-raw-point-to-entity-node-id'; abolish `entity-number'.
-
-	* mime-pgp.el (mime-method-to-verify-multipart/signed): Use
-	`mime-raw-point-to-entity-node-id'.
-
-	* mime-view.el (mime-raw-point-to-entity-node-id): New function.
-
-	* mime-view.el, mime-pgp.el: Rename `reversed-entity-number' ->
-	`entity-node-id'.
-
-	* mime-view.el, mime-parse.el: Rename `reversed-number' ->
-	`node-id'.
-
-	* mime-pgp.el: `rcnum' -> `reversed-entity-number'.
-
-	* mime-pgp.el: `cnum' -> `entity-number'.
-
-	* mime-pgp.el: `beg' -> `start'.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mailcap.el (mailcap-look-at-field): Change field-name to symbol.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mailcap.el (mailcap-look-at-type-field): Must allow
-	"implicit-wild".
-	(mailcap-look-at-field): fixed.
-
-1998-03-13  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
-
-	* README.en (Bug reports): Modify description of tm mailing list.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el, mime-play.el: Rename
-	`mime-view-quitting-method-for-mime-show-message-mode' ->
-	`mime-preview-quitting-method-for-mime-show-message-mode'.
-
-	* mime-play.el, mime-edit.el, mime-view.el: Rename
-	`mime-view-quitting-method-alist' ->
-	`mime-preview-quitting-method-alist'.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: Rename `mime-article::write-region' ->
-	`mime-raw-write-region'.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el, mime-play.el: Rename `mime-playback-entity' ->
-	`mime-raw-play-entity'.
-
-	* mime-play.el, mime-view.el: Rename `mime-view-cinfo' ->
-	`mime-view-entity-info'.
-
-	* mime-view.el, mime-parse.el: Rename `mime-entity-info-rnum' ->
-	`mime-entity-info-reversed-number'.
-
-	* mime-view.el: Rename `mime/flatten-content-info' ->
-	`mime-raw-flatten-message-info'.
-
-	* mime-pgp.el, mime-view.el: Rename `mime-raw-rcnum-to-cinfo' ->
-	`mime-raw-reversed-entity-number-to-entity-info'.
-
-	* mime-view.el: Rename `mime-raw-cnum-to-cinfo' ->
-	`mime-raw-entity-number-to-entity-info'.
-
-	* mime-pgp.el, mime-partial.el, mime-view.el: Rename
-	`mime-raw-entity-info' -> `mime-raw-message-info'.
-
-	* mime-play.el, mime-pgp.el, mime-view.el: Rename
-	`mime-raw-point-content-number' ->
-	`mime-raw-point-to-entity-number'.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el, mime-pgp.el, mime-view.el: Rename ` mime-article/'
-	-> `mime-raw-'.
-
-	* mime-view.el: Rename `mime-view-get-original-major-mode' ->
-	`mime-preview-original-major-mode'.
-
-	* mime-view.el: Rename `mime-view-display-x-face' ->
-	`mime-preview-display-x-face'.
-
-	* mime-play.el, mime-pgp.el, mime-bbdb.el, mime-view.el: Rename
-	`mime-view-buffer' -> `mime-preview-buffer'.
-
-	* mime-play.el, mime-view.el: Rename `mime::preview/' ->
-	`mime-preview-'.
-
-	* mime-view.el: Rename `mime-view-original-major-mode' ->
-	`mime-preview-original-major-mode'.
-
-	* mime-play.el, mime-edit.el, mime-view.el: Rename
-	`mime-view-kill-buffer' -> `mime-preview-kill-buffer'.
-
-	* mime-view.el: Rename `mime-view-show-summary' ->
-	`mime-preview-show-summary'.
-
-	* mime-view.el: Rename `mime-view-quit' -> `mime-preview-quit'.
-
-	* mime-view.el: Rename `mime-view-follow-current-entity' ->
-	`mime-preview-follow-current-entity'.
-
-	* mime-view.el: Rename `mime-view-print-current-entity' ->
-	`mime-preview-print-current-entity'.
-
-	* mime-view.el (mime-view-menu-list): Modify menu.
-
-	* mime-view.el: Rename `mime-view-extract-current-entity' ->
-	`mime-preview-extract-current-entity'.
-
-	* mime-def.el, mime-play.el, mime-view.el: Rename
-	`mime-view-play-current-entity' ->
-	`mime-preview-play-current-entity'.
-
-	* mime-view.el: Rename `mime-view-previous-line-content' ->
-	`mime-preview-previous-line-entity'.
-
-	* mime-view.el: Rename `mime-view-next-line-content' ->
-	`mime-preview-next-line-entity'.
-
-	* mime-view.el: Rename `mime-view-scroll-' ->
-	`mime-preview-scroll-'.
-
-	* mime-view.el: Rename `mime-view-move-to-' ->
-	`mime-preview-move-to-'.
-
-	* mime-play.el, mime-image.el: Rename `mime-preview/' ->
-	`mime-preview-'.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-partial.el (mime-method-to-combine-message/partial-pieces):
-	Rename `mime-raw-content-info' -> `mime-raw-entity-info'.
-
-	* mime-pgp.el, mime-view.el: Rename `mime-raw-content-info' ->
-	`mime-raw-entity-info'.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-raw-content-info): Modify DOC-string.
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el: Abolish `eword-encode-RCS-ID'.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-partial.el: Rename
- 	`mime-combine-message/partials-automatically' ->
- 	`mime-method-to-combine-message/partial-pieces'.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-acting-condition): Separate type and subtype.
-
-	* mime-view.el (mime-acting-condition): Separate type and subtype.
-
-	* mime-play.el (mime-playback-entity): Separate type and subtype.
-
-
-1998-03-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.0.2 (Nonoichi-K-Dòdaimae)-A was released.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el: Rename `mime-pgp-add-keys' ->
-	`mime-method-to-add-application/pgp-keys'.
-
-	* mime-pgp.el: Rename `mime-pgp-decrypt-application/pgp-encrypted'
-	-> `mime-method-to-decrypt-application/pgp-encrypted'.
-
-	* mime-pgp.el: Rename `mime-pgp-check-application/pgp-signature'
-	-> `mime-method-to-verify-application/pgp-signature'.
-
-	* mime-pgp.el: Rename `mime-check-multipart/signed' ->
-	`mime-method-to-verify-multipart/signed'.
-
-	* mime-pgp.el: Rename `mime-process-application/pgp' ->
-	`mime-method-for-application/pgp'.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mailcap.el (mailcap-look-at-type-field): Change type and subtype
-	to symbol.
-
-	* mailcap.el (mailcap-file): New variable.
-	(mailcap-parse-file): New function.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* README.en (What's SEMI?): Remove what does SEMI stand for.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-acting-condition): Use `mime-method-to-save'
-	instead of external method "tm-file".
-
-	* mime-play.el: Rename `mime-extract-current-entity' ->
-	`mime-method-to-save'.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-ELS (semi-modules-to-compile): Abolish mime-file.el.
-
-	* mime-play.el (mime-extract-current-entity): New function; copied
-	from mime-file.el; abolish mime-file.el.
-
-	* mime-view.el (mime-acting-condition), mime-partial.el
-	(mime-combine-message/partials-automatically), mime-play.el:
-	Rename `mime-display-message/partial' ->
-	`mime-method-to-store-message/partial'.
-
-1998-03-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-acting-condition), mime-play.el: Rename
-	`mime-display-caesar' -> `mime-method-to-display-caesar'.
-
-	* mime-view.el (mime-acting-condition), mime-play.el: Rename
-	`mime-display-message/external-ftp' ->
-	`mime-method-to-display-message/external-ftp'.
-
-	* mime-view.el (mime-acting-condition), mime-play.el: Rename
-	`mime-display-message/rfc822' ->
-	`mime-method-to-display-message/rfc822'.
-
-	* mime-play.el: Rename `mime-article/make-method-args' ->
-	`mime-make-external-method-args'.
-
-	* mime-file.el: Fix setting.
-
-1998-03-11  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: Rename `mime-article/start-external-method-region'
-	-> `mime-activate-external-method'.
-
-	* mime-play.el, mime-pgp.el: Rename `mime-display-content' ->
-	`mime-playback-entity'.
-
-	* mime-file.el (mime-extract-current-entity): Use
-	`mime-write-decoded-region'.
-
-	* mime-file.el: Rename `mime-article/extract-file' ->
-	`mime-extract-current-entity'.
-
-1998-03-03  François Pinard   <pinard@iro.umontreal.ca>
-
-	* mime-edit.el (mime-edit-insert-signature): Function
- 	`mime-edit-insert-tag' is sometimes called with more arguments
- 	than it is ready to accept. (cf. [tm-en:1585])
-
-1998-03-11  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-insert-text): New optional argument
-	`subtype'.
-
-
-1998-02-28  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.0.1 (Magae) was released.
-
-1998-02-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-check-multipart/signed): New function.
-
-1998-02-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-and-fold-structured-field): Fixed.
-
-	* mime-edit.el (mime-file-types): Use `defcustom'.
-
-
-1998-02-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 1.0.0 (Nukaj-Dþtaku-mae)-A was released.
-
-	* SEMI-ELS: Remove mime-tar.el.
-
-1998-02-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-version): Use `semi-version';
-	abolish `eword-decode-RCS-ID'.
-
-	* mime-view.el (mime-view-version-string): Use `semi-version';
-	abolish `mime-view-version' and `mime-view-RCS-ID'.
-
-	* mime-edit.el (mime-edit-version-string): Use `semi-version';
-	abolish `mime-edit-version' and `mime-edit-RCS-ID'.
-
-	* mime-def.el (semi-version): New constant; abolish constant
-	`semi-version-name'.
-
-	* mime-view.el: Rename `mime-view-version-name' ->
-	`mime-view-version-string'.
-
-	* mime-edit.el: Rename `mime-edit-version-name' ->
-	`mime-edit-version-string'.
-
-	* eword-decode.el (eword-lexical-analyzers): New variable.
-	(eword-analyze-quoted-string): Add second argument.
-	(eword-analyze-domain-literal): New function.
-	(eword-analyze-spaces): New function.
-	(eword-analyze-special): New function.
-	(eword-analyze-atom): Add second argument.
-	(eword-lexical-analyze-internal): Use `eword-lexical-analyzers'.
-
-
-1998-02-17  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.118.2 (Otomaru) was released.
-
-	* eword-decode.el (eword-decode-and-unfold-structured-field): New
- 	function.
-
-	* eword-decode.el (eword-decode-and-fold-structured-field): New
- 	function.
-	(eword-decode-structured-field-body): Use it.
-	(eword-decode-header): Likewise.
-
-	* eword-decode.el (eword-decode-structured-field-body): If
- 	`START-COLUMN' is nil, it uses `mapconcat'.
-
-	* eword-decode.el (eword-decode-token): New function.
-	(eword-decode-structured-field-body): Add new optional arguments
- 	`START-COLUMN' and `MAX-COLUMN'; fill results; use function
- 	`eword-decode-token'.
-	(eword-decode-header): Specify START-COLUMN for
- 	`eword-decode-structured-field-body'.
-
-1998-02-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-header): Unfold fields including
- 	encoded-words.
-
-	* eword-decode.el (eword-decode-ignored-field-list): New variable.
-	(eword-decode-structured-field-list): New variable.
-	(eword-decode-header): Refer them.
-
-	* eword-decode.el (eword-decode-header): Don't use
- 	`eword-decode-unstructured-field-body'.
-
-1998-02-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-header): New implementation; add
- 	new argument `CODE-CONVERSION' as first argument.  Change
- 	`SEPARATOR' as second argument.
-
-
-1998-02-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.118.1 (Shijima) was released.
-
-	* README.en (Bug reports): Modified for SEMI.
-
-1998-02-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-normalize-body): Must not ignore case to
- 	search "From " in beginning of line.
-
-1998-01-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el: Comment out setting for inline Postscript
-	feature.
-
-1998-01-11  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-analyze-atom): New function.
-	(eword-lexical-analyze-internal): Use `eword-analyze-atom' instead
-	of `std11-analyze-atom'.
-
-1997-11-26  Thierry Emery     <Thierry.Emery@aar.alcatel-alsthom.fr>
-
-	* mime-edit.el (mime-edit-insert-text): Fix to avoid unexpected
- 	entering enriched-mode. (cf. [tm-ja:2697])
-
-
-1997-11-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.118 (Sodani) was released.
-
-1997-11-24  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-maybe-hide-echo-buffer): bury MIME echo
- 	buffer.
-
-1997-11-23  MORIOKA Tomohiko  <morioka@mousai.jaist.ac.jp>
-
-	* mime-view.el (mime-maybe-hide-echo-buffer): New inline function;
- 	abolish `mime-hide-echo-buffer'.
-	(mime-view-mode): Use `mime-maybe-hide-echo-buffer'.
-
-1997-11-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el: Rename `mime-article/add-pgp-keys' ->
- 	`mime-pgp-add-keys'.
-
-	* mime-pgp.el: Rename `mime-article/decrypt-pgp' ->
- 	`mime-pgp-decrypt-application/pgp-encrypted'.
-
-	* mime-pgp.el: Rename `mime-article/check-pgp-signature' ->
- 	`mime-pgp-check-application/pgp-signature'.
-
-	* mime-pgp.el: Rename `mime::article/call-pgp-to-check-signature'
- 	-> `mime-pgp-check-signature'.
-
-	* mime-pgp.el: Rename `mime-article/view-application/pgp' ->
- 	`mime-process-application/pgp'.
-
-
-1997-11-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.116 (D-Dòhòji)-A was released.
-
-1997-11-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el, mime-pgp.el, mime-partial.el: Rename
-	`mime::article/content-info' -> `mime-raw-content-info'.
-
-1997-11-11  François Pinard   <pinard@iro.umontreal.ca>
-
-	* mime-edit.el: Modify space in prompt and removespurious trailing
-	spaces in the files. (cf. [tm-en:1507])
-
-1997-11-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Rename `mime-edit-enclose-region' ->
-	`mime-edit-enclose-region-internal'.
-
-	* mime-edit.el (mime-edit-enclose-quote-region,
-	mime-edit-enclose-mixed-region, mime-edit-enclose-parallel-region,
-	mime-edit-enclose-digest-region,
-	mime-edit-enclose-alternative-region,
-	mime-edit-enclose-signed-region,
-	mime-edit-enclose-encrypted-region): Change subtype to symbol.
-
-1997-11-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-bbdb.el, semi-setup.el: Use path-util.el instead of
-	file-detect.el.
-
-1997-11-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Add group `mime' to `default-mime-charset'.
-
-1997-11-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el (eword-encode-field): Must regard MIME-Version
-	field as structured field.
-
-
-1997-11-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.115.2 (Inokuchi) was released.
-
-1997-11-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-split-message): Use `defcustom'.
-	(mime-edit-message-default-max-lines): Use `defcustom'.
-	(mime-edit-message-max-lines-alist): Use `defcustom'.
-
-1997-11-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* Makefile: Abolish `execs' and `install-execs'.
-
-1997-11-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit): New customize group.
-	(mime-ignore-preceding-spaces): Use `defcustom'.
-	(mime-ignore-trailing-spaces): Use `defcustom'.
-	(mime-ignore-same-text-tag): Use `defcustom'.
-	(mime-auto-hide-body): Use `defcustom'.
-	(mime-edit-voice-recorder): Use `defcustom'.
-	(mime-edit-mode-hook): Use `defcustom'.
-	(mime-edit-translate-hook): Use `defcustom'.
-	(mime-edit-exit-hook): Use `defcustom'.
-
-	* mime-def.el (mime): New customize group.
-	(mime-button-face): Use `defcustom'.
-	(mime-button-mouse-face): Use `defcustom'.
-
-1997-11-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-x-emacs-value): Don't add mule-version
-	if enable-multibyte-characters is nil.
-
-1997-10-31  Kazuhiro Ohta     <ohta@ele.cst.nihon-u.ac.jp>
-
-	* mime-play.el (mime-article::write-region): fixed
-	(cf. [tm-ja:2641]).
-
-1997-10-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* semi-setup.el (mime-setup-set-signature-key): Check local keymap
-	is exist or not to fix problem about
-	`gnus-summary-resend-message'.
-
-
-1997-10-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.115.1 (Oyanagi) was released.
-
-1997-10-03  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
-
-	* mime-play.el (mime-display-message/partial): Use `write-region'.
-
-	* mime-pgp.el (mime-article/check-pgp-signature): Use
-	`write-region'.
-
-	* mime-file.el (mime-article/extract-file): Use `write-region'.
-
-1997-10-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Don't use `third' (don't use cl function).
-
-	* SEMI-CFG: Add current directory to load-path.
-
-	* mime-def.el, mime-edit.el (mime-edit-insert-text): Rename
- 	`second' -> `cadr' (Don't use cl function).
-
-
-1997-09-28  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.115 (Hinomiko) was released.
-
-	* README.en: Modify for Emacs 20.2.
-
-1997-09-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el (butlast, nbutlast): Don't use `defun-maybe' for cl
-	functions.
-
-1997-09-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el (butlast): New function; imported from cl.el.
-	(nbutlast): New function; imported from cl.el.
-
-1997-09-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-cut-header): Don't use `member-if'.
-
-	* mime-def.el: Don't require cl.
-
-	* eword-encode.el: Abolish variable `eword-generate-X-Nsubject'.
-	(eword-encode-header): Abolish X-Nsubject field generator.
-
-	* eword-encode.el (eword-find-field-encoding-method): New inline
-	function.
-	(eword-encode-header): Use it.
-
-1997-09-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el: Use `exec-installed-p' to search
-	`uncompface-program'.
-
-1997-09-24  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
-
-	* signature.el: Add doc-string to `signature-file-alist'.
-
-	* mime-bbdb.el: Remove Artur Pioro from the authors list; Recent
-	versions don't contain his code.
-
-1997-09-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: Don't use cl.
-	(mime-article/rcnum-to-cinfo): New implementation (use function
-	`mime-article/cnum-to-cinfo'); use `defsubst'.
-
-1997-09-18  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-x-emacs-value): Use `(featurep
-	'xemacs)'; add DOC-string.
-
-1997-09-17  Hisashi Miyashita <himi@bird.scphys.kyoto-u.ac.jp>
-
-	* mime-edit.el (mime-edit-x-emacs-value): Add `(Meadow-version)'
-	when running Meadow. (cf. [tm-ja:2567], [mule-win32:4339])
-
-1997-09-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-mime-version-field-for-message/partial):
-	New constant.
-	(mime-edit-insert-partial-header): Use it.
-
-
-1997-09-09  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.112 (Tsurugi) was released.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-insert-entity-button): Change interface
-	to use `media-type' and `media-subtype' instead of `ctype'.
-	(mime-view-entity-button-function): ditto.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-body-visible-p): Change interface to use
-	`media-type' and `media-subtype' instead of `ctype'.
-	(mime-view-entity-separator-function): ditto.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-display-entity): Use `media-type' and
-	`media-subtype' instead of `ctype' to compare with
-	message/partial.
-
-	* mime-view.el (mime-view-follow-current-entity,
-	mime-view-display-entity, mime-view-entity-button-function): Use
-	`mime-entity-info-media-type' and `mime-entity-info-media-subtype'
-	instead of `mime-entity-info-type/subtype'.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el: Abolish macro `define-structure'.
-	
-	(make-mime-entity-info, mime-entity-info-rnum,
-	mime-entity-info-point-min, mime-entity-info-point-max,
-	mime-entity-info-parameters, mime-entity-info-encoding,
-	mime-entity-info-children): New implementation.
-	
-	(mime-entity-info-media-type, mime-entity-info-media-subtype): New
-	inline function.
-
-	* mime-view.el (mime-view-display-entity,
-	mime-article/point-content-number, mime-article/cnum-to-cinfo,
-	mime/flatten-content-info): Use `mime-entity-info-children'
-	instead of `mime::content-info/children'.
-
-	* mime-parse.el (mime-entity-info-children): New inline function.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-body-visible-p,
-	mime-view-display-entity): Use `mime-entity-info-encoding' instead
-	of `mime::content-info/encoding'.
-
-	* mime-play.el (mime-display-content): Use
-	`mime-entity-info-encoding' instead of
-	`mime::content-info/encoding'.
-
-	* mime-parse.el (mime-entity-info-encoding): New inline function.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-display-entity), mime-partial.el
-	(mime-combine-message/partials-automatically), mime-play.el
-	(mime-display-content): Use `mime-entity-info-parameters' instead
-	of `mime::content-info/parameters'.
-
-	* mime-parse.el (mime-entity-info-parameters): New inline
-	function.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-header-visible-p,
-	mime-view-body-visible-p, mime-view-entity-button-function,
-	mime-view-display-entity, mime-view-follow-current-entity),
-	mime-play.el (mime-display-content): Use
-	`mime-entity-info-type/subtype' instead of
-	`mime::content-info/type'.
-
-	* mime-parse.el (mime-entity-info-type/subtype): New inline
-	function.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-display-entity,
-	mime-article/rcnum-to-cinfo, mime-view-follow-current-entity,
-	mime-view-move-to-upper): Use `mime::content-info/rcnum' instead
-	of `mime-entity-info-rnum'.
-
-	* mime-parse.el (mime-entity-info-rnum): New inline function.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-display-entity,
-	mime-article/point-content-number,
-	mime-view-follow-current-entity), mime-play.el
-	(mime-display-content), mime-pgp.el
-	(mime-article/check-pgp-signature, mime-article/decrypt-pgp): Use
-	`mime-entity-info-point-{min|max}' instead of
-	`mime::content-info/point-{min|max}'.
-
-	* mime-parse.el (mime-entity-info-point-min): New inline function.
-	(mime-entity-info-point-max): New inline function.
-	(mime-parse-multipart): Use `mime-entity-info-point-max' instead
-	of `mime::content-info/point-max'.
-
-1997-09-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mailcap.el (mailcap-skip-comment): Check `chr' is nil.
-
-	* mime-edit.el (mime-edit-decode-buffer): Modify for new return
-	format of `mime-parse-Content-Type'.
-
-	* mime-parse.el (mime-parse-Content-Type): Change return format.
-	(mime-read-Content-Type): Modify DOC-string.
-	(make-mime-entity-info): New inline function.
-	(mime-parse-multipart): Change interface.
-	(mime-parse-message): Rename names of arguments.
-
-	* mime-def.el (mime-tspecials): Remove `.' and control-characters.
-	(mime-token-regexp): Add specification for control-characters.
-
-1997-09-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-cut-header): Use `defun' instead of
-	`defsubst'.
-
-	* mime-view.el: Rename `mime-preview/display-body' ->
-	`mime-view-display-body'.
-
-	* mime-view.el: Rename `mime-preview/display-header' ->
-	`mime-view-display-header'.
-
-1997-09-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el, mime-edit.el: Rename `mime/Content-Type' ->
-	`mime-read-Content-Type'.
-
-	* mime-parse.el (symbol-concat): New implementation.
-
-1997-08-30  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Abolish alias `last*'.
-
-	* eword-decode.el (eword-lexical-analyze): `last' of Emacs 20.0.97
-	allows two arguments.
-
-1997-08-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-lexical-analyze): Use `last*' instead of
-	`last' (for Emacs 20.0.96).
-
-	* mime-def.el (last*): New alias for old emacsen.
-
-1997-07-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el, mime-def.el: Constant
-	`mime-disposition-type-regexp' was moved from mime-def.el to
-	mime-parse.el.
-
-
-1997-07-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.97 (Naka-Tsurugi) was released.
-
-1997-07-24  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Delete unnecessary "[mime-edit.el]" from
-	DOC-strings.
-
-1997-07-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-analyze-encoded-word): cdr of return
-	value must not nil (cf.[tm-ja:2496])
-
-1997-07-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el, mime-play.el: `mime-article/view-message/rfc822'
-	-> `mime-display-message/rfc822'.
-
-1997-07-13  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el (eword-phrase-route-addr-to-rwl): Use function
-	`eword-addr-seq-to-rwl'.
-
-	* eword-encode.el: `tm-eword::phrase-route-addr-to-rwl' ->
-	`eword-phrase-route-addr-to-rwl'.
-
-	* eword-encode.el (eword-addr-seq-to-rwl): New function.
-	(eword-addr-spec-to-rwl): Use function `eword-addr-seq-to-rwl'.
-
-	* eword-encode.el (eword-addr-spec-to-rwl): New implementation.
-
-	* eword-encode.el: `tm-eword::addr-spec-to-rwl' ->
-	`eword-addr-spec-to-rwl'.
-
-1997-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el: Constant `mime::ctype-regexp' was abolished.
-
-	* mime-parse.el: Constant `mime::dtype-regexp' was abolished.
-
-	* mime-parse.el, mime-def.el: `mime/disposition-type-regexp' ->
-	`mime-disposition-type-regexp'.
-
-
-1997-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.96 (Kaga-Ichinomiya) was released.
-
-1997-07-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: (mime-edit-normalize-body):
-	- Protect "From " in beginning of line (insert `ESC ( B' before it
-	  if possible, otherwise encode by quoted-printable)
-	- canonicalize line break code for base64
-
-1997-07-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* signature.el (signature-separator): New variable.
-	(insert-signature): Insert `signature-separator' when signature is
-	inserted at end of file.
-
-1997-07-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-version-name): Add `semi-version-name'.
-
-	* mime-view.el (mime-view-version-name): New constant.
-
-	* mime-def.el (semi-version-name): New constant.
-
-1997-07-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* README.en (Required environment): Updated.
-
-1997-07-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el, mime-def.el: `mime/content-type-subtype-regexp'
-	-> `mime-media-type/subtype-regexp'.
-
-1997-07-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el, mime-def.el, mailcap.el: `mime/token-regexp' ->
-	`mime-token-regexp'.
-
-	* mime-def.el: `mime/tspecials' -> `mime-tspecials'.
-
-1997-07-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el, mime-pgp.el, mime-def.el: `mime/temp-buffer-name'
-	-> `mime-temp-buffer-name'.
-
-1997-07-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el (mime-decode-text-body): Canonicalize line break
-	code.
-
-1997-06-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mailcap.el: New file.
-
-1997-06-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el (eword-field-encoding-method-alist): Add
-	"Message-ID" as ignored.
-
-1997-06-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el (tm-eword::encode-string-1): avoid infinite loop
-	caused by long non-encoded-word element. (cf. [tm-en:1356])
-
-1997-06-24  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: `mime-preview/display-message/partial' ->
-	`mime-view-insert-message/partial-button'.
-
-	* mime-view.el (mime-preview/display-message/partial): Use
-	`mime-add-button' again.
-
-1997-06-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el: `tm-eword::lc-words-to-words' ->
-	`eword-encode-charset-words-to-words'.
-
-	* eword-encode.el (tm-eword::lc-words-to-words): New
-	implementation; function `tm-eword::parse-word' was abolished.
-
-1997-06-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el: `tm-eword::split-to-lc-words' ->
-	`eword-encode-divide-into-charset-words'.
-
-	* eword-encode.el: Function `tm-eword::parse-lc-word' was
-	abolished.
-	(tm-eword::split-to-lc-words): New implementation.
-
-1997-06-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el: `tm-eword::char-type' ->
-	`eword-encode-char-type'.
-
-	* eword-encode.el: `tm-eword::encode-encoded-text' ->
-	`eword-encode-text'
-
-	* mime-view.el (mime-view-insert-entity-button,
-	mime-preview/display-message/partial): Use `mime-insert-button'.
-	
-	(mime-view-setup-buffers): Enclose codes to display preview-buffer
-	by `(let ((inhibit-read-only t)) ...)'.
-
-	* mime-def.el (mime-insert-button): New inline function.
-
-	* mime-def.el (mime-add-button): Argument `func' was renamed to
-	`function'; Use overlay for `mime-button-mouse-face'.
-
-
-1997-06-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.92 was released.
-
-	* mime-view.el, mime-play.el, mime-partial.el:
-	`mime-article/decode-' -> `mime-display-'.
-
-	* mime-play.el (mime-display-caesar): fixed.
-
-1997-06-18  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-decode-structured-field-body): fixed.
-
-1997-06-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-decode.el (eword-lexical-analyze-cache): New variable.
-	(eword-lexical-analyze-cache-max): New variable.
-	(eword-analyze-quoted-string): New function.
-	(eword-analyze-comment): New function.
-	(eword-analyze-encoded-word): New function.
-	(eword-lexical-analyze-internal): New function.
-	(eword-lexical-analyze): New function.
-	(eword-decode-structured-field-body): New function.
-	(eword-decode-unstructured-field-body): New function.
-	(eword-extract-address-components): New function.
-
-1997-06-11  Steven L Baur     <steve@xemacs.org>
-
-	* eword-encode.el (tm-eword::char-type, tm-eword::encode-rwl,
-	tm-eword::encode-rwl): Clean up Ebola
-	infection. (cf.[tm-en:1346],[xemacs-beta:9333])
-
-
-1997-05-30  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.91 was released.
-
-Wed May 28 13:16:15 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-define-keymap): fixed problem about
-	[tab], [delete] and [backspace] keys.
-
-Tue May 27 03:26:23 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-sign-pgp-elkins): Enclose PGP-processing
-	by `as-binary-process'.
-
-1997-05-23  Steven L Baur  <steve@altair.xemacs.org>
-
-	* mime-view.el (mime-acting-condition): Add image/png
-	mime type. (cf.[tm-en:1334])
-
-	* mime-image.el: Add image/png mime type. (cf.[tm-en:1334])
-
-	* mime-edit.el (mime-file-types): Add png handling.
-	(mime-content-types): Ditto. (cf.[tm-en:1334])
-
-Fri May 23 22:13:47 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-define-keymap): Doesn't bind
-	`beginning-of-buffer' and `end-of-buffer' for "<" and ">" keys.
-
-
-1997-05-15  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.88 was released.
-
-Thu May 15 06:05:13 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* Makefile (tar): New implementation.
-
-Tue May 13 14:32:39 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-MK (config-semi): fixed.
-
-	* SEMI-CFG: Add site-lisp/apel/ even if LISPDIR is specified.
-
-Tue May 13 14:11:48 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* README.en: Add `LISPDIR'.
-
-	* Makefile (LISPDIR): New variable.
-
-	* SEMI-CFG: Setting for load-path is modified.
-
-Mon May 12 12:30:42 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-tar.el, mime-play.el, mime-pgp.el, mime-file.el,
-	mime-view.el: `mime/content-decoding-condition' ->
-	`mime-acting-condition'.
-
-
-1997-05-09  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.87 was released.
-
-Fri May  9 04:19:21 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-tar.el: `mime-viewer/uuencode-encoding-name-list' ->
-	`mime-view-uuencode-encoding-name-list'.
-
-Fri May  9 03:07:02 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Use "text/x-rot13-47-48" instead of
-	"text/x-rot13-47".
-
-	* mime-view.el (mime/content-decoding-condition): Add
-	"text/x-rot13-47-48".
-
-Fri May  9 01:26:13 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-normalize-body): Use
-	`mule-caesar-region' instead of `caesar-region'.
-
-	* mime-play.el (mime-display-caesar): Use `mule-caesar-region'
-	instead of `caesar-region'.
-
-	* mime-def.el: Add autoload for mule-caesar.el.
-
-	* mime-def.el: Function caesar-region was abolished.
-
-Thu May  8 23:31:45 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el, mime-edit.el, mime-def.el: `tm:caesar-region' ->
-	`caesar-region'.
-
-Thu May  8 22:37:47 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-define-keymap): Use
-	`set-keymap-default-binding' for XEmacs.
-
-Wed May  7 10:04:36 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el (mime-display-caesar): Don't use
-	`buffer-substring'.
-
-	* mime-play.el (mime-display-caesar): Use `view-buffer' instead of
-	`view-mode-enter'.
-
-Wed May  7 09:37:54 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: Don't require `view'.
-	
-	Constant `mime-view-text/plain-mode-map' was abolished.
-
-	Function `mime-view-text/plain-mode' and
-	`mime-view-text/plain-exit' were abolished.
-
-	(mime-display-caesar): Use `view-mode-enter mother' instead of
-	`mime-view-text/plain-mode'.
-
-Wed May  7 09:33:48 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el, mime-view.el (mime/content-decoding-condition):
-	`mime-article/decode-caesar' -> `mime-display-caesar'.
-
-Wed May  7 05:49:03 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-cut-header): fixed. (cf.[tm-ja:2386])
-
-
-1997-04-30  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI: Version 0.83 was released.
-
-Sat Apr  5 06:20:34 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Overlay is required by emu.
-
-Thu Apr  3 18:09:35 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el, mime-view.el, mime-text.el:
- 	`mime-preview/filter-' -> `mime-view-filter-'.
-
-	* mime-view.el: `mime-preview/get-original-major-mode' ->
- 	`mime-view-get-original-major-mode'.
-
-Thu Mar 27 22:16:53 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-mode): Hide mime-echo window.
-
-	* mime-view.el: Function `mime-hide-echo-buffer' was moved from
- 	mime-play.el.
-
-	* mime-play.el: Function `mime-hide-echo-buffer' was moved to
- 	mime-view.el.
-
-	* mime-play.el (mime-hide-echo-buffer): New inline function.
-
-	* mime-play.el (mime-echo-window-height): New variable.
-
-Thu Mar 27 21:48:32 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-content-end): Abolish unused local
- 	variable `beg'.
-
-Thu Mar 27 21:45:49 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-follow-current-entity): Abolish unused
- 	local variable `rc'.
-
-Thu Mar 27 21:42:08 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el (eword-encode-field): Intern down-cased
- 	field-name and use `memq' instead of `member' to detect a field is
- 	address-list or not.
-
-Thu Mar 27 21:17:25 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-article/check-pgp-signature): Use
- 	`insert-buffer-substring'.
-
-Thu Mar 27 20:59:00 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-article/check-pgp-signature):
- 	`mime-article/show-output-buffer' -> `mime-show-echo-buffer'.
-
-	* mime-play.el: `mime-article/show-output-buffer' ->
- 	`mime-show-echo-buffer'.
-
-	* mime-play.el: `mime/output-buffer-window-is-shared-with-bbdb' ->
- 	`mime-echo-window-is-shared-with-bbdb'.
-
-Thu Mar 27 20:47:14 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: Variable
- 	`mime/output-buffer-window-is-shared-with-bbdb' was moved from
- 	mime-def.el.
-
-	* mime-def.el: Variable
- 	`mime/output-buffer-window-is-shared-with-bbdb' was moved to
- 	mime-play.el.
-
-Thu Mar 27 20:40:57 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-mode): `mime/output-buffer-name' ->
- 	`mime-echo-buffer-name'.
-
-	* mime-play.el: `mime/output-buffer-name' ->
- 	`mime-echo-buffer-name'.
-
-	* mime-pgp.el (mime-article/check-pgp-signature):
- 	`mime/output-buffer-name' -> `mime-echo-buffer-name'.
-
-	* mime-def.el (mime-echo-buffer-name): Renamed from
- 	`mime/output-buffer-name'.
-
-Fri Mar 21 17:55:10 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-content-end): Abolish unused local
- 	variable `top'.
-
-	* mime-view.el: Function `mime-view-make-preview-buffer' was
- 	abolished.
-
-	* mime-view.el: `mime-view-setup-buffer' ->
- 	`mime-view-setup-buffers'.
-
-
-1997-03-18  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* MU: Version 0.40.2 was released.
-	* SEMI: Version 0.75 was released.
-
-Tue Mar 18 15:28:25 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-edit-translate-single-part-tag): Add
- 	DOC-string.
-
-Tue Mar 18 15:21:28 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: `mime::preview/original-major-mode' ->
- 	`mime-view-original-major-mode'.
-
-Tue Mar 18 15:17:48 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el, mime-view.el: `mime::preview/mother-buffer' ->
- 	`mime-mother-buffer'.
-
-Tue Mar 18 15:12:10 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el, mime-play.el, mime-edit.el, mime-view.el:
- 	`mime::preview/article-buffer' -> `mime-raw-buffer'.
-
-Tue Mar 18 14:47:23 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-tar.el, mime-play.el, mime-pgp.el, mime-bbdb.el,
- 	mime-view.el: `mime::article/preview-buffer' ->
- 	`mime-view-buffer'.
-
-Tue Mar 18 14:32:53 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: Structure `mime::preview-content-info' was
- 	abolished.
-
-	(mime-view-setup-buffer): Return only
- 	`mime::article/preview-buffer'.
-
-	(mime-view-make-preview-buffer): Don't generate
- 	preview-content-list; Return only `mime::article/preview-buffer'.
-
-	(mime-view-display-entity): Don't create
- 	`mime::preview-content-info'.
-
-	(mime-view-mode): Don't set for `mime::preview/content-list'.
-
-Tue Mar 18 13:56:18 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-partial.el (mime-combine-message/partials-automatically):
- 	Don't use preview-content-list.
-
-Tue Mar 18 13:06:09 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* semi-setup.el: Don't require mime-partial; It is autoloaded.
-
-	* mime-partial.el: `mime-article/grab-message/partials' ->
- 	`mime-combine-message/partials-automatically'.
-
-	* mime-partial.el: `mime-partial/preview-article' ->
- 	`mime-view-partial-message'.
-
-	* mime-partial.el: `mime-partial/preview-article-method-alist' ->
- 	`mime-view-partial-message-method-alist'.
-
-	* mime-play.el
- 	(mime-view-quitting-method-for-mime-show-message-mode): Don't use
- 	preview-content-list.
-
-	* mime-text.el (mime-text-decoder-alist): `mime/show-message-mode'
- 	-> `mime-show-message-mode'.
-
-	* mime-pgp.el (mime-article/view-application/pgp):
- 	`mime/show-message-mode' -> `mime-show-message-mode'.
-
-	* mime-view.el (mime-view-follow-current-entity): New
- 	implementation.
-
-Tue Mar 18 08:24:07 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: `mime-view-follow-content' ->
- 	`mime-view-follow-current-entity'.
-
-	* mime-view.el (mime-view-mode): Don't use preview-content-list to
- 	move to initial point.
-
-	* mime-view.el: Function `mime-preview/cinfo-to-pcinfo' was
- 	abolished.
-
-	* mime-view.el: Function `mime-preview/point-pcinfo' was
- 	abolished.
-
-	* mime-view.el: Function `mime-preview/point-content-number' was
- 	abolished.
-
-	* mime-play.el (mime-view-play-current-entity): New
- 	implementation.
-
-Mon Mar 17 17:18:29 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-quit): Use variable
- 	`mime::preview/original-major-mode'.
-
-	* mime-view.el (mime-view-show-summary): Use variable
- 	`mime::preview/original-major-mode'.
-
-	* mime-view.el (mime-view-scroll-down-entity): New implementation.
-
-	* mime-view.el (mime-view-scroll-up-entity): New implementation.
-
-Mon Mar 17 16:19:30 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: `mime-view-scroll-down-content' ->
- 	`mime-view-scroll-down-entity'.
-
-	* mime-view.el: `mime-view-scroll-up-content' ->
- 	`mime-view-scroll-up-entity'.
-
-	* mime-view.el (mime-view-move-to-next): New implementation.
-
-Mon Mar 17 16:03:11 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: `mime-view-next-content' ->
- 	`mime-view-move-to-next'.
-
-	* mime-view.el (mime-view-move-to-previous): New implementation.
-
-	* mime-view.el: `mime-view-previous-content' ->
- 	`mime-view-move-to-previous'.
-
-	* mime-view.el: `mime-view-up-content' ->
- 	`mime-view-move-to-upper'.
-
-Mon Mar 17 15:39:17 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el, mime-play.el: `mime/show-message-mode' ->
- 	`mime-show-message-mode'.
-
-	* mime-view.el (mime-view-up-content): New implementation.
-
-	* mime-view.el: `mime-preview/display-content' ->
- 	`mime-view-display-entity'.
-
-	* mime-view.el (mime-preview/display-content): Put
- 	`mime-view-raw-buffer' and `mime-view-cinfo' as text-property.
-
-	* mime-view.el: Variable `mime-view-visible-field-regexp' was
- 	abolished.
-
-	* mime-view.el: `mime-preview/cut-header' ->
- 	`mime-view-cut-header'.
-
-	* mime-view.el (mime-view-entity-separator-function): New
- 	implementation.
-
-	* mime-view.el: `mime-preview/default-content-separator' ->
- 	`mime-view-entity-separator-function'.
-
-Mon Mar 17 13:49:27 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-view-header-visible-p): Abolish optional
- 	argument `ctype'.
-
-	* mime-view.el (mime-view-entity-button-function): New
- 	implementation.
-
-	* mime-view.el: Variable
- 	`mime-view-content-button-ignored-ctype-list' was abolished.
-
-	* mime-view.el: `mime-preview/default-content-button-function' ->
- 	`mime-view-entity-button-function'.
-
-	* mime-view.el: Variable `mime-preview/content-button-function'
- 	was abolished.
-
-	* mime-def.el (mime-add-button): New implementation.
-
-	* mime-view.el (mime-view-insert-entity-button): modified.
-
-	* mime-view.el: `mime-preview/insert-content-button' ->
- 	`mime-view-insert-entity-button'.
-
-	* mime-view.el (mime-view-header-visible-p): Don't calculate ctype
- 	is optional argument `ctype' is not nil.
-
-Mon Mar 17 12:12:01 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: `mime-print-entity' ->
- 	`mime-view-print-current-entity'.
-
-	* mime-view.el: `mime-extract-entity' ->
- 	`mime-view-extract-current-entity'.
-
-	* mime-play.el, mime-view.el: `mime-play-entity' ->
- 	`mime-view-play-current-entity'.
-
-	* mime-view.el (mime-play-entity, mime-extract-entity,
- 	mime-print-entity): Add DOC-string.
-
-	* mime-view.el: `mime-view-print-content' -> `mime-print-entity'.
-
-	* mime-view.el: `mime-view-extract-content' ->
- 	`mime-extract-entity'.
-
-	* mime-play.el: Variable `mime-view-decoding-mode' was abolished.
-
-	* mime-play.el: Variable `mime-view-decoding-mode' was moved from
- 	mime-view.el.
-
-	* mime-view.el: Variable `mime-view-decoding-mode' was moved to
- 	mime-play.el.
-
-Mon Mar 17 05:09:05 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el: Use `mime-play-entity' instead of
- 	`mime-view-play-content'.
-
-Mon Mar 17 05:06:33 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el, mime-play.el: `mime-preview/decode-content' ->
- 	`mime-play-entity'.
-
-	* mime-view.el (mime-view-play-content, mime-view-extract-content,
- 	mime-view-print-content): Modify to use optional argument `mode'.
-
-Mon Mar 17 04:41:21 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el (mime-preview/decode-content,
- 	mime-article/decode-content): Add new optional argument `mode'.
-
-Sun Mar 16 02:23:31 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el: `mime-charset/maybe-decode-buffer' ->
- 	`mime-text-decode-buffer-maybe'.
-
-	* mime-text.el: `mime-preview/decode-text-buffer' ->
- 	`mime-decode-text-body'.
-
-	* mime-view.el (mime-view-visible-media-type-list): Add
- 	"text/rfc822-headers".
-
-Sun Mar 16 01:02:03 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el, mime-view.el:
- 	`mime-view-default-showing-Content-Type-list' ->
- 	`mime-view-visible-media-type-list'.
-
-Sun Mar 16 00:22:03 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: `mime-raw::text-decoder' -> `mime-text-decoder'.
-
-	* mime-pgp.el (mime-article/view-application/pgp):
- 	`mime-charset/decode-buffer' -> `mime-text-decode-buffer'.
-
-	* mime-text.el: `mime-charset/decode-buffer' ->
- 	`mime-text-decode-buffer'.
-
-Sat Mar 15 23:59:09 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-article/view-application/pgp):
- 	`mime-raw::text-decoder' -> `mime-text-decoder'.
-
-	* mime-text.el: `mime-raw::text-decoder' -> `mime-text-decoder'.
-
-Sat Mar 15 23:53:49 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el: Variable `mime-raw::text-decoder' was moved from
- 	mime-view.el.
-
-	* mime-view.el: Variable `mime-raw::text-decoder' was moved to
- 	mime-text.el.
-
-Sat Mar 15 22:40:50 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-article/view-application/pgp): Use
- 	`insert-buffer-substring'.
-
-Sat Mar 15 22:27:53 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-article/view-application/pgp):
- 	`mime::article/code-converter' -> `mime-raw::text-decoder'.
-
-	* mime-play.el (mime-article/view-message/rfc822):
- 	`mime::article/code-converter' -> `mime-raw::text-decoder'.
-
-	* mime-text.el (mime-preview/decode-text-buffer):
- 	`mime::article/code-converter' -> `mime-raw::text-decoder'.
-
-	* mime-view.el: `mime::article/code-converter' ->
- 	`mime-raw::text-decoder'.
-
-Sat Mar 15 21:20:02 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el (mime-article/add-pgp-keys): Abolish unused local
- 	variables `charset' and `mime::article/preview-buffer'.
-
-	* mime-pgp.el (mime-article/add-pgp-keys): Abolish unused local
- 	variable `mode'.
-
-Sat Mar 15 21:10:43 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-image.el (mime-preview/filter-for-image): Abolish unused
- 	local variable `charset'.
-
-	* mime-pgp.el (mime-article/check-pgp-signature): Abolish unused
- 	local variable `status'.
-
-	* mime-pgp.el: (mime-article/view-application/pgp,
- 	mime-article/add-pgp-keys): Abolish unused local variable
- 	`cur-buf'.
-
-	* mime-image.el (mime-preview/filter-for-image,
- 	mime-preview/filter-for-application/postscript): Abolish unused
- 	local variable `mode'.
-
-Sat Mar 15 20:56:19 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el
- 	(mime-preview/filter-for-text/richtext,
- 	mime-preview/filter-for-text/enriched): Abolish unused local
- 	variable `mode'.
-
-	* mime-text.el (mime-preview/decode-text-buffer): New
- 	implementation.
-
-	* mime-view.el (mime-view-follow-content): Abolish unused
- 	variables `f', `mid', `subj', `reply-to', `cc', `to', `from', `he'
- 	and `hb'.
-
-	* mime-edit.el (mime-edit-goto-tag): Abolish unused variable
- 	`multipart'.
-
-	* mime-file.el (mime-article/extract-file): Abolish unused local
- 	variable `the-buf'.
-
-	* mime-tar.el: Quote *autoconv*.
-
-Sat Mar 15 20:29:25 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-partial.el (mime-article/grab-message/partials): Unused
- 	local variable `mother' was abolished.
-
-	* mime-play.el (mime-article/decode-caesar): Unused local variable
- 	`cur-buf' was abolished.
-
-	* mime-play.el (mime-article/decode-message/external-ftp): Unused
- 	local variable `access-type' was abolished; Comment out `mode'.
-
-	* mime-play.el (mime-article/view-message/rfc822): Unused local
- 	variable `cur-buf' was abolished.
-
-	* mime-text.el (mime-preview/filter-for-text/richtext,
- 	mime-preview/filter-for-text/enriched): Unused local variable `m'
- 	was abolished.
-
-	* mime-parse.el (mime-parse-multipart):
-	Unused local variable `ct' was abolished.
-
-	* eword-encode.el: Require eword-decode.
-
-	* mime-image.el (mime-preview/filter-for-application/postscript):
- 	Unused local variable `m' was abolished.
-
-Sat Mar 15 19:47:27 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el: (mime-article/view-application/pgp):
- 	`mime-viewer/code-converter-alist' -> `mime-text-decoder-alist'.
-
-	* mime-pgp.el (mime-pgp-command): New variable.
-
-	(mime::article/call-pgp-to-check-signature): Use variable
- 	`mime-pgp-command'. (cf. [tm-en:1259])
-
-Sat Mar 15 19:25:25 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-pgp.el: `mime/viewer-mode' -> `mime-view-mode'.
-  	(cf. [tm-en:1259])
-
-
-1997-03-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* emu: Version 7.40.1 was released.
-	* APEL: Version 3.2 was released.
-	* bitmap-mule: Version 7.17 was released.
-	* MU: Version 0.40.1 was released.
-	* MEL: Version 6.3 was released.
-	* SEMI: Version 0.72 was released.
-
-Fri Mar 14 08:48:07 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-ELS (semi-modules-to-compile): Add mail-mime-setup.el.
-
-Fri Mar 14 08:47:06 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mail-mime-setup.el: New module.
-
-	* mime-setup.el: Only loads MUA specific setup files.
-
-	* semi-setup.el: Setting for mime-edit, signature and mu-cite were
- 	moved from mime-setup.el.
-
-	* semi-setup.el: Setting for gnus-mime was moved to
- 	gnus-mime/gnus-mime-setup.el.
-
-	* semi-setup.el: Setting for mh-e was moved to emh/emh-setup.el.
-
-	* Makefile: modified for SEMI package.
-
-Fri Mar 14 07:42:44 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-MK: Don't compile and install other packages.
-
-Fri Mar 14 06:09:23 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Definition of `mime-edit-mode' must be previous to
- 	`add-minor-mode'.
-
-	* mime-image.el (mime-preview/filter-for-image): Don't use
- 	`assoc-value'.
-
-Fri Mar 14 04:49:04 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Variable `mime-edit-prefix' and `mime-edit-map'
- 	were abolished; Use `mime-edit-mode-map' directly.
-
-	Use "C-c C-m" for enclosure commands.
-
-	Add new binding "C-c C-x s" for `mime-edit-set-sign', "C-c C-x e"
- 	for `mime-edit-set-encrypt'.
-
-Fri Mar 14 04:41:27 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* semi-setup.el: Require file-detect.
-
-Wed Mar 12 07:49:41 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-CFG: Delete variables about other packages.
-
-Mon Mar 10 15:16:26 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Variable `mime-temp-directory' was moved to
- 	mel/mel.el.
-
-1997-03-10  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-ELS (semi-modules-to-compile): Delete `mime-ftp'.
-
-	* mime-view.el (mime/content-decoding-condition): Set up for
-	`mime-article/decode-message/external-ftp'.
-
-	* semi-setup.el: tm-latex.el was abolished.
-
-	* semi-setup.el: tm-ftp is merged to mime-play.el.
-
-	* mime-play.el (mime-article/dired-function): New variable; copied
- 	from tm-ftp.el.
-
-	(mime-article/dired-function-for-one-frame,
- 	mime-article/decode-message/external-ftp): New function; copied
- 	from tm-ftp.el.
-
-1997-03-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-partial.el (mime-article/grab-message/partials): Don't use
- 	`assoc-value'.
-
-1997-03-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-play.el: Require filename.
-
-1997-03-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-setup.el: Don't check `(boundp 'epoch::version)'.
-
-	* mime-setup.el: Use `turn-on-mime-edit' instead of
- 	`mime-edit-mode'.
-
-	* mime-edit.el (mime-edit-decode-buffer): Renamed from
- 	`mime-editor::edit-again'; optional argument `code-conversion' was
- 	changed to `not-decode-text' (behavior was reversed).
-	(mime-edit-again): modified for `mime-edit-decode-buffer'.
-
-	* mime-edit.el (mime-edit-again-ignored-field-regexp): New
- 	variable.
-
-	* mime-edit.el (mime-edit-again): optional argument
- 	`code-conversion' was changed to `not-decode-text' (behavior was
- 	reversed); optional argument `no-mode' was renamed to
- 	`not-turn-on'; `mail-header-separator' was replaced to null line
- 	before converting.
-
-1997-03-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: `mime-edit-mode' -> `turn-on-mime-edit';
- 	`mime-edit-toggle-mode' -> `mime-edit-mode'.
-  	
-	Alias `mime-mode' was abolished.
-
-1997-03-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el (eword-encode-header): fixed.
-
-	* mime-edit.el: Comments was modified.
-	(mime-edit-mode): DOC-string was modified.
-
-	* mime-edit.el: Function `mime-edit-define-menu-for-emacs19' was
- 	abolished.  Buffer local variable `mime-edit-mode-old-local-map'
- 	was abolished.
-
-	* mime-edit.el: `mime-edit-minor-mime-map' ->
- 	`mime-edit-mode-map'.
-
-	* mime-edit.el: `mime-edit-mime-map' -> `mime-edit-map'.
-
-	* mime-edit.el: Function `mime-edit-define-keymap' was abolished.
-
-1997-03-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: `mime-prefix' -> `mime-edit-prefix'.
-
-1997-03-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* semi-setup.el: tm-pgp.el was already renamed to mime-pgp.el.
-
-1997-03-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el (pgp-function-alist): `tm:mc-' -> `mime-mc-'.
-
-1997-03-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el (mime-temp-directory): Refer environment variable
- 	"MIME_TMP_DIR" as default value.
-
-1997-03-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-ELS (semi-modules-to-compile): tm-latex.el and tm-html.el
- 	were abolished.
-
-	* mime-tar.el (mime-decode-message/tar), mime-play.el, mime-pgp.el
-	(mime-article/check-pgp-signature), mime-partial.el
-	(mime-article/grab-message/partials), mime-image.el, mime-edit.el
-	(mime-edit-split-and-send), mime-def.el: Variable `mime/tmp-dir'
- 	was renamed to `mime-temp-directory'.
-
-	* mime-edit.el: `mime/edit-again' was renamed to
- 	`mime-edit-again'.
-
-1997-03-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-text.el, mime-edit.el: `mime/temporary-message-mode' was
- 	renamed to `mime-temp-message-mode'.
-
-	* mime-edit.el: Draft preview feature was abolished.
-
-	* mime-edit.el (mime-transfer-level-string): Fixed DOC-string.
-
-	Buffer local variable `mime/editing-buffer' was renamed to
- 	`mime-edit-buffer'.
-
-	* mime-edit.el (mime-edit-insert-x-emacs-field): New variable.
-	(mime-edit-x-emacs-value): New variable.
-	(mime-edit-translate-body): Insert X-Emacs field if variable
- 	`mime-edit-insert-x-emacs-field' is not nil.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-view.el (mime-preview/insert-content-button): Don't use
- 	function `assoc-value'.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-bbdb.el: `mime-bbdb-' -> `mime-bbdb/'.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-MK: compile and install emu and apel.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-ELS: tm-bbdb.el was renamed to mime-bbdb.el.
-
-	* mime-bbdb.el: Renamed from tm-bbdb.el.
-
-	* SEMI-CFG (EMU_PREFIX, EMU_DIR): New variable.
-	(APEL_PREFIX, APEL_DIR, APEL_RELATIVE_DIR): New variable.
-	(load-path): Add "../apel" instead of "../tl".
-
-	* SEMI-ELS: alist.el was moved to ../apel/.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-parse.el: Require emu; Function `char-list-to-string' was
- 	abolished.
-
-	* mime-edit.el: Require emu; definitions about visible/invisible
- 	were abolished.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el: Require emu; function
- 	`find-non-ascii-charset-string' and
- 	`find-non-ascii-charset-region' were abolished.
-
-	* mime-def.el: Require atype; functions about atype were
- 	abolished.
-
-1997-03-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Require emu; Variable `running-xemacs' was
- 	abolished; Macro `defun-maybe' was abolished; Function `functionp'
- 	was abolished; Variable `charsets-mime-charset-alist',
- 	`default-mime-charset' and `mime-charset-coding-system-alist' were
- 	abolished; Function `mime-charset-to-coding-system',
- 	`charsets-to-mime-charset', `detect-mime-charset-region',
- 	`encode-mime-charset-region', `decode-mime-charset-region',
- 	`encode-mime-charset-string' and `decode-mime-charset-string' were
- 	abolished.
-
-Sat Mar  1 04:12:37 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-def.el (charsets-to-mime-charset): New function; copied
- 	from emu.el.
-
-	* eword-encode.el: Use `char-bytes' instead of `char-length'.
-
-	* mime-def.el (eliminate-top-spaces): New inline-function; copied
- 	from tl-str.el.
-
-	* mime-edit.el: Fixed about definition of visible/invisible
- 	functions for XEmacs.
-
-Sat Mar  1 03:39:01 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-edit.el (enable-invisible, end-of-invisible): New macro;
- 	copied from emu-19.el.
-	(invisible-region, invisible-p, next-visible-point): New function;
- 	copied from emu-19.el and emu-xemacs.el.
-	(visible-region): New function; copied from emu-19.el.
-		
-	* mime-edit.el (mime-edit-make-boundary): New function.
-	(mime-edit-translate-body, mime-edit-translate-region): Use
-	`mime-edit-make-boundary'.
-	
-	* mime-edit.el (replace-space-with-underline): New inline
-	function; copied from tl-str.el.
-	
-Sat Mar  1 02:07:00 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-encode.el (find-non-ascii-charset-region): New
- 	inline-function; copied from emu-e20.el.
-
-Fri Feb 28 06:46:48 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-def.el: Require cl.
-
-	* mime-view.el (mouse-button-2): New variable; copied from
- 	emu-19.el and emu-xemacs.el.
-
-	* mime-def.el (defun-maybe): New macro; copied from emu.el.
-	(functionp): New function; copied from emu.el.
-
-Fri Feb 28 05:14:54 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-play.el: Supports only Emacs/mule API.
-
-	* mime-def.el (field-unify): Fixed.
-
-	* semi-setup.el: Don't require mime-play.
-
-	* mime-def.el: Function `put-fields' were abolished.
-
-	* mime-def.el: atype functions were moved from mime-play.el.
-
-	* mime-play.el: atype functions were moved to mime-def.el.
-
-Fri Feb 28 04:50:13 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-def.el (call-after-loaded): New function; moved from
- 	semi-setup.el.
-
-	* semi-setup.el: Function `call-after-loaded' was moved to
- 	mime-def.el; require mime-def.
-
-Fri Feb 28 04:44:27 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* semi-setup.el: require mime-play instead of mime-view when
- 	compiling.
-
-Fri Feb 28 04:21:43 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* SEMI-MK: BINS were abolished.
-
-	* SEMI-CFG: require cl.
-
-	* SEMI-CFG: Variable `BIN_SRC_DIR' and `BINS' were abolished.
-
-Fri Feb 28 04:08:12 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* SEMI-MK: Renamed from TM-MK.
-
-	* SEMI-CFG: Don't require tl-misc.
-
-	* SEMI-ELS (semi-modules-to-compile): Add alist.el.
-
-Fri Feb 28 02:33:20 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-play.el (field-unify): Fixed.
-
-Fri Feb 28 02:22:38 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-setup.el, mime-image.el, mime-edit.el, mime-play.el:
- 	Require alist.
-
-	* alist.el: New module; separated from tl-list.el.
-
-	* mime-play.el: Function `put-alist' and `del-alist' were moved to
- 	alist.el.
-
-	* mime-play.el (mime-article/coding-system-alist): Use
- 	`no-conversion' instead of *noconv*.
-
-Thu Feb 27 13:48:48 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-parse.el (char-list-to-string): New inline-function; copied
- 	from emu-19.el.
-
-Thu Feb 27 13:43:38 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-parse.el (symbol-concat): New inline-function; copied from
- 	tl-str.el.
-
-	* semi-setup.el: require 'mime-view when compiling.
-
-	* mime-parse.el (regexp-*): New inline-function; copied from
- 	tl-str.el.
-
-Thu Feb 27 13:28:10 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* semi-setup.el (running-xemacs): New variable.
-
-Thu Feb 27 09:00:33 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-play.el: `mime/viewer-mode' -> `mime-view-mode'.
-
-	* mime-def.el: fixed DOC string.
-
-Thu Feb 27 08:56:45 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el: Don't require emu.
-
-	* mime-def.el (charsets-mime-charset-alist, default-mime-charset,
- 	mime-charset-coding-system-alist): New variable; copied from
- 	emu-e20.el.
-	(mime-charset-to-coding-system, detect-mime-charset-region,
- 	encode-mime-charset-region, decode-mime-charset-region,
- 	encode-mime-charset-string, decode-mime-charset-string): New
- 	function; copied from emu-e20.el.
-
-	* eword-encode.el (find-non-ascii-charset-string): New
- 	inline-function; copied from emu-e20.el.
-
-Thu Feb 27 08:36:01 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-tar.el: Don't require emu.
-
-Thu Feb 27 08:34:21 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-play.el (put-alist, del-alist): New function; copied from
- 	tl-list.el.
-	(put-fields, field-unifier-for-default, field-unifier-for-mode,
- 	field-unify, assoc-unify, get-unified-alist, delete-atype,
- 	remove-atype, replace-atype, set-atype): New function; copied from
- 	tl-atype.el.  Don't require tl-atype.
-
-Thu Feb 27 08:18:16 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* semi-setup.el (call-after-loaded): New function; imported from
- 	tl-misc.el; Don't require tl-misc.
-
-Thu Feb 27 08:10:24 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-pgp.el: Renamed from tm-pgp.el.
-
-Thu Feb 27 08:05:45 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-def.el (pgp-function-alist): tm-edit-mc.el was renamed to
- 	mime-mc.el.
-
-	* mime-mc.el: Renamed from tm-edit-mc.el.
-
-Thu Feb 27 06:38:44 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-text.el: `tm:mother-button-dispatcher' ->
- 	`mime-button-mother-dispatcher'.
-	
-	* mime-def.el, mime-text.el (mime-preview/filter-for-text/plain),
- 	mime-view.el, mime-tar.el (mime-tar-set-properties):
- 	`tm:add-button' -> `mime-add-button'.
-	
-	* mime-file.el: Renamed from tm-file.el.
-
-Wed Feb 26 13:01:25 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el: Must require emu.
-
-	* eword-decode.el (eword-decode-region): Unused local variable
- 	`charset', `encoding' and `text'.
-
-Wed Feb 26 07:58:29 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el (eword-decode-encoded-word): Use
- 	`add-text-properties' directly.
-
-Wed Feb 26 07:44:22 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-def.el (tm:add-button): Use `add-text-properties' directly.
-
-	* mime-def.el (running-xemacs): New variable; if it is not nil,
- 	require overlay.
-
-	* mime-def.el (regexp-or): New function.
-
-Wed Feb 26 04:57:33 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-tar.el: Renamed from tm-tar.el.
-
-	* mime-view.el (mime-view-define-keymap): `tm:button-dispatcher'
- 	-> `mime-button-dispatcher'.
-
-	* mime-def.el: `tm:button-dispatcher' -> `mime-button-dispatcher'.
-
-	* mime-def.el: `tm:mother-button-dispatcher' ->
- 	`mime-button-mother-dispatcher'.
-
-	* mime-def.el: `semi-data' -> `mime-button-data'.
-
-	* mime-def.el: `semi-callback' -> `mime-button-callback'.
-
-	* mime-def.el: `tm:mouse-face' -> `mime-button-mouse-face'.
-
-	* mime-def.el: `tm:button-face' -> `mime-button-face'.
-
-	* mime-def.el (tm:add-button, tm:button-dispatcher):
- 	`mime-callback' was renamed to `semi-callback'; `mime-data' was
- 	renamed to `semi-data'.
-
-Wed Feb 26 03:54:17 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-def.el (tm:add-button): Use `make-overlay' directly.
-
-	* mime-def.el (tm:add-button): Use `overlay-put' directly.
-
-Tue Feb 25 07:40:37 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-text.el: `tm:browse-url' was renamed to
- 	`mime-text-browse-url'.
-
-	* mime-text.el: Require browse-url.
-
-	* mime-text.el: `tm:URL-regexp' was renamed to
- 	`mime-text-url-regexp'.
-
-	* mime-text.el: Variable `tm:URL-regexp',
- 	`browse-url-browser-function' and function `tm:browse-url' were
- 	moved from mime-def.el.
-
-	* mime-def.el: Variable `tm:URL-regexp',
- 	`browse-url-browser-function' and function `tm:browse-url' were
- 	moved to mime-text.el.
-
-	* eword-decode.el: Variable `tm:warning-face' was renamed to
- 	`eword-warning-face'.
-
-	* eword-decode.el: Variable `tm:warning-face' was moved from
- 	mime-def.el.
-
-	* mime-def.el: Variable `tm:warning-face' was moved to
- 	eword-decode.el.
-
-	* mime-def.el: Function `tm:set-face-region' was abolished.
-
-	* mime-edit.el: `mime-edit-make-charset-default-encoding-alist' ->
- 	`mime-make-charset-default-encoding-alist'.
-
-	* mime-edit.el: `mime-edit-transfer-level' ->
- 	`mime-transfer-level'.
-
-	* mime-edit.el: Function `mime/encoding-name' was renamed to
- 	`mime-encoding-name'.
-
-	* mime-def.el: Function `mime/make-charset-default-encoding-alist'
- 	was abolished.
-
-	* mime-edit.el: Function `mime/encoding-name' was moved from
- 	mime-def.el.
-
-	* mime-def.el: Function `mime/encoding-name' was moved to
- 	mime-edit.el.
-
-Tue Feb 25 06:15:53 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-edit.el: Variable `mime-charset-type-list' was moved from
- 	mime-def.el.
-
-	* mime-def.el: Variable `mime-charset-type-list' was moved to
- 	mime-edit.el.
-
-Mon Feb 24 10:07:33 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-encode.el (eword-encode-header): fixed typo.
-
-Mon Feb 24 10:04:23 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-edit.el (mime-edit-insert-message, mime-edit-insert-mail,
- 	mime-editor::edit-again): Don't use `assoc-value'; Don't require
- 	tl-list.
-
-Mon Feb 24 10:00:50 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-play.el: require tl-atype.
-
-	* mime-view.el: Don't require tl-atype.
-
-Mon Feb 24 09:58:14 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-view.el: Don't require tl-misc.
-
-Mon Feb 24 09:57:03 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-encode.el (eword-encode-header): Use function `assoc-if'
- 	instead of `ASSOC'; require cl instead of tl-list.
-
-	* mime-parse.el (define-structure): New macro; Don't require
- 	tl-misc.el.
-
-	* mime-view.el (mime-preview/insert-content-button): Don't use
- 	function `assoc-value'.
-
-	* mime-view.el: Require cl instead of tl-list.
-
-	* mime-view.el: Don't require tl-str.el.
-
-Mon Feb 24 09:12:12 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-parse.el (define-structure): New macro; Don't require
- 	tl-misc.el.
-
-	* mime-view.el (mime-preview/insert-content-button): Don't use
- 	function `assoc-value'.
-
-	* mime-view.el: Require cl instead of tl-list.
-
-	* mime-view.el: Don't require tl-str.el.
-
-Mon Feb 24 09:04:48 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el: Constant
- 	`eword-Q-encoding-and-encoded-text-regexp' was abolished.
-
-	* eword-decode.el (quoted-printable-hex-chars,
- 	quoted-printable-octet-regexp, eword-Q-encoded-text-regexp,
- 	eword-Q-encoding-and-encoded-text-regexp): New constant; moved
- 	from mime-def.el.
-	
-	* mime-def.el (quoted-printable-hex-chars,
- 	quoted-printable-octet-regexp, eword-Q-encoded-text-regexp,
- 	eword-Q-encoding-and-encoded-text-regexp): Moved to
- 	eword-decode.el.
-	
-	* eword-decode.el (base64-token-regexp,
- 	base64-token-padding-regexp, eword-B-encoded-text-regexp): New
- 	constant; moved from mime-def.el.
-	
-	* mime-def.el: Constant `base64-token-regexp',
- 	`base64-token-padding-regexp' and `eword-B-encoded-text-regexp'
- 	were moved to eword-decode.el.
-	
-	* mime-def.el: Constant `eword-B-encoding-and-encoded-text-regexp'
- 	was abolished.
-
-Mon Feb 24 08:52:01 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el: Don't require emu.
-
-	* eword-decode.el: Don't require tl-str.el.
-
-	* mime-def.el (get-version-string): New inline-function; imported
- 	from tl-str.el.
-
-Mon Feb 24 02:42:24 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-setup.el: Function `mime/encode-message-header' was renamed
- 	to `eword-encode-header'.
-
-	* mime-edit.el, eword-encode.el: Function
- 	`eword-encode-message-header' was renamed to
- 	`eword-encode-header'.
-
-Mon Feb 24 02:26:02 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el (eword-decode-header): New optional argument
- 	`SEPARATOR'; Use function `std11-narrow-to-header'.
-
-	* mime-view.el, mime-setup.el, eword-decode.el: Function
- 	`eword-decode-message-header' was renamed to
- 	`eword-decode-header'.
-
-Mon Feb 24 02:17:11 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-edit.el: tm-ew-e.el was renamed to eword-encode.el;
- 	Function `mime/encode-message-header' was renamed to
- 	`eword-encode-message-header'.
-
-Mon Feb 24 01:59:28 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-view.el: Function `mime-eword/decode-string' was renamed to
- 	`eword-decode-string'.
-
-	* mime-def.el: `mime/Q-' -> `eword-Q-'.
-
-	* mime-def.el: `mime/B-' -> `eword-B-'.
-
-Mon Feb 24 01:46:59 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* eword-decode.el: Constant `eword-charset-regexp' was renamed to
- 	`mime-charset-regexp'.
-
-	* mime-def.el: Constant `mime/charset-regexp' was renamed to
- 	`mime-charset-regexp'.
-
-Mon Feb 24 01:38:18 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-view.el: Function `mime/decode-message-header' was renamed to
-	`eword-decode-message-header'.
-
-	* mime-view.el: tm-ew-d.el was renamed to eword-decode.el.
-
-Mon Feb 24 01:32:33 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-setup.el: tm-ew-d.el was renamed to eword-decode.el;
- 	Function `mime/decode-message-header' was renamed to
- 	`eword-decode-message-header'.
-
-Sat Feb 22 17:30:15 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-CFG: Renamed from TM-CFG.
-
-	* SEMI-ELS: Renamed from TM-ELS.
-
-	* eword-encode.el: `eword-exist-encoded-word-in-subject' ->
- 	`eword-in-subject-p'.
-
-	* eword-encode.el: `mime/' -> `eword-'.
-
-	* eword-encode.el (eword-generate-X-Nsubject): Don't refer
- 	variable `mime/use-X-Nsubject'.
-
-	* eword-encode.el (eword-generate-X-Nsubject): Renamed from
- 	`mime/generate-X-Nsubject'.
-
-	* eword-encode.el (eword-field-encoding-method-alist): Don't refer
- 	variable `mime/no-encoding-header-fields'.
-
-	* eword-encode.el (eword-field-encoding-method-alist): Renamed
- 	from `mime/field-encoding-method-alist'.
-
-	* eword-encode.el: Renamed from tm-ew-e.el.
-	
-	* eword-decode.el: Renamed from tm-ew-d.el.
-
-	* mime-view.el: Don't require tm-def.
-
-	* mime-parse.el: tm-def.el was renamed to mime-def.el.
-
-	* mime-def.el: Renamed from tm-def.el.
-
-1997-02-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* SEMI-ELS: Renamed from TM-ELS.
-
-1997-02-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* eword-encode.el: `eword-exist-encoded-word-in-subject' ->
- 	`eword-in-subject-p'.
-
-	* eword-encode.el: `mime/' -> `eword-'.
-
-	* eword-encode.el (eword-generate-X-Nsubject): Don't refer
- 	variable `mime/use-X-Nsubject'.
-
-	* eword-encode.el (eword-generate-X-Nsubject): Renamed from
- 	`mime/generate-X-Nsubject'.
-
-	* eword-encode.el (eword-field-encoding-method-alist): Don't refer
- 	variable `mime/no-encoding-header-fields'.
-
-	* eword-encode.el (eword-field-encoding-method-alist): Renamed
- 	from `mime/field-encoding-method-alist'.
-
-	* eword-encode.el: Renamed from tm-ew-e.el.
-	
-	* eword-decode.el: Renamed from tm-ew-d.el.
-
-	* mime-view.el: Don't require tm-def.
-
-	* mime-parse.el: tm-def.el was renamed to mime-def.el.
-
-1997-02-22  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-def.el: Renamed from tm-def.el.
-
-Fri Feb 21 08:04:42 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-view.el: Don't `suppress-keymap'.
-
-Fri Feb 21 07:42:32 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-view.el: tm-parse.el was renamed to mime-parse.el.
-
-	* mime-parse.el: Renamed from tm-parse.el.
-
-	* mime-view.el: Key-binding for function
- 	`mime-view-display-x-face' was abolished.
-
-Fri Feb 21 07:04:51 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-setup.el: modified for mime-edit.el.
-
-Fri Feb 21 07:02:52 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-edit.el: `mime-editor/' -> `mime-edit-'.
-
-Fri Feb 21 06:57:11 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-edit.el: based on tm-edit 7.105.
-
-	* semi-setup.el: tm-image.el was renamed to mime-image.el.
-
-	* mime-image.el: Renamed from tm-image.el.
-
-Fri Feb 21 05:57:53 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* semi-setup.el: Renamed from tm-setup.el.
-
-	* mime-setup.el: Setting for GNUS was abolished.
-
-	* mime-setup.el: Variable `mime-setup-use-sc' was abolished.
-
-	* mime-view.el: tm-play.el was renamed to mime-play.el.
-
-	* mime-partial.el: Renamed from tm-partial.el.
-
-	* mime-play.el: Renamed from tm-play.el.
-
-	* mime-view.el: `tm-text' is renamed to `mime-text'.
-
-	* mime-view.el (mime-view-mode): Optional argument `mother-keymap'
- 	was renamed to `default-keymap-or-function'; optional argument
- 	`default-function' was abolished.
-
-	* mime-text.el: `mime-view-code-converter-alist' ->
- 	`mime-text-decoder-alist'.
-
-	* mime-text.el: Renamed from tm-text.el.
-
-Thu Feb 20 09:02:36 1997  Tomohiko Morioka  <tmorioka@mule.etl.go.jp>
-
-	* mime-view.el: `mime/viewer-mode' -> `mime-view-mode'.
-
-	* mime-view.el: Renamed from tm-view.el.
-
-Thu Jul 11 14:57:42 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-file-types): add for patch.
-
-	* mime-edit.el: rearrangement.
-
-Wed Jul 10 12:05:05 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/normalize-body): Use function
- 	`encode-mime-charset-region' instead of
- 	`mime-charset-encode-region'.
-
-Wed Jul 10 11:51:13 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/normalize-body): fixed.
-
-	* mime-edit.el (mime-editor/define-charset):
-	Argument `charset' was changed to
-	symbol.
-	(mime-editor/choose-charset): Changed to return symbol.
-	(mime-editor/normalize-body): charset was changed to symbol.
-
-Wed Jul 10 11:22:55 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/make-charset-default-encoding-alist):
- 	New function.
-	(mime-editor/charset-default-encoding-alist): Use function
- 	`mime-editor/make-charset-default-encoding-alist'.
-	(mime-editor/toggle-transfer-level): Use function
- 	`mime-editor/make-charset-default-encoding-alist'.
-
-	* mime-edit.el (mime-editor/choose-charset): Use function
- 	`detect-mime-charset-region' instead of
- 	`mime/find-charset-region'.
-
-Tue Jul  9 13:24:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime/editor-mode): Don't toggle.
-
-	(mime-editor/toggle-mode): New function.
-
-Tue Jul  2 14:06:53 1996  Alastair Burt <burt@dfki.uni-kl.de>
-
-	* mime-edit.el: I think the following is the best way to handle
- 	tm-edit as a minor mode in XEmacs (at least in 19.14 -- I am not
- 	sure if "add-minor-mode" works the same way in earlier versions).
-  	By clicking on the mode line you can turn mime/editor-mode on or
- 	off.
-
-Thu Jun 27 14:08:17 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/encrypt-pgp-kazu): Use macro
- 	`as-binary-process'.
-
-	* mime-edit.el (mime-editor/sign-pgp-kazu): Use macro
- 	`as-binary-process'.
-
-Wed Jun 12 05:58:23 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/split-message-sender-alist): setting
- 	for `mail-mode' was moved to tm-rmail.el.
-
-Sun Jun  9 06:44:19 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Variable
- 	`mime-editor/message-default-sender-alist' was abolished.
-
-Sun Jun  9 06:40:26 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Variable `mime-editor/window-config-alist' was
- 	abolished.
-
-Sun Jun  9 06:35:10 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/split-and-send): New implementation.
-
-Mon Jun  3 17:39:10 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor::edit-again): fixed about multipart.
-
-Wed May 29 09:57:53 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/define-charset,
- 	mime-editor/set-parameter): Function `mime-set-parameter' was
- 	renamed to `mime-editor/set-parameter'.
-
-	* mime-edit.el (mime-set-parameter): New implementation
-
-	(mime-editor/translate-single-part-tag): New function.
-	(mime-editor/translate-region): Use function
- 	`mime-editor/translate-single-part-tag'.
-
-Tue May 28 15:15:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor::edit-again): fixed.
-
-	* mime-edit.el (mime/edit-again): fixed.
-
-	* mime-edit.el (mime-editor::edit-again): modified for new tag
- 	rule.
-
-	* mime-edit.el (mime-editor/insert-signature): Use variable
- 	`signature-file-name' instead of `signature'.
-
-	* mime-edit.el (mime-editor/multipart-beginning-regexp): Don't
- 	require begging new-line.
-
-	(defconst mime-editor/multipart-end-regexp): Don't require begging
- 	new-line.
-
-	(mime-editor/find-inmost): modified for new enclosure tag rule.
-
-	(mime-editor/translate-region): modified for new enclosure tag rule.
-
-	(mime-editor/enclose-region): modified for new enclosure tag rule.
-
-Sun May 26 05:04:20 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el: Add `(provide 'tm-edit)'.
-
-	Do `(run-hooks 'tm-edit-load-hook)' if variable
- 	`mime-edit-load-hook' is not bound.
-
-Sun May 26 02:10:08 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/insert-binary-buffer): fixed.
-	(mime-editor/normalize-body): fixed.
-
-Sat May 25 20:47:32 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/normalize-body): fixed.
-
-	(mime-editor/content-end): Used function `invisible-p' and
- 	`next-visible-point'.
-
-Sat May 25 20:05:20 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/insert-binary-buffer): Use function
- 	`invisible-region' instead of `mime-flag-region'.
-	(mime-editor/normalize-body): Use function `visible-region'
- 	instead of `mime-flag-region'.
-	(mime-editor/content-end): New implementation.
-
-Sat May 25 16:04:28 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/enquote-region): New command; bound to
- 	`C-c C-x q'.
-	
-	(mime-editor/menu-list): New item for function
- 	`mime-editor/enquote-region'.
-
-Sat May 25 15:52:44 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/process-multipart-1): Use function
- 	`string-equal' instead of `string='.
-
-Sat May 25 15:48:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/process-multipart-1): fixed about
- 	condition of next tag inserting.
-
-Sat May 25 15:36:58 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/enclose-region): fixed for new format.
-
-Sat May 25 15:15:03 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/insert-partial-header): Comment of
- 	Mime-Version field was modified.
-
-	* mime-edit.el (mime-editor/insert-tag): Don't insert unnecessary
- 	line break.
-
-	* mime-edit.el (mime-editor/version-name): New constant.
-
-	(mime-editor/mime-version-value): Use constant
-	`mime-editor/version-name'.
-
-	(mime-editor/insert-partial-header): Use constant
-	`mime-editor/version-name'.
-
-Fri May 24 15:16:37 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
-
-	* mime-edit.el (mime-editor/goto-tag): fixed for a tag without
- 	line break.
-	(mime-editor/normalize-body): fixed for a tag without line break.
-
-	* mime-edit.el (mime-editor/translate-region): fixed for a part
- 	starting without line break.
-
-	* mime-edit.el (mime-editor/single-part-tag-regexp): It allows any
- 	column.
-	(mime-editor/quoted-single-part-tag-regexp): New constant.
-	(mime-editor/enquote-region): New function.
-	(mime-editor/dequote-region): New function.
-	(mime-editor/process-multipart-1): Processing for ``quote''
- 	enclosure was added.
-	(mime-editor/translate-body): Use function
- 	`mime-editor/dequote-region'.
-
-	(mime-editor/mime-version-value): Comment was renamed.
-
-	* mime-edit.el: Renamed from tm-edit.el
diff --git a/Makefile b/Makefile
deleted file mode 100644
index 4122869..0000000
--- a/Makefile
+++ /dev/null
@@ -1,70 +0,0 @@
-#
-# Makefile for WEMI.
-#
-
-VERSION = 1.2.0
-
-SHELL	= /bin/sh
-MAKE	= make
-CC	= gcc
-CFLAGS	= -O2
-TAR	= tar
-RM	= /bin/rm -f
-CP	= /bin/cp -p
-EMACS	= emacs
-
-GOMI	= *.elc
-FLAGS   = -batch -q -no-site-file
-
-PREFIX	= NONE
-EXEC_PREFIX = NONE
-LISPDIR = NONE
-
-elc:
-	$(EMACS) $(FLAGS) -l SEMI-MK -f compile-semi \
-		$(PREFIX) $(EXEC_PREFIX) $(LISPDIR)
-
-install-elc:	elc
-	$(EMACS) $(FLAGS) -l SEMI-MK -f install-semi \
-		$(PREFIX) $(EXEC_PREFIX) $(LISPDIR)
-
-
-all:	$(UTILS) $(DVI) elc
-
-tex:	ol2
-	cd doc; $(MAKE) tex
-
-dvi:	ol2
-	cd doc; $(MAKE) dvi
-
-ps:	ol2
-	cd doc; $(MAKE) ps
-
-
-install:	install-elc
-
-update-xemacs:
-	$(EMACS) $(FLAGS) -l SEMI-MK -f update-xemacs-source
-
-
-clean:
-	-$(RM) $(GOMI)
-	-cd doc   && $(MAKE) clean
-	-cd gnus  && $(MAKE) clean
-	-cd mh-e  && $(MAKE) clean
-	cd ../mel && $(MAKE) clean
-
-
-tar:
-	cvs commit
-	sh -c 'cvs tag -RF wemi-`echo $(VERSION) \
-				| sed s/\\\\./_/ | sed s/\\\\./_/`; \
-	cd /tmp; \
-	cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
-		export -d wemi-$(VERSION) \
-		-r wemi-`echo $(VERSION) \
-			| sed s/\\\\./_/ | sed s/\\\\./_/` semi'
-	$(RM) /tmp/wemi-$(VERSION)/ftp.in
-	cd /tmp; $(TAR) cvzf $(HOME)/tmp/wemi-$(VERSION).tar.gz wemi-$(VERSION)
-	cd /tmp; $(RM) -r wemi-$(VERSION)
-	sed "s/VERSION/$(VERSION)/" < ftp.in > ftp
diff --git a/NEWS b/NEWS
deleted file mode 100644
index 1faf0b2..0000000
--- a/NEWS
+++ /dev/null
@@ -1,142 +0,0 @@
-SEMI NEWS --- history of major-changes.
-Copyright (C) 1998 Free Software Foundation, Inc.
-
-* Changes in SEMI 1.2
-
-** User setting
-
-*** hooks
-
-  'mime-view-plain-text-preview-hook was renamed to
-'mime-preview-text/plain-hook.
-
-
-** API
-
-*** Interface for body-filter
-
-  'mime-view-filter-for-* was renamed to 'mime-preview-filter-for-*.
-
-
-*** mime-text-decode-body
-
-  Function 'mime-decode-text-body was renamed to
-'mime-text-decode-body and changed interface.  New interface is
-following:
-
-	mime-text-decode-body (SITUATION)
-
-SITUATION is preview-situation.  Content-Transfer-Encoding and
-MIME-charset are specified in field of it.
-
-
-* Changes in SEMI 1.1
-
-** User setting
-
-*** Setting variable about visible body
-
-  'mime-view-visible-media-type-list and
-'mime-view-content-filter-alist were abolished.  Please use
-'mime-preview-condition instead.
-
-  Notice that 'mime-preview-condition is not list of
-media-type/subtype string nor association-list.  It uses new
-data-structure `ctree' (condition-tree; it is introduced to replace
-`atype').  Function 'ctree-set-calist-strictly and
-'ctree-set-calist-with-default may be useful to modify it (`calist'
-(condition-alist) is as same as `atype').
-
-
-*** API about visible-predicates
-
-  Interface of visible-predicates for entity elements were changed.
-New interfaces are following:
-
-    mime-view-entity-button-visible-p (entity message-info)
-
-    mime-view-header-visible-p (entity message-info)
-
-    mime-view-body-visible-p (entity message-info)
-
-    mime-view-entity-separator-visible-p (entity message-info)
-
-
-** API
-
-*** entity representation
-
-  Structure 'mime-entity-info was renamed to 'mime-entity.  So various
-functions were renamed too.
-
-
-*** Interface for entity-button generators
-
-  Interface of entity-button generators was changed.  New interfaces
-is following:
-
-    mime-view-insert-entity-button (entity message-info subject)
-
-
-*** mime-preview-condition and preview-situation
-
-  Conditions about preview generation are unified to
-'mime-preview-condition.  Namely other variables, such as
-'mime-view-visible-media-type-list, 'mime-view-content-filter-alist,
-'mime-view-image-converter-alist were abolished.
-
-  Preview-situation is generated from entity information, running
-environment and 'mime-preview-condition.  These elements are checked
-to match with each other. (it is similar to acting-situation)
-
-  Format of preview-situation is association-list.  Following key is
-pre-defined:
-
-	'type			  media-type
-	'subtype		  media-subtype
-	'encoding		  content-transfer-encoding
-	'major-mode		  major-mode of MUA
-	<STRING>		  attribute of Content-Type field.
-	'body-presentation-method body-presentation-method
-
-If 'body-presentation-method is 'with-filter, 'body-filter is used to
-specify body-filter function.  If 'body-presentation-method is
-function, it is called to generate presentation of entity body.
-
-Body-filter function 'mime-view-filter-for-image refers 'image-format.
-
-Setting for message/partial button is specified by
-'mime-preview-condition instead of hard-coding.
-
-
-*** Interface for body-filter
-
-  Interface of body-filter was changed.  New interfaces is following:
-
-    <body-filter> (situation)
-
-Current pre-defined filters are following:
-
-	mime-view-filter-for-text/plain (situation)
-	mime-view-filter-for-text/richtext (situation)
-	mime-view-filter-for-text/enriched (situation)
-	mime-view-filter-for-image (situation) ; if available
-
-'mime-view-filter-for-application/postscript was abolished.
-
-
-*** Format of mime-acting-condition (acting-situation)
-
-  Format of `mime-acting-condition' were changed.  `type' and
-`subtype' are separated and changed to symbol.
-
-
-*** Renaming
-
-- mime-view-buffer -> mime-preview-buffer
-
-
-Local variables:
-mode: outline
-paragraph-separate: "[ 	]*$"
-end:
diff --git a/README.en b/README.en
deleted file mode 100644
index 00892aa..0000000
--- a/README.en
+++ /dev/null
@@ -1,159 +0,0 @@
-[README for SEMI kernel package (English Version)]
-by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-$Id: README.en,v 1.7 1998-03-13 19:50:29 shuhei-k Exp $
-
-What's SEMI?
-------------
-
-  SEMI is a library to provide MIME feature for GNU Emacs.  MIME is a
-  proposed internet standard for including content and headers other
-  than (ASCII) plain text in messages.
-
-	RFC 2045 : Internet Message Bodies
-	RFC 2046 : Media Types
-	RFC 2047 : Message Header Extensions
-	RFC 2048 : MIME Registration Procedures
-	RFC 2049 : MIME Conformance
-
-  SEMI has the following features:
-
-	- MIME style multilingual header (RFC 2047)
-	- MIME message viewer   (mime-view-mode) (RFC 2045 .. 2049)
-	- MIME message composer (mime-edit-mode) (RFC 2045 .. 2049)
-
-  MIME message viewer and composer also support following features:
-
-	- filename handling by Content-Disposition field (RFC 1806)
-	- PGP/MIME security Multiparts (RFC 2015)
-	- application/pgp (draft-kazu-pgp-mime-00.txt; obsolete)
-	- text/richtext (RFC 1521; obsolete; preview only)
-	- text/enriched (RFC 1896)
-
-  Notice that this package does not contain MIME extender for any
-  MUAs and external methods.  They are released as separated packages.
-
-
-Required environment
---------------------
-
-  SEMI supports XEmacs 20.2 or later with mule, and Emacs 20.
-
-  SEMI does not support anything older than Emacs 19.28 or XEmacs
-  19.14.  SEMI also does not support Emacs 19.29 to 19.34, XEmacs
-  19.15 or XEmacs 20.2 without mule, but SEMI may work with them.
-
-  If you use Emacs 20, don't set `enable-multibyte-characters' to
-  nil. (Maybe non mule setting requires to modify emu.  In addition,
-  it is better to use terminal-coding-system feature)
-
-  SEMI requires APEL and MEL package.  Please install them before
-  installing it.  APEL package
-  is available at:
-
-	ftp://ftp.jaist.ac.jp/pub/GNU/elisp/apel/
-
-  and MEL package is available at:
-
-	ftp://ftp.jaist.ac.jp/pub/GNU/elisp/mime/libs/
-
-  Notice that latest version of XEmacs may have latest version of APEL
-  and MEL, so you should not install them.
-
-  PGP/MIME and application/pgp require mailcrypt or tiny-pgp package.
-
-  The package enriched.el is required to compose text/enriched, so if
-  you use Emacs anything 19.28 or older (including official version of
-  MULE 2.3), WYSIWYG composing for text/enriched is not available.
-
-
-Installation
-------------
-
-	% make install
-
-  You can specify the emacs command name, for example
-
-	% make install EMACS=xemacs
-
-  If `EMACS=...' is omitted, EMACS=emacs is used.
-
-  You can specify the prefix of the directory tree for Emacs Lisp
-  programs and shell scripts, for example:
-
-	% make install PREFIX=~/
-
-  If `PREFIX=...' is omitted, the prefix of the directory tree of the
-  specified emacs command is used (perhaps /usr/local).
-
-  For example, if PREFIX=/usr/local and EMACS 19.34 is specified, it
-  will create the following directory tree:
-
-	/usr/local/share/emacs/19.34/site-lisp/  --- emu
-	/usr/local/share/emacs/site-lisp/apel/   --- APEL
-	/usr/local/share/emacs/site-lisp/bitmap/ --- BITMAP-MULE
-	/usr/local/share/emacs/site-lisp/mu/     --- MU
-	/usr/local/share/emacs/site-lisp/mel/    --- MEL
-	/usr/local/share/emacs/site-lisp/semi/   --- SEMI
-
-  You can specify site-lisp directory, for example
-
-	% make install LISPDIR=~/share/emacs/lisp
-
-  If `LISPDIR=...' is omitted, site-lisp directory of the specified
-  emacs command is used (perhaps /usr/local/share/emacs/site-lisp or
-  /usr/local/lib/xemacs/site-lisp).
-
-  You can specify other optional settings by editing the file
-  semi/SEMI-CFG.  Please read semi/README.en and comments in
-  semi/SEMI-CFG.
-
-
-Initialization
---------------
-
-(a) load-path
-
-  If you are using Emacs or Mule, please add directory of emu, apel,
-  bitmap, mu, mel and semi to load-path.  If you install by default
-  setting, you can write subdirs.el for example:
-
-  --------------------------------------------------------------------
-  (normal-top-level-add-to-load-path
-   '("apel" "bitmap" "mu" "mel" "semi"))
-  --------------------------------------------------------------------
-
-  If you are using XEmacs, there are no need of setting about
-  load-path.
-
-(b) mime-setup
-
-  Please insert the following into your ~/.emacs:
-
-	(load "mime-setup")
-
-
-Documentation
--------------
-
-  To get started, please read semi/README.en.
-
-  RFC's 822, 1806, 1847, 1896, 2015, 2045, 2046, 2047, 2048 and 2049
-  are available via anonymous ftp:
-  ftp://ds.internic.net/rfc/
-
-
-Bug reports
------------
-
-  If you write bug-reports and/or suggestions for improvement, please
-  send them to the tm Mailing List:
-
-	bug-tm-en@chamonix.jaist.ac.jp	(English)
-	bug-tm-ja@chamonix.jaist.ac.jp	(Japanese)
-
-  Via the tm ML, you can report SEMI bugs, obtain the latest release
-  of SEMI, and discuss future enhancements to SEMI.  To join the tm
-  ML, send an empty e-mail to
-
-	tm-en-help@chamonix.jaist.ac.jp	(English)
-	tm-ja-help@chamonix.jaist.ac.jp	(Japanese)
diff --git a/SEMI-CFG b/SEMI-CFG
deleted file mode 100644
index 49a3ba3..0000000
--- a/SEMI-CFG
+++ /dev/null
@@ -1,149 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: SEMI-CFG,v 1.4 1998-03-20 07:04:30 morioka Exp $
-;;;
-
-(defvar default-load-path load-path)
-
-(add-to-list 'load-path
-	     (expand-file-name "../../site-lisp/apel" data-directory))
-(add-to-list 'load-path
-	     (expand-file-name "." data-directory))
-
-(when (boundp 'LISPDIR)
-  (add-to-list 'default-load-path LISPDIR)
-  (add-to-list 'load-path LISPDIR)
-  (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
-  )
-
-(condition-case nil
-    (require 'install)
-  (error (error "Please install APEL.")))
-(require 'cl)
-
-(add-path "bitmap-mule")
-(add-path "mel")
-
-(add-to-list 'load-path (expand-file-name "."))
-
-(or (module-installed-p 'calist)
-    (error "Please install latest APEL."))
-(or (module-installed-p 'mel)
-    (error "Please install MEL."))
-(if (module-installed-p 'tm-view)
-    (error "Please remove tm from load-path."))
-
-
-;;; @ Please specify optional package directory if you use them.
-;;;
-
-;; It is only necessary to use `add-path' if these packages are not
-;; already on the standard load-path of Emacs.
-
-;; Function `get-latest-path' detect latest version of such package
-;; under load-path directories. If you want to use a version of a
-;; package instead of latest version, please specify by argument of
-;; function `add-path'.
-
-;; Function `add-path' finds path under load-path directories. If a
-;; package does not exist in load-path, please specify by absolutely
-;; (`~/' is available), for example
-;;	(add-path "~/lib/elisp/mailcrypt-3.4")
-;; or
-;;	(add-path "/opt/share/xmule/site-lisp/mailcrypt-3.4")
-
-
-;;; @@ Please specify Mailcrypt path.
-;;;
-
-;; Use latest version installed in load-path.
-
-(let ((path (get-latest-path "mailcrypt" 'all-paths)))
-  (if path
-      (add-path path)
-    ))
-
-;; Or please specify path.
-;; (add-path "mailcrypt-3.4" 'all-paths)
-
-
-;;; @@ Please specify BBDB path.
-;;;
-
-(let ((path (get-latest-path "bbdb" 'all-paths)))
-  (if path
-      (add-path path)
-    ))
-
-;; Or please specify path.
-;; (add-path "bbdb-1.50" 'all-paths)
-
-
-;;; @ shell
-;;;
-
-;; Please specify shell command path.
-(setq SHELL
-      (find-if (function file-exists-p)
-	       '("/bin/sh" "/usr/bin/sh")
-	       ))
-
-;; Please specify shell command option.
-(setq SHELLOPTION "-c")
-
-
-;;; @ Please specify prefix of install directory.
-;;;
-
-;; Please specify install path prefix.
-;; If it is omitted, shared directory (maybe /usr/local is used).
-(defvar PREFIX install-prefix)
-;;(setq PREFIX "~/")
-
-;; Please specify install path prefix for binaries.
-(defvar EXEC_PREFIX
-  (if (or running-emacs-18 running-xemacs)
-      (expand-file-name "../../.." exec-directory)
-    (expand-file-name "../../../.." exec-directory)
-    ))
-
-;; Please specify emu prefix [optional]
-(setq EMU_PREFIX
-      (if (string-match "XEmacs" emacs-version)
-	  "emu"
-	""))
-
-;; Please specify SEMI prefix [optional]
-(setq SEMI_PREFIX "semi")
-
-
-;;; @ executables
-;;;
-
-;; Please specify binary path.
-(defvar BIN_DIR (expand-file-name "bin" EXEC_PREFIX))
-
-;; Please specify binary path. (for external method scripts)
-(setq METHOD_DIR (expand-file-name "share/semi" PREFIX))
-
-
-
-
-;;; @ optional settings
-;;;
-
-;; It is generated by automatically. Please set variable `PREFIX'.
-;; If you don't like default directory tree, please set it.
-(defvar LISPDIR (install-detect-elisp-directory PREFIX))
-;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
-
-(setq SEMI_KERNEL_DIR	(expand-file-name SEMI_PREFIX	LISPDIR))
-(setq SETUP_FILE_DIR	SEMI_KERNEL_DIR)
-
-(setq METHOD_SRC_DIR "methods")
-(setq METHODS
-      '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg"
-	"tm-plain" "tm-ps"
-	"tmdecode"))
-
-;;; SEMI-CFG ends here
diff --git a/SEMI-ELS b/SEMI-ELS
deleted file mode 100644
index 4bb4f87..0000000
--- a/SEMI-ELS
+++ /dev/null
@@ -1,41 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: SEMI-ELS,v 1.2 1998-03-12 12:40:37 morioka Exp $
-;;;
-
-(setq semi-modules-to-compile
-      '(signature
-	mime-def
-	eword-decode eword-encode
-	mime-parse mime-view mime-text mime-play mime-partial
-	mime-edit
-	semi-setup mail-mime-setup))
-
-(setq semi-modules-not-to-compile nil)
-
-(mapcar (function
-	 (lambda (cell)
-	   (let ((c-module (car cell))
-		 (i-modules (cdr cell))
-		 )
-	     (if (module-installed-p c-module)
-		 (setq semi-modules-to-compile
-		       (nconc semi-modules-to-compile i-modules))
-	       (setq semi-modules-not-to-compile
-		     (nconc semi-modules-not-to-compile i-modules))
-	       )
-	     )))
-	'((mailcrypt	mime-pgp mime-mc)
-	  (bbdb		mime-bbdb)
-	  ))
-
-(if (or (string-match "XEmacs" emacs-version)
-	(featurep 'mule))
-    (setq semi-modules-to-compile
-	  (nconc semi-modules-to-compile '(mime-image)))
-  )
-
-(setq semi-modules (append semi-modules-to-compile
-			   semi-modules-not-to-compile))
-
-;;; SEMI-ELS ends here
diff --git a/SEMI-MK b/SEMI-MK
deleted file mode 100644
index 5abe824..0000000
--- a/SEMI-MK
+++ /dev/null
@@ -1,54 +0,0 @@
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: SEMI-MK,v 1.2 1998-03-13 12:55:52 morioka Exp $
-;;;
-;;; Code:
-
-(defun config-semi ()
-  (let (prefix exec-prefix lisp-dir)
-    (and (setq prefix (car command-line-args-left))
-	 (or (string-equal "NONE" prefix)
-	     (defvar PREFIX prefix)
-	     ))
-    (setq command-line-args-left (cdr command-line-args-left))
-    (and (setq exec-prefix (car command-line-args-left))
-	 (or (string-equal "NONE" exec-prefix)
-	     (defvar EXEC_PREFIX exec-prefix)
-	     ))
-    (setq command-line-args-left (cdr command-line-args-left))
-    (and (setq lisp-dir (car command-line-args-left))
-	 (or (string-equal "NONE" lisp-dir)
-	     (defvar LISPDIR lisp-dir)
-	     ))
-    (setq command-line-args-left (cdr command-line-args-left))
-    )
-  (load-file "SEMI-CFG")
-  (load-file "SEMI-ELS")
-  (princ (format "PREFIX=%s\tEXEC_PREFIX=%s
-LISPDIR=%s\n" PREFIX EXEC_PREFIX LISPDIR))
-  )
-
-(defun directory= (dir1 dir2)
-  (string= (file-name-as-directory dir1)(file-name-as-directory dir2))
-  )
-
-(defun compile-semi ()
-  (config-semi)
-  (print load-path)
-  (compile-elisp-modules semi-modules-to-compile ".")
-  (compile-elisp-module  'mime-setup		".")
-  )
-
-(defun install-semi ()
-  (config-semi)
-  (princ (format "%s\n" emacs-version))
-  (install-elisp-modules semi-modules	 "."	SEMI_KERNEL_DIR)
-  (install-elisp-modules '(mime-setup)	 "."	SETUP_FILE_DIR)
-  )
-
-(defun install-execs ()
-  (config-semi)
-  (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
-  )
-
-;;; SEMI-MK ends here
diff --git a/VERSION b/VERSION
deleted file mode 100644
index f95d2a9..0000000
--- a/VERSION
+++ /dev/null
@@ -1,79 +0,0 @@
-[SEMI Version names]
-
-0.72	--------	--------
-0.75	--------	--------
-0.83	--------	--------
-0.87	--------	--------
-0.88	--------	--------
-0.91	--------	--------
-0.92	--------	--------
-
-
-;; $(BKLN&E4F;(B / $(B@P@n@~(B
-;; Hokuriku Railway / Ishikawa Line
-
-0.96	Kaga-Ichinomiya		$(B2C2l0l$N5\(B	; $(B!JGr;3Hf$(D5/$(B?@<R!K(B
-0.97	Naka-Tsurugi		$(BCfDaMh(B
-0.112	Tsurugi			$(BDaMh(B		; <=> $(B$8$c$$%P%9(B
-0.115	Hinomiko		$(BF|8f;R(B
-0.115.1	Oyanagi			$(B>.Lx(B
-0.115.2	Inokuchi		$(B0f8}(B
-0.116	D-Dòhòji-A			$(BF;K!;{(B
-0.118	Sodani			$(BA>C+(B
-0.118.1	Shijima			$(B;M==K|(B
-0.118.2	Otomaru			$(B254](B
-1.0.0	Nukaj-Dþtaku-mae-A		$(B3[=;BpA0(B
-1.0.1	Magae			$(BGOBX(B
-1.0.2	Nonoichi-K-Dòdaimae-A	$(BLn!9;T9)BgA0(B
-
-1.1.0	Nonoichi		$(BLn!9;T(B
-1.1.1	Oshino			$(B2!Ln(B
-1.1.2	Shin-Nishikanazawa	$(B?7@>6bBt(B	; <=> JR $(B@>6bBt(B
-(1.1.3)	Nishiizumi		$(B@>@t(B
--------	Nomachi			$(BLnD.(B
-
-
-;; JR / $(BKLN&K\@~(B
-;; JR / Hokuriku Line
-
-	(Maibara)		($(BJF86(B)		; = JR $(BEl3$F;K\@~(B
--------	Sakata			$(B:dED(B
-------- Tamura			$(BEDB<(B
--------	Nagahama		$(BD9IM(B
--------	Torahime		$(B8WI1(B
--------	Kawake			$(B2OLS(B
--------	Takatsuki		$(B9b7n(B
--------	Kinomoto		$(BLZ%NK\(B
--------	Yogo			$(BM>8b(B
--------	-DÒmi-Shiotsu-A		$(B6a9>1vDE(B	; = JR $(B8P@>@~(B
--------	Shin-Hikida		$(B?7I%ED(B
--------	Tsuruga			$(BFX2l(B		; = JR $(B>.IM@~(B
-:	:			:
--------	(JR) Nonoichi		$(BLn!9;T(B
--------	Nishi-Kanazawa		$(B@>6bBt(B		; <=> $(BKLN&E4F;(B $(B?7@>6bBt(B
--------	Kanazawa		$(B6bBt(B		; <=> $(BKLN&E4F;(B $(BKLE46bBt(B
--------	Higashi-Kanazawa	$(BEl6bBt(B
-:	:			:
--------	Takaoka			$(B9b2,(B		; = JR $(BI98+@~!">kC<@~(B
-
-
-;; JR / $(B8P@>@~(B
-;; JR/ Kosei Line
-
-	(Yamashina)		($(B;32J(B)		; = JR $(BEl3$F;K\@~(B
--------	Nishi--DÒtsu-A		$(B@>BgDE(B
-:	:			:
--------	(-DÒmi-Shiotsu)-A		($(B6a9>1vDE(B)	; = JR $(BKLN&K\@~(B
-
-
-;; JR / $(BI98+@~(B
-;; JR / Himi Line
-
--------	Himi			$(BI98+(B
--------	Shimao			$(BEgHx(B
--------	Amaharashi		$(B1+@2(B
--------	Ecch-Dþ-Kokubu-A		$(B1[Cf9qJ,(B
--------	Fushiki			$(BIzLZ(B
--------	Noumachi		$(BG=D.(B
--------	Ecch-Dþ-Nakagawa-A		$(B1[CfCf@n(B
-	(Takaoka)		($(B9b2,(B)		; = JR $(BKLN&K\@~!">kC<@~(B
diff --git a/eword-decode.el b/eword-decode.el
deleted file mode 100644
index 543c2a0..0000000
--- a/eword-decode.el
+++ /dev/null
@@ -1,842 +0,0 @@
-;;; eword-decode.el --- RFC 2047 based encoded-word decoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: ENAMI Tsugutomo <enami@sys.ptg.sony.co.jp>
-;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1995/10/03
-;; Original: 1992/07/20 ENAMI Tsugutomo's `mime.el'.
-;;	Renamed: 1993/06/03 to tiny-mime.el
-;;	Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
-;;	Renamed: 1997/02/22 from tm-ew-d.el
-;; Keywords: encoded-word, MIME, multilingual, header, mail, news
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'std11-parse)
-(require 'mel)
-(require 'mime-def)
-
-(defgroup eword-decode nil
-  "Encoded-word decoding"
-  :group 'mime)
-
-(defconst eword-decode-version
-  `,(mapconcat #'number-to-string (cdr semi-version) "."))
-
-
-;;; @ MIME encoded-word definition
-;;;
-
-(defconst eword-encoded-text-regexp "[!->@-~]+")
-(defconst eword-encoded-word-regexp
-  (concat (regexp-quote "=?")
-	  "\\("
-	  mime-charset-regexp
-	  "\\)"
-	  (regexp-quote "?")
-	  "\\(B\\|Q\\)"
-	  (regexp-quote "?")
-	  "\\("
-	  eword-encoded-text-regexp
-	  "\\)"
-	  (regexp-quote "?=")))
-(defconst eword-after-encoded-word-regexp "\\([ \t]\\|$\\)")
-
-(defconst eword-encoded-text-in-phrase-regexp "[-A-Za-z0-9!*+/=_]+")
-(defconst eword-encoded-word-in-phrase-regexp
-  (concat (regexp-quote "=?")
-	  "\\("
-	  mime-charset-regexp
-	  "\\)"
-	  (regexp-quote "?")
-	  "\\(B\\|Q\\)"
-	  (regexp-quote "?")
-	  "\\("
-	  eword-encoded-text-in-phrase-regexp
-	  "\\)"
-	  (regexp-quote "?=")))
-(defconst eword-after-encoded-word-in-phrase-regexp "\\([ \t(]\\|$\\)")
-
-(defconst eword-encoded-text-in-comment-regexp "[]!-'*->@-[^-~]+")
-(defconst eword-encoded-word-in-comment-regexp
-  (concat (regexp-quote "=?")
-	  "\\("
-	  mime-charset-regexp
-	  "\\)"
-	  (regexp-quote "?")
-	  "\\(B\\|Q\\)"
-	  (regexp-quote "?")
-	  "\\("
-	  eword-encoded-text-in-comment-regexp
-	  "\\)"
-	  (regexp-quote "?=")))
-(defconst eword-after-encoded-word-in-comment-regexp "\\([ \t()\\\\]\\|$\\)")
-
-(defconst eword-encoded-text-in-quoted-string-regexp "[]!#->@-[^-~]+")
-(defconst eword-encoded-word-in-quoted-string-regexp
-  (concat (regexp-quote "=?")
-	  "\\("
-	  mime-charset-regexp
-	  "\\)"
-	  (regexp-quote "?")
-	  "\\(B\\|Q\\)"
-	  (regexp-quote "?")
-	  "\\("
-	  eword-encoded-text-in-quoted-string-regexp
-	  "\\)"
-	  (regexp-quote "?=")))
-(defconst eword-after-encoded-word-in-quoted-string-regexp "\\([ \t\"\\\\]\\|$\\)")
-
-
-;;; @@ Base64
-;;;
-
-(defconst base64-token-regexp "[A-Za-z0-9+/]")
-(defconst base64-token-padding-regexp "[A-Za-z0-9+/=]")
-
-(defconst eword-B-encoded-text-regexp
-  (concat "\\(\\("
-	  base64-token-regexp
-	  base64-token-regexp
-	  base64-token-regexp
-	  base64-token-regexp
-	  "\\)*"
-	  base64-token-regexp
-	  base64-token-regexp
-	  base64-token-padding-regexp
-	  base64-token-padding-regexp
-          "\\)"))
-
-;; (defconst eword-B-encoding-and-encoded-text-regexp
-;;   (concat "\\(B\\)\\?" eword-B-encoded-text-regexp))
-
-
-;;; @@ Quoted-Printable
-;;;
-
-(defconst quoted-printable-hex-chars "0123456789ABCDEF")
-(defconst quoted-printable-octet-regexp
-  (concat "=[" quoted-printable-hex-chars
-	  "][" quoted-printable-hex-chars "]"))
-
-(defconst eword-Q-encoded-text-regexp
-  (concat "\\([^=?]\\|" quoted-printable-octet-regexp "\\)+"))
-;; (defconst eword-Q-encoding-and-encoded-text-regexp
-;;   (concat "\\(Q\\)\\?" eword-Q-encoded-text-regexp))
-
-
-;;; @ for string
-;;;
-
-(defvar eword-decode-sticked-encoded-word nil
-  "*If non-nil, decode encoded-words sticked on atoms,
-other encoded-words, etc.
-however this behaviour violates RFC2047.")
-
-(defvar eword-decode-quoted-encoded-word nil
-  "*If non-nil, decode encoded-words in quoted-string
-however this behaviour violates RFC2047.")
-
-(defun eword-decode-first-encoded-words (string
-					 eword-regexp
-					 after-regexp
-					 &optional must-unfold)
-  "Decode MIME encoded-words in beginning of STRING.
-
-EWORD-REGEXP is the regexp that matches a encoded-word.
-Usual value is eword-encoded-word-regexp, 
-eword-encoded-text-in-phrase-regexp,
-eword-encoded-word-in-comment-regexp or
-eword-encoded-word-in-quoted-string-regexp.
-
-AFTER-REGEXP is the regexp that matches a after encoded-word.
-Usual value is eword-after-encoded-word-regexp, 
-eword-after-encoded-text-in-phrase-regexp,
-eword-after-encoded-word-in-comment-regexp or
-eword-after-encoded-word-in-quoted-string-regexp.
-
-If beginning of STRING matches EWORD-REGEXP and AFTER-REGEXP,
-returns a cons cell of decoded string(sequence of characters) and 
-the rest(sequence of octets).
-
-If beginning of STRING does not matches EWORD-REGEXP and AFTER-REGEXP,
-returns nil.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is returned in decoded part
-as encoded-word form.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (if eword-decode-sticked-encoded-word (setq after-regexp ""))
-  (let ((between-ewords-regexp
-  	  (if eword-decode-sticked-encoded-word
-	    "\\(\n?[ \t]\\)*"
-	    "\\(\n?[ \t]\\)+"))
-  	(src string)	; sequence of octets.
-  	(dst ""))	; sequence of characters.
-    (if (string-match
-    	  (concat "\\`\\(" eword-regexp "\\)" after-regexp) src)
-      (let* (p
-      	     (q (match-end 1))
-      	     (ew (substring src 0 q))
-      	     (dw (eword-decode-encoded-word ew must-unfold)))
-        (setq dst (concat dst dw)
-	      src (substring src q))
-	(if (not (string= ew dw))
-	  (progn
-	    (while
-	      (and
-	        (string-match
-		  (concat "\\`\\(" between-ewords-regexp "\\)"
-			     "\\(" eword-regexp "\\)"
-			     after-regexp)
-		  src)
-		(progn
-		  (setq p (match-end 1)
-		  	q (match-end 3)
-		        ew (substring src p q)
-		        dw (eword-decode-encoded-word ew must-unfold))
-		  (if (string= ew dw)
-		    (progn
-		      (setq dst (concat dst (substring src 0 q))
-			    src (substring src q))
-		      nil)
-		    t)))
-	      (setq dst (concat dst dw)
-	            src (substring src q)))))
-	(cons dst src))
-      nil)))
-
-(defun eword-decode-comment-string (string &optional must-unfold)
-  (let ((src string)
-	(buf "")
-  	(dst "")
-	(flag-ew t))
-    (while (< 0 (length src))
-      (let ((ch (aref src 0))
-      	    (decoded (and
-	    		flag-ew
-			(eword-decode-first-encoded-words src
-			  eword-encoded-word-in-comment-regexp
-			  eword-after-encoded-word-in-comment-regexp
-			  must-unfold))))
-	(if (and (not (string= buf ""))
-		 (or decoded (eq ch ?\() (eq ch ?\))))
-	  (setq dst (concat dst
-	  	      (std11-wrap-as-quoted-pairs
-		        (decode-mime-charset-string buf
-			  default-mime-charset)
-			'(?\( ?\))))
-		buf ""))
-	(cond
-	  (decoded
-	    (setq dst (concat dst
-	    		(std11-wrap-as-quoted-pairs
-			  (car decoded)
-			  '(?( ?))))
-		  src (cdr decoded)))
-	  ((or (eq ch ?\() (eq ch ?\)))
-	    (setq dst (concat dst (list ch))
-		  src (substring src 1)
-		  flag-ew t))
-	  ((eq ch ?\\)
-	    (setq buf (concat buf (list (aref src 1)))
-		  src (substring src 2)
-		  flag-ew t))
-	  ((or (eq ch ?\ ) (eq ch ?\t) (eq ch ?\n))
-	    (setq buf (concat buf (list ch))
-		  src (substring src 1)
-		  flag-ew t))
-	  ((string-match "\\`=?[^ \t\n()\\\\=]*" src)
-	    (setq buf (concat buf (substring src 0 (match-end 0)))
-		  src (substring src (match-end 0))
-		  flag-ew eword-decode-sticked-encoded-word))
-	  (t (error "something wrong")))))
-    (if (not (string= buf ""))
-      (setq dst (concat dst
-      		  (std11-wrap-as-quoted-pairs
-		    (decode-mime-charset-string buf
-		      default-mime-charset)
-		    '(?\( ?\))))))
-    dst))
-
-(defun eword-decode-quoted-string (string &optional must-unfold)
-  (let ((src string)
-	(buf "")
-  	(dst "")
-	(flag-ew t))
-    (while (< 0 (length src))
-      (let ((ch (aref src 0))
-      	    (decoded (and
-	    		eword-decode-quoted-encoded-word
-	    		flag-ew
-			(eword-decode-first-encoded-words src
-			  eword-encoded-word-in-quoted-string-regexp
-			  eword-after-encoded-word-in-quoted-string-regexp
-			  must-unfold))))
-	(if (and (not (string= buf ""))
-		 (or decoded (eq ch ?\")))
-	  (setq dst (concat dst
-		      (std11-wrap-as-quoted-pairs
-		        (decode-mime-charset-string buf
-			default-mime-charset)
-			'(?\")))
-		buf ""))
-	(cond
-	  (decoded
-	    (setq dst (concat dst
-	    		(std11-wrap-as-quoted-pairs
-			  (car decoded)
-			  '(?\")))
-		  src (cdr decoded)))
-	  ((or (eq ch ?\"))
-	    (setq dst (concat dst (list ch))
-		  src (substring src 1)
-		  flag-ew t))
-	  ((eq ch ?\\)
-	    (setq buf (concat buf (list (aref src 1)))
-		  src (substring src 2)
-		  flag-ew t))
-	  ((or (eq ch ?\ ) (eq ch ?\t) (eq ch ?\n))
-	    (setq buf (concat buf (list ch))
-		  src (substring src 1)
-		  flag-ew t))
-	  ((string-match "\\`=?[^ \t\n\"\\\\=]*" src)
-	    (setq buf (concat buf (substring src 0 (match-end 0)))
-		  src (substring src (match-end 0))
-		  flag-ew eword-decode-sticked-encoded-word))
-	  (t (error "something wrong")))))
-    (if (not (string= buf ""))
-      (setq dst (concat dst
-      		  (std11-wrap-as-quoted-pairs
-		    (decode-mime-charset-string buf
-		      default-mime-charset)
-		    '(?\")))))
-    dst))
-
-(defun eword-decode-unstructured-string (string &optional must-unfold)
-  (let ((src string)
-	(buf "")
-  	(dst "")
-	(flag-ew t))
-    (while (< 0 (length src))
-      (let ((ch (aref src 0))
-      	    (decoded (and flag-ew (eword-decode-first-encoded-words src
-				    eword-encoded-word-regexp
-	    			    eword-after-encoded-word-regexp
-				    must-unfold))))
-	(if (and (not (string= buf ""))
-		 decoded)
-	  (setq dst (concat dst
-		      (decode-mime-charset-string buf
-		        default-mime-charset))
-		buf ""))
-	(cond
-	  (decoded
-	    (setq dst (concat dst (car decoded))
-		  src (cdr decoded)))
-	  ((or (eq ch ?\ ) (eq ch ?\t) (eq ch ?\n))
-	    (setq buf (concat buf (list ch))
-		  src (substring src 1)
-		  flag-ew t))
-	  ((string-match "\\`=?[^ \t\n=]*" src)
-	    (setq buf (concat buf (substring src 0 (match-end 0)))
-		  src (substring src (match-end 0))
-		  flag-ew eword-decode-sticked-encoded-word))
-	  (t (error "something wrong")))))
-    (if (not (string= buf ""))
-      (setq dst (concat dst
-      		  (decode-mime-charset-string buf
-		    default-mime-charset))))
-    dst))
-
-(defun eword-decode-string (string &optional must-unfold)
-  "Decode MIME encoded-words in STRING.
-
-STRING is unfolded before decoding.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (eword-decode-unstructured-string
-    (std11-unfold-string string)
-    must-unfold))
-
-
-;;; @ for region
-;;;
-
-(defun eword-decode-region (start end &optional unfolding must-unfold)
-  "Decode MIME encoded-words in region between START and END.
-
-If UNFOLDING is not nil, it unfolds before decoding.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (interactive "*r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (if unfolding
-	  (eword-decode-unfold)
-	)
-      (let ((str (eword-decode-unstructured-string
-      		   (buffer-substring (point-min) (point-max))
-		   must-unfold)))
-	(delete-region (point-min) (point-max))
-	(insert str)))))
-
-
-;;; @ for message header
-;;;
-
-(defcustom eword-decode-ignored-field-list
-  '(newsgroups path lines nntp-posting-host message-id date)
-  "*List of field-names to be ignored when decoding.
-Each field name must be symbol."
-  :group 'eword-decode
-  :type '(repeat symbol))
-
-(defcustom eword-decode-structured-field-list
-  '(reply-to resent-reply-to from resent-from sender resent-sender
-	     to resent-to cc resent-cc bcc resent-bcc dcc
-	     mime-version content-type content-transfer-encoding
-	     content-disposition)
-  "*List of field-names to decode as structured field.
-Each field name must be symbol."
-  :group 'eword-decode
-  :type '(repeat symbol))
-
-(defun eword-decode-header (&optional code-conversion separator)
-  "Decode MIME encoded-words in header fields.
-If CODE-CONVERSION is nil, it decodes only encoded-words.  If it is
-mime-charset, it decodes non-ASCII bit patterns as the mime-charset.
-Otherwise it decodes non-ASCII bit patterns as the
-default-mime-charset.
-If SEPARATOR is not nil, it is used as header separator."
-  (interactive "*")
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header separator)
-      (let ((default-charset
-	      (if code-conversion
-		  (if (mime-charset-to-coding-system code-conversion)
-		      code-conversion
-		    default-mime-charset))))
-	(if default-charset
-	    (let (beg p end field-name len)
-	      (goto-char (point-min))
-	      (while (re-search-forward std11-field-head-regexp nil t)
-		(setq beg (match-beginning 0)
-		      p (match-end 0)
-		      field-name (buffer-substring beg (1- p))
-		      len (string-width field-name)
-		      field-name (intern (downcase field-name))
-		      end (std11-field-end))
-		(cond ((memq field-name eword-decode-ignored-field-list)
-		       ;; Don't decode
-		       )
-		      ((memq field-name eword-decode-structured-field-list)
-		       ;; Decode as structured field
-		       (let ((body (buffer-substring p end))
-			     (default-mime-charset default-charset))
-			 (delete-region p end)
-			 (insert (eword-decode-and-fold-structured-field
-				  body (1+ len)))
-			 ))
-		      (t
-		       ;; Decode as unstructured field
-		       (save-restriction
-			 (narrow-to-region beg (1+ end))
-			 (goto-char p)
-			 (let ((default-mime-charset default-charset))
-			   (eword-decode-region beg (point-max) 'unfold))
-			 (goto-char (point-max))
-			 )))))
-	  (eword-decode-region (point-min) (point-max) t)
-	  )))))
-
-(defun eword-decode-unfold ()
-  (goto-char (point-min))
-  (let (field beg end)
-    (while (re-search-forward std11-field-head-regexp nil t)
-      (setq beg (match-beginning 0)
-            end (std11-field-end))
-      (setq field (buffer-substring beg end))
-      (if (string-match eword-encoded-word-regexp field)
-          (save-restriction
-            (narrow-to-region (goto-char beg) end)
-            (while (re-search-forward "\n\\([ \t]\\)" nil t)
-              (replace-match (match-string 1))
-              )
-	    (goto-char (point-max))
-	    ))
-      )))
-
-
-;;; @ encoded-word decoder
-;;;
-
-(defvar eword-warning-face nil "Face used for invalid encoded-word.")
-
-(defun eword-decode-encoded-word (word &optional must-unfold)
-  "Decode WORD if it is an encoded-word.
-
-If your emacs implementation can not decode the charset of WORD, it
-returns WORD.  Similarly the encoded-word is broken, it returns WORD.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-word (generated by bad manner MUA such
-as a version of Net$cape)."
-  (or (if (string-match eword-encoded-word-regexp word)
-	  (let ((charset
-		 (substring word (match-beginning 1) (match-end 1))
-		 )
-		(encoding
-		 (upcase
-		  (substring word (match-beginning 2) (match-end 2))
-		  ))
-		(text
-		 (substring word (match-beginning 3) (match-end 3))
-		 ))
-            (condition-case err
-                (eword-decode-encoded-text charset encoding text must-unfold)
-              (error
-               (and
-		(add-text-properties 0 (length word)
-				     (and eword-warning-face
-					  (list 'face eword-warning-face))
-				     word)
-		word)))
-            ))
-      word))
-
-
-;;; @ encoded-text decoder
-;;;
-
-(defun eword-decode-encoded-text (charset encoding string
-					  &optional must-unfold)
-  "Decode STRING as an encoded-text.
-
-If your emacs implementation can not decode CHARSET, it returns nil.
-
-If ENCODING is not \"B\" or \"Q\", it occurs error.
-So you should write error-handling code if you don't want break by errors.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-text (generated by bad manner MUA such
-as a version of Net$cape)."
-  (let ((cs (mime-charset-to-coding-system charset)))
-    (if cs
-	(let ((dest
-               (cond
-                ((string-equal "B" encoding)
-                 (if (and (string-match eword-B-encoded-text-regexp string)
-                          (string-equal string (match-string 0 string)))
-                     (base64-decode-string string)
-                   (error "Invalid encoded-text %s" string)))
-                ((string-equal "Q" encoding)
-                 (if (and (string-match eword-Q-encoded-text-regexp string)
-                          (string-equal string (match-string 0 string)))
-                     (q-encoding-decode-string string)
-                   (error "Invalid encoded-text %s" string)))
-                (t
-                 (error "Invalid encoding %s" encoding)
-                 )))
-              )
-	  (if dest
-	      (progn
-		(setq dest (decode-coding-string dest cs))
-		(if must-unfold
-		    (mapconcat (function
-				(lambda (chr)
-				  (cond
-                                   ((eq chr ?\n) "")
-                                   ((eq chr ?\t) " ")
-                                   (t (char-to-string chr)))
-				  ))
-			       (std11-unfold-string dest)
-			       "")
-		  dest)
-		))))))
-
-
-;;; @ lexical analyze
-;;;
-
-(defvar eword-lexical-analyze-cache nil)
-(defvar eword-lexical-analyze-cache-max 299
-  "*Max position of eword-lexical-analyze-cache.
-It is max size of eword-lexical-analyze-cache - 1.")
-
-(defcustom eword-lexical-analyzers
-  '(eword-analyze-quoted-string
-    eword-analyze-domain-literal
-    eword-analyze-comment
-    eword-analyze-spaces
-    eword-analyze-special
-    eword-analyze-encoded-word
-    eword-analyze-atom)
-  "*List of functions to return result of lexical analyze.
-Each function must have two arguments: STRING and MUST-UNFOLD.
-STRING is the target string to be analyzed.
-If MUST-UNFOLD is not nil, each function must unfold and eliminate
-bare-CR and bare-LF from the result even if they are included in
-content of the encoded-word.
-Each function must return nil if it can not analyze STRING as its
-format.
-
-Previous function is preferred to next function.  If a function
-returns nil, next function is used.  Otherwise the return value will
-be the result."
-  :group 'eword-decode
-  :type '(repeat function))
-
-(defun eword-analyze-quoted-string (string &optional must-unfold)
-  (let ((p (std11-check-enclosure string ?\" ?\")))
-    (if p
-	(cons (cons 'quoted-string
-		    (eword-decode-quoted-string (substring string 0 p)))
-	      (substring string p))
-      )))
-
-(defun eword-analyze-domain-literal (string &optional must-unfold)
-  (std11-analyze-domain-literal string))
-
-(defun eword-analyze-comment (string &optional must-unfold)
-  (let ((len (length string)))
-    (if (and (< 0 len) (eq (aref string 0) ?\())
-	(let ((p 0))
-	  (while (and p (< p len) (eq (aref string p) ?\())
-	    (setq p (std11-check-enclosure string ?\( ?\) t p)))
-	  (setq p (or p len))
-	  (cons (cons 'comment
-		      (eword-decode-comment-string (substring string 0 p)))
-		(substring string p)))
-      nil)))
-
-(defun eword-analyze-spaces (string &optional must-unfold)
-  (std11-analyze-spaces string))
-
-(defun eword-analyze-special (string &optional must-unfold)
-  (std11-analyze-special string))
-
-(defun eword-analyze-encoded-word (string &optional must-unfold)
-  (let ((decoded (eword-decode-first-encoded-words
-  		   string
-		   eword-encoded-word-in-phrase-regexp
-		   eword-after-encoded-word-in-phrase-regexp
-		   must-unfold)))
-    (if decoded
-      (cons (cons 'atom (car decoded)) (cdr decoded)))))
-
-(defun eword-analyze-atom (string &optional must-unfold)
-  (if (let ((enable-multibyte-characters nil))
-        (string-match std11-atom-regexp string))
-      (let ((end (match-end 0)))
-	(if (and eword-decode-sticked-encoded-word
-		 (string-match eword-encoded-word-in-phrase-regexp
-		 	       (substring string 0 end))
-		 (< 0 (match-beginning 0)))
-	    (setq end (match-beginning 0)))
-	(cons (cons 'atom (decode-mime-charset-string
-			   (substring string 0 end)
-			   default-mime-charset))
-	      (substring string end)
-	      ))))
-
-(defun eword-lexical-analyze-internal (string must-unfold)
-  (let (dest ret)
-    (while (not (string-equal string ""))
-      (setq ret
-	    (let ((rest eword-lexical-analyzers)
-		  func r)
-	      (while (and (setq func (car rest))
-			  (null (setq r (funcall func string must-unfold)))
-			  )
-		(setq rest (cdr rest)))
-	      (or r `((error . ,string) . ""))
-	      ))
-      (setq dest (cons (car ret) dest))
-      (setq string (cdr ret))
-      )
-    (nreverse dest)
-    ))
-
-(defun eword-lexical-analyze (string &optional must-unfold)
-  "Return lexical analyzed list corresponding STRING.
-It is like std11-lexical-analyze, but it decodes non us-ascii
-characters encoded as encoded-words or invalid \"raw\" format.
-\"Raw\" non us-ascii characters are regarded as variable
-`default-mime-charset'."
-  (let* ((str (copy-sequence string))
-  	 (key (cons str (cons default-mime-charset must-unfold)))
-	 ret)
-    (set-text-properties 0 (length str) nil str)
-    (if (setq ret (assoc key eword-lexical-analyze-cache))
-	(cdr ret)
-      (setq ret (eword-lexical-analyze-internal str must-unfold))
-      (setq eword-lexical-analyze-cache
-	    (cons (cons key ret)
-		  (last eword-lexical-analyze-cache
-			eword-lexical-analyze-cache-max)))
-      ret)))
-
-(defun eword-decode-token (token)
-  (cdr token))
-
-(defun eword-decode-and-fold-structured-field
-  (string start-column &optional max-column must-unfold)
-  "Decode and fold (fill) STRING as structured field body.
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MAX-COLUMN is omitted, `fill-column' is used.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (or max-column
-      (setq max-column fill-column))
-  (let ((c start-column)
-	(tokens (eword-lexical-analyze string must-unfold))
-	(result "")
-	token)
-    (while (and (setq token (car tokens))
-		(setq tokens (cdr tokens)))
-      (let* ((type (car token)))
-	(if (eq type 'spaces)
-	    (let* ((next-token (car tokens))
-		   (next-str (eword-decode-token next-token))
-		   (next-len (string-width next-str))
-		   (next-c (+ c next-len 1)))
-	      (if (< next-c max-column)
-		  (setq result (concat result " " next-str)
-			c next-c)
-		(setq result (concat result "\n " next-str)
-		      c (1+ next-len)))
-	      (setq tokens (cdr tokens))
-	      )
-	  (let* ((str (eword-decode-token token)))
-	    (setq result (concat result str)
-		  c (+ c (string-width str)))
-	    ))))
-    (if token
-	(concat result (eword-decode-token token))
-      result)))
-
-(defun eword-decode-and-unfold-structured-field (string)
-  "Decode and unfold STRING as structured field body.
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded."
-  (let ((tokens (eword-lexical-analyze string 'must-unfold))
-	(result ""))
-    (while tokens
-      (let* ((token (car tokens))
-	     (type (car token)))
-	(setq tokens (cdr tokens))
-	(setq result
-	      (if (eq type 'spaces)
-		  (concat result " ")
-		(concat result (eword-decode-token token))
-		))))
-    result))
-
-(defun eword-decode-structured-field-body (string &optional must-unfold
-						  start-column max-column)
-  "Decode non us-ascii characters in STRING as structured field body.
-STRING is unfolded before decoding.
-
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (if start-column
-      ;; fold with max-column
-      (eword-decode-and-fold-structured-field
-       string start-column max-column must-unfold)
-    ;; Don't fold
-    (mapconcat (function eword-decode-token)
-	       (eword-lexical-analyze string must-unfold)
-	       "")
-    ))
-
-(defun eword-decode-unstructured-field-body (string &optional must-unfold)
-  "Decode non us-ascii characters in STRING as unstructured field body.
-STRING is unfolded before decoding.
-
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'.
-
-If an encoded-word is broken or your emacs implementation can not
-decode the charset included in it, it is not decoded.
-
-If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
-if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
-  (eword-decode-string string must-unfold))
-
-(defun eword-extract-address-components (string)
-  "Extract full name and canonical address from STRING.
-Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
-If no name can be extracted, FULL-NAME will be nil.
-It decodes non us-ascii characters in FULL-NAME encoded as
-encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
-characters are regarded as variable `default-mime-charset'."
-  (let* ((structure (car (std11-parse-address
-			  (eword-lexical-analyze
-			   (std11-unfold-string string) 'must-unfold))))
-         (phrase  (std11-full-name-string structure))
-         (address (std11-address-string structure))
-         )
-    (list phrase address)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'eword-decode)
-
-;;; eword-decode.el ends here
diff --git a/eword-encode.el b/eword-encode.el
deleted file mode 100644
index 2748d71..0000000
--- a/eword-encode.el
+++ /dev/null
@@ -1,642 +0,0 @@
-;;; eword-encode.el --- RFC 2047 based encoded-word encoder for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: encoded-word, MIME, multilingual, header, mail, news
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'mel)
-(require 'std11)
-(require 'mime-def)
-(require 'eword-decode)
-
-
-;;; @ version
-;;;
-
-(defconst eword-encode-version "1.2")
-
-
-;;; @ variables
-;;;
-
-(defvar eword-field-encoding-method-alist
-  '(("X-Nsubject" . iso-2022-jp-2)
-    ("Newsgroups" . nil)
-    ("Message-ID" . nil)
-    (t            . mime)
-    )
-  "*Alist to specify field encoding method.
-Its key is field-name, value is encoding method.
-
-If method is `mime', this field will be encoded into MIME format.
-
-If method is a MIME-charset, this field will be encoded as the charset
-when it must be convert into network-code.
-
-If method is `default-mime-charset', this field will be encoded as
-variable `default-mime-charset' when it must be convert into
-network-code.
-
-If method is nil, this field will not be encoded.")
-
-(defvar eword-charset-encoding-alist
-  '((us-ascii		. nil)
-    (iso-8859-1		. "Q")
-    (iso-8859-2		. "Q")
-    (iso-8859-3		. "Q")
-    (iso-8859-4		. "Q")
-    (iso-8859-5		. "Q")
-    (koi8-r		. "Q")
-    (iso-8859-7		. "Q")
-    (iso-8859-8		. "Q")
-    (iso-8859-9		. "Q")
-    (iso-2022-jp	. "B")
-    (iso-2022-kr	. "B")
-    (gb2312		. "B")
-    (cn-gb		. "B")
-    (cn-gb-2312		. "B")
-    (euc-kr		. "B")
-    (iso-2022-jp-2	. "B")
-    (iso-2022-int-1	. "B")
-    ))
-
-
-;;; @ encoded-text encoder
-;;;
-
-(defun eword-encode-text (charset encoding string &optional mode)
-  "Encode STRING as an encoded-word, and return the result.
-CHARSET is a symbol to indicate MIME charset of the encoded-word.
-ENCODING allows \"B\" or \"Q\".
-MODE is allows `text', `comment', `phrase' or nil.  Default value is
-`phrase'."
-  (let ((text
-	 (cond ((string= encoding "B")
-		(base64-encode-string string))
-	       ((string= encoding "Q")
-		(q-encoding-encode-string string mode))
-	       )
-	 ))
-    (if text
-	(concat "=?" (upcase (symbol-name charset)) "?"
-		encoding "?" text "?=")
-      )))
-
-
-;;; @ charset word
-;;;
-
-(defsubst eword-encode-char-type (character)
-  (if (or (eq character ? )(eq character ?\t))
-      nil
-    (char-charset character)
-    ))
-
-(defun eword-encode-divide-into-charset-words (string)
-  (let ((len (length string))
-	dest)
-    (while (> len 0)
-      (let* ((chr (sref string 0))
-	     (charset (eword-encode-char-type chr))
-	     (i (char-bytes chr))
-	     )
-	(while (and (< i len)
-		    (setq chr (sref string i))
-		    (eq charset (eword-encode-char-type chr))
-		    )
-	  (setq i (+ i (char-bytes chr)))
-	  )
-	(setq dest (cons (cons charset (substring string 0 i)) dest)
-	      string (substring string i)
-	      len (- len i)
-	      )))
-    (nreverse dest)
-    ))
-
-
-;;; @ word
-;;;
-
-(defun eword-encode-charset-words-to-words (charset-words)
-  (let (dest)
-    (while charset-words
-      (let* ((charset-word (car charset-words))
-	     (charset (car charset-word))
-	     )
-	(if charset
-	    (let ((charsets (list charset))
-		  (str (cdr charset-word))
-		  )
-	      (catch 'tag
-		(while (setq charset-words (cdr charset-words))
-		  (setq charset-word (car charset-words)
-			charset (car charset-word))
-		  (if (null charset)
-		      (throw 'tag nil)
-		    )
-		  (or (memq charset charsets)
-		      (setq charsets (cons charset charsets))
-		      )
-		  (setq str (concat str (cdr charset-word)))
-		  ))
-	      (setq dest (cons (cons charsets str) dest))
-	      )
-	  (setq dest (cons charset-word dest)
-		charset-words (cdr charset-words)
-		))))
-    (nreverse dest)
-    ))
-
-
-;;; @ rule
-;;;
-
-(defmacro tm-eword::make-rword (text charset encoding type)
-  (` (list (, text)(, charset)(, encoding)(, type))))
-(defmacro tm-eword::rword-text (rword)
-  (` (car (, rword))))
-(defmacro tm-eword::rword-charset (rword)
-  (` (car (cdr (, rword)))))
-(defmacro tm-eword::rword-encoding (rword)
-  (` (car (cdr (cdr (, rword))))))
-(defmacro tm-eword::rword-type (rword)
-  (` (car (cdr (cdr (cdr (, rword)))))))
-
-(defun tm-eword::find-charset-rule (charsets)
-  (if charsets
-      (let* ((charset (charsets-to-mime-charset charsets))
-	     (encoding (cdr (assq charset eword-charset-encoding-alist)))
-	     )
-	(list charset encoding)
-	)))
-
-(defun tm-eword::words-to-ruled-words (wl &optional mode)
-  (mapcar (function
-	   (lambda (word)
-	     (let ((ret (tm-eword::find-charset-rule (car word))))
-	       (tm-eword::make-rword (cdr word) (car ret)(nth 1 ret) mode)
-	       )))
-	  wl))
-
-(defun tm-eword::space-process (seq)
-  (let (prev a ac b c cc)
-    (while seq
-      (setq b (car seq))
-      (setq seq (cdr seq))
-      (setq c (car seq))
-      (setq cc (tm-eword::rword-charset c))
-      (if (null (tm-eword::rword-charset b))
-	  (progn
-	    (setq a (car prev))
-	    (setq ac (tm-eword::rword-charset a))
-	    (if (and (tm-eword::rword-encoding a)
-		     (tm-eword::rword-encoding c))
-		(cond ((eq ac cc)
-		       (setq prev (cons
-				   (cons (concat (car a)(car b)(car c))
-					 (cdr a))
-				   (cdr prev)
-				   ))
-		       (setq seq (cdr seq))
-		       )
-		      (t
-		       (setq prev (cons
-				   (cons (concat (car a)(car b))
-					 (cdr a))
-				   (cdr prev)
-				   ))
-		       ))
-	      (setq prev (cons b prev))
-	      ))
-	(setq prev (cons b prev))
-	))
-    (reverse prev)
-    ))
-
-(defun tm-eword::split-string (str &optional mode)
-  (tm-eword::space-process
-   (tm-eword::words-to-ruled-words
-    (eword-encode-charset-words-to-words
-     (eword-encode-divide-into-charset-words str))
-    mode)))
-
-
-;;; @ length
-;;;
-
-(defun tm-eword::encoded-word-length (rword)
-  (let ((string   (tm-eword::rword-text     rword))
-	(charset  (tm-eword::rword-charset  rword))
-	(encoding (tm-eword::rword-encoding rword))
-	ret)
-    (setq ret
-	  (cond ((string-equal encoding "B")
-		 (setq string (encode-mime-charset-string string charset))
-		 (base64-encoded-length string)
-		 )
-		((string-equal encoding "Q")
-		 (setq string (encode-mime-charset-string string charset))
-		 (q-encoding-encoded-length string
-					    (tm-eword::rword-type rword))
-		 )))
-    (if ret
-	(cons (+ 7 (length (symbol-name charset)) ret) string)
-      )))
-
-
-;;; @ encode-string
-;;;
-
-(defun tm-eword::encode-string-1 (column rwl)
-  (let* ((rword (car rwl))
-	 (ret (tm-eword::encoded-word-length rword))
-	 string len)
-    (if (null ret)
-	(cond ((and (setq string (car rword))
-		    (or (<= (setq len (+ (length string) column)) 76)
-			(<= column 1))
-		    )
-	       (setq rwl (cdr rwl))
-	       )
-	      (t
-	       (setq string "\n ")
-	       (setq len 1)
-	       ))
-      (cond ((and (setq len (car ret))
-		  (<= (+ column len) 76)
-		  )
-	     (setq string
-		   (eword-encode-text
-		    (tm-eword::rword-charset rword)
-		    (tm-eword::rword-encoding rword)
-		    (cdr ret)
-		    (tm-eword::rword-type rword)
-		    ))
-	     (setq len (+ (length string) column))
-	     (setq rwl (cdr rwl))
-	     )
-	    (t
-	     (setq string (car rword))
-	     (let* ((p 0) np
-		    (str "") nstr)
-	       (while (and (< p len)
-			   (progn
-			     (setq np (+ p (char-bytes (sref string p))))
-			     (setq nstr (substring string 0 np))
-			     (setq ret (tm-eword::encoded-word-length
-					(cons nstr (cdr rword))
-					))
-			     (setq nstr (cdr ret))
-			     (setq len (+ (car ret) column))
-			     (<= len 76)
-			     ))
-		 (setq str nstr
-		       p np))
-	       (if (string-equal str "")
-		   (setq string "\n "
-			 len 1)
-		 (setq rwl (cons (cons (substring string p) (cdr rword))
-				 (cdr rwl)))
-		 (setq string
-		       (eword-encode-text
-			(tm-eword::rword-charset rword)
-			(tm-eword::rword-encoding rword)
-			str
-			(tm-eword::rword-type rword)))
-		 (setq len (+ (length string) column))
-		 )
-	       )))
-      )
-    (list string len rwl)
-    ))
-
-(defun tm-eword::encode-rwl (column rwl)
-  (let (ret dest ps special str ew-f pew-f)
-    (while rwl
-      (setq ew-f (nth 2 (car rwl)))
-      (if (and pew-f ew-f)
-	  (setq rwl (cons '(" ") rwl)
-		pew-f nil)
-	(setq pew-f ew-f)
-	)
-      (setq ret (tm-eword::encode-string-1 column rwl))
-      (setq str (car ret))
-      (if (eq (elt str 0) ?\n)
-	  (if (eq special ?\()
-	      (progn
-		(setq dest (concat dest "\n ("))
-		(setq ret (tm-eword::encode-string-1 2 rwl))
-		(setq str (car ret))
-		))
-	(cond ((eq special ? )
-	       (if (string= str "(")
-		   (setq ps t)
-		 (setq dest (concat dest " "))
-		 (setq ps nil)
-		 ))
-	      ((eq special ?\()
-	       (if ps
-		   (progn
-		     (setq dest (concat dest " ("))
-		     (setq ps nil)
-		     )
-		 (setq dest (concat dest "("))
-		 )
-	       )))
-      (cond ((string= str " ")
-	     (setq special ? )
-	     )
-	    ((string= str "(")
-	     (setq special ?\()
-	     )
-	    (t
-	     (setq special nil)
-	     (setq dest (concat dest str))
-	     ))
-      (setq column (nth 1 ret)
-	    rwl (nth 2 ret))
-      )
-    (list dest column)
-    ))
-
-(defun tm-eword::encode-string (column str &optional mode)
-  (tm-eword::encode-rwl column (tm-eword::split-string str mode))
-  )
-
-
-;;; @ converter
-;;;
-
-(defun tm-eword::phrase-to-rwl (phrase)
-  (let (token type dest str)
-    (while phrase
-      (setq token (car phrase))
-      (setq type (car token))
-      (cond ((eq type 'quoted-string)
-	     (setq str (concat "\"" (cdr token) "\""))
-	     (setq dest
-		   (append dest
-			   (list
-			    (let ((ret (tm-eword::find-charset-rule
-					(find-non-ascii-charset-string str))))
-			      (tm-eword::make-rword
-			       str (car ret)(nth 1 ret) 'phrase)
-			      )
-			    )))
-	     )
-	    ((eq type 'comment)
-	     (setq dest
-		   (append dest
-			   '(("(" nil nil))
-			   (tm-eword::words-to-ruled-words
-			    (eword-encode-charset-words-to-words
-			     (eword-encode-divide-into-charset-words
-			      (cdr token)))
-			    'comment)
-			   '((")" nil nil))
-			   ))
-	     )
-	    (t
-	     (setq dest
-		   (append dest
-			   (tm-eword::words-to-ruled-words
-			    (eword-encode-charset-words-to-words
-			     (eword-encode-divide-into-charset-words
-			      (cdr token))
-			     ) 'phrase)))
-	     ))
-      (setq phrase (cdr phrase))
-      )
-    (tm-eword::space-process dest)
-    ))
-
-(defun eword-addr-seq-to-rwl (seq)
-  (let (dest pname)
-    (while seq
-      (let* ((token (car seq))
-	     (name (car token))
-	     )
-	(cond ((eq name 'spaces)
-	       (setq dest (nconc dest (list (list (cdr token) nil nil))))
-	       )
-	      ((eq name 'comment)
-	       (setq dest
-		     (nconc
-		      dest
-		      (list (list "(" nil nil))
-		      (tm-eword::split-string (cdr token) 'comment)
-		      (list (list ")" nil nil))
-		      ))
-	       )
-	      ((eq name 'quoted-string)
-	       (setq dest
-		     (nconc
-		      dest
-		      (list
-		       (list (concat "\"" (cdr token) "\"") nil nil)
-		       )))
-	       )
-	      (t
-	       (setq dest
-		     (if (or (eq pname 'spaces)
-			     (eq pname 'comment))
-			 (nconc dest (list (list (cdr token) nil nil)))
-		       (nconc (butlast dest)
-			      (list
-			       (list (concat (car (car (last dest)))
-					     (cdr token))
-				     nil nil)))))
-	       ))
-	(setq seq (cdr seq)
-	      pname name))
-      )
-    dest))
-
-(defun eword-phrase-route-addr-to-rwl (phrase-route-addr)
-  (if (eq (car phrase-route-addr) 'phrase-route-addr)
-      (let ((phrase (nth 1 phrase-route-addr))
-	    (route (nth 2 phrase-route-addr))
-	    dest)
-	(if (eq (car (car phrase)) 'spaces)
-	    (setq phrase (cdr phrase))
-	  )
-	(setq dest (tm-eword::phrase-to-rwl phrase))
-	(if dest
-	    (setq dest (append dest '((" " nil nil))))
-	  )
-	(append
-	 dest
-	 (eword-addr-seq-to-rwl
-	  (append '((specials . "<"))
-		  route
-		  '((specials . ">"))))
-	 ))))
-
-(defun eword-addr-spec-to-rwl (addr-spec)
-  (if (eq (car addr-spec) 'addr-spec)
-      (eword-addr-seq-to-rwl (cdr addr-spec))
-    ))
-
-(defun tm-eword::mailbox-to-rwl (mbox)
-  (let ((addr (nth 1 mbox))
-	(comment (nth 2 mbox))
-	dest)
-    (setq dest (or (eword-phrase-route-addr-to-rwl addr)
-		   (eword-addr-spec-to-rwl addr)
-		   ))
-    (if comment
-	(setq dest
-	      (append dest
-		      '((" " nil nil)
-			("(" nil nil))
-		      (tm-eword::split-string comment 'comment)
-		      '((")" nil nil))
-		      )))
-    dest))
-
-(defun tm-eword::addresses-to-rwl (addresses)
-  (let ((dest (tm-eword::mailbox-to-rwl (car addresses))))
-    (if dest
-	(while (setq addresses (cdr addresses))
-	  (setq dest (append dest
-			     '(("," nil nil))
-			     '((" " nil nil))
-			     (tm-eword::mailbox-to-rwl (car addresses))
-			     ))
-	  ))
-    dest))
-
-(defun tm-eword::encode-address-list (column str)
-  (tm-eword::encode-rwl
-   column
-   (tm-eword::addresses-to-rwl (std11-parse-addresses-string str))
-   ))
-
-
-;;; @ application interfaces
-;;;
-
-(defun eword-encode-field (string)
-  "Encode header field STRING, and return the result.
-A lexical token includes non-ASCII character is encoded as MIME
-encoded-word.  ASCII token is not encoded."
-  (setq string (std11-unfold-string string))
-  (let ((ret (string-match std11-field-head-regexp string)))
-    (or (if ret
-	    (let ((field-name (substring string 0 (1- (match-end 0))))
-		  (field-body (eliminate-top-spaces
-			       (substring string (match-end 0))))
-		  )
-	      (if (setq ret
-			(cond ((string-equal field-body "") "")
-			      ((memq (intern (downcase field-name))
-				     '(reply-to
-				       from sender
-				       resent-reply-to resent-from
-				       resent-sender to resent-to
-				       cc resent-cc
-				       bcc resent-bcc dcc
-				       mime-version)
-				     )
-			       (car (tm-eword::encode-address-list
-				     (+ (length field-name) 2) field-body))
-			       )
-			      (t
-			       (car (tm-eword::encode-string
-				     (1+ (length field-name))
-				     field-body 'text))
-			       ))
-			)
-		  (concat field-name ": " ret)
-		)))
-	(car (tm-eword::encode-string 0 string))
-	)))
-
-(defun eword-in-subject-p ()
-  (let ((str (std11-field-body "Subject")))
-    (if (and str (string-match eword-encoded-word-regexp str))
-	str)))
-
-(defsubst eword-find-field-encoding-method (field-name)
-  (setq field-name (downcase field-name))
-  (let ((alist eword-field-encoding-method-alist))
-    (catch 'found
-      (while alist
-	(let* ((pair (car alist))
-	       (str (car pair)))
-	  (if (and (stringp str)
-		   (string= field-name (downcase str)))
-	      (throw 'found (cdr pair))
-	    ))
-	(setq alist (cdr alist)))
-      (cdr (assq t eword-field-encoding-method-alist))
-      )))
-
-(defun eword-encode-header (&optional code-conversion)
-  "Encode header fields to network representation, such as MIME encoded-word.
-
-It refer variable `eword-field-encoding-method-alist'."
-  (interactive "*")
-  (save-excursion
-    (save-restriction
-      (std11-narrow-to-header mail-header-separator)
-      (goto-char (point-min))
-      (let ((default-cs (mime-charset-to-coding-system default-mime-charset))
-	    beg end field-name)
-	(while (re-search-forward std11-field-head-regexp nil t)
-	  (setq beg (match-beginning 0))
-	  (setq field-name (buffer-substring beg (1- (match-end 0))))
-	  (setq end (std11-field-end))
-	  (and (find-non-ascii-charset-region beg end)
-	       (let ((method (eword-find-field-encoding-method
-			      (downcase field-name))))
-		 (cond ((eq method 'mime)
-			(let ((field
-			       (buffer-substring-no-properties beg end)
-			       ))
-			  (delete-region beg end)
-			  (insert (eword-encode-field field))
-			  ))
-		       (code-conversion
-			(let ((cs
-			       (or (mime-charset-to-coding-system
-				    method)
-				   default-cs)))
-			  (encode-coding-region beg end cs)
-			  )))
-		 ))
-	  ))
-      )))
-
-(defun eword-encode-string (str &optional column mode)
-  (car (tm-eword::encode-rwl (or column 0) (tm-eword::split-string str mode)))
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'eword-encode)
-
-;;; eword-encode.el ends here
diff --git a/ftp.in b/ftp.in
deleted file mode 100644
index fa8f417..0000000
--- a/ftp.in
+++ /dev/null
@@ -1,17 +0,0 @@
---<<alternative>>-{
-
-  It is available from
-
-    ftp://ftp.jaist.ac.jp/pub/GNU/elisp/semi/
-
---[[message/external-body;
-	access-type=anon-ftp;
-	site="ftp.jaist.ac.jp";
-	directory="/pub/GNU/elisp/semi";
-	name="wemi-VERSION.tar.gz";
-	mode=image]]
-Content-Type: application/octet-stream;
-	name="wemi-VERSION.tar.gz";
-	type=tar;
-	conversions=gzip
---}-<<alternative>>
diff --git a/mail-mime-setup.el b/mail-mime-setup.el
deleted file mode 100644
index d11ef6d..0000000
--- a/mail-mime-setup.el
+++ /dev/null
@@ -1,56 +0,0 @@
-;;; mail-mime-setup.el --- setup file for mail-mode.
-
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: mail-mode, MIME, multimedia, multilingual, encoded-word
-
-;; This file is part of SEMI (Setting for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'semi-setup)
-
-
-(autoload 'turn-on-mime-edit "mime-edit"
-  "Unconditionally turn on MIME-Edit minor mode." t)
-
-(autoload 'eword-decode-header "eword-decode"
-  "Decode MIME encoded-words in header fields." t)
-
-
-;;; @ for mail-mode, RMAIL and VM
-;;;
-
-(add-hook 'mail-setup-hook 'eword-decode-header)
-(add-hook 'mail-setup-hook 'turn-on-mime-edit 'append)
-(add-hook 'mail-send-hook  'mime-edit-maybe-translate)
-(set-alist 'mime-edit-split-message-sender-alist
-           'mail-mode (function
-                       (lambda ()
-                         (interactive)
-                         (funcall send-mail-function)
-                         )))
-
-
-;;; @ end
-;;;
-
-(provide 'mail-mime-setup)
-
-;;; mail-mime-setup.el ends here
diff --git a/mailcap.el b/mailcap.el
deleted file mode 100644
index 32aa278..0000000
--- a/mailcap.el
+++ /dev/null
@@ -1,191 +0,0 @@
-;;; mailcap.el --- mailcap parser
-
-;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1997/6/27
-;; Keywords: mailcap, setting, configuration, MIME, multimedia
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-;;; @ comment
-;;;
-
-(defsubst mailcap-skip-comment ()
-  (let ((chr (char-after (point))))
-    (when (and chr
-	       (or (= chr ?\n)
-		   (= chr ?#)))
-      (forward-line)
-      t)))
-
-
-;;; @ token
-;;;
-
-(defsubst mailcap-look-at-token ()
-  (if (looking-at mime-token-regexp)
-      (let ((beg (match-beginning 0))
-	    (end (match-end 0)))
-	(goto-char end)
-	(buffer-substring beg end)
-	)))
-
-
-;;; @ typefield
-;;;
-
-(defsubst mailcap-look-at-type-field ()
-  (let ((type (mailcap-look-at-token)))
-    (if type
-	(if (eq (char-after (point)) ?/)
-	    (progn
-	      (forward-char)
-	      (let ((subtype (mailcap-look-at-token)))
-		(if subtype
-		    (cons (cons 'type (intern type))
-			  (unless (string= subtype "*")
-			    (list (cons 'subtype (intern subtype)))
-			    )))))
-	  (list (cons 'type (intern type)))
-	  ))))
-
-
-;;; @ field separator
-;;;
-
-(defsubst mailcap-skip-field-separator ()
-  (let ((ret (looking-at "\\([ \t]\\|\\\\\n\\)*;\\([ \t]\\|\\\\\n\\)*")))
-    (when ret
-      (goto-char (match-end 0))
-      t)))
-
-
-;;; @ mtext
-;;;
-
-(defsubst mailcap-look-at-schar ()
-  (let ((chr (char-after (point))))
-    (if (and (>= chr ? )
-	     (/= chr ?\;)
-	     (/= chr ?\\)
-	     )
-	(prog1
-	    chr
-	  (forward-char)))))
-
-(defsubst mailcap-look-at-qchar ()
-  (let ((chr (char-after (point))))
-    (when (eq chr ?\\)
-      (forward-char 2)
-      (char-before (point))
-      )))
-
-(defsubst mailcap-look-at-mtext ()
-  (let ((beg (point)))
-    (while (or (mailcap-look-at-schar)
-	       (mailcap-look-at-schar)))
-    (buffer-substring beg (point))
-    ))
-
-
-;;; @ field
-;;;
-
-(defsubst mailcap-look-at-field ()
-  (let ((token (mailcap-look-at-token)))
-    (if token
-	(if (looking-at "[ \t]*=[ \t]*")
-	    (let ((value (progn
-			   (goto-char (match-end 0))
-			   (mailcap-look-at-mtext))))
-	      (if value
-		  (cons (intern token) value)
-		))
-	  (list (intern token))
-	  ))))
-
-
-;;; @ mailcap entry
-;;;
-
-(defun mailcap-look-at-entry ()
-  (let ((type (mailcap-look-at-type-field)))
-    (if (and type (mailcap-skip-field-separator))
-	(let ((view (mailcap-look-at-mtext))
-	      fields field)
-	  (when view
-	    (while (and (mailcap-skip-field-separator)
-			(setq field (mailcap-look-at-field))
-			)
-	      (setq fields (cons field fields))
-	      )
-	    (nconc type
-		   (list (cons 'view view))
-		   fields))))))
-
-
-;;; @ main
-;;;
-
-(defun mailcap-parse-buffer (&optional buffer order)
-  "Parse BUFFER as a mailcap, and return the result.
-If optional argument ORDER is a function, result is sorted by it.
-If optional argument ORDER is not specified, result is sorted original
-order.  Otherwise result is not sorted."
-  (save-excursion
-    (if buffer
-	(set-buffer buffer))
-    (goto-char (point-min))
-    (let (entries entry)
-      (while (progn
-	       (while (mailcap-skip-comment))
-	       (setq entry (mailcap-look-at-entry))
-	       )
-	(setq entries (cons entry entries))
-	(forward-line)
-	)
-      (cond ((functionp order) (sort entries order))
-	    ((null order) (nreverse entries))
-	    (t entries)
-	    ))))
-
-(defvar mailcap-file "~/.mailcap"
-  "*File name of user's mailcap file.")
-
-(defun mailcap-parse-file (&optional filename order)
-  "Parse FILENAME as a mailcap, and return the result.
-If optional argument ORDER is a function, result is sorted by it.
-If optional argument ORDER is not specified, result is sorted original
-order.  Otherwise result is not sorted."
-  (or filename
-      (setq filename mailcap-file))
-  (with-temp-buffer
-    (insert-file-contents filename)
-    (mailcap-parse-buffer (current-buffer) order)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mailcap)
-
-;;; mailcap.el ends here
diff --git a/mime-bbdb.el b/mime-bbdb.el
deleted file mode 100644
index 002942a..0000000
--- a/mime-bbdb.el
+++ /dev/null
@@ -1,301 +0,0 @@
-;;; mime-bbdb.el --- SEMI shared module for BBDB
-
-;; Copyright (C) 1995,1996,1997 Shuhei KOBAYASHI
-;; Copyright (C) 1997,1998 MORIOKA Tomohiko
-
-;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Keywords: BBDB, MIME, multimedia, multilingual, mail, news
-
-;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'path-util)
-(require 'std11)
-(require 'mime-view)
-
-(if (module-installed-p 'bbdb-com)
-    (require 'bbdb-com)
-  (eval-when-compile
-    ;; imported from bbdb-1.51
-    (defmacro bbdb-pop-up-elided-display ()
-      '(if (boundp 'bbdb-pop-up-elided-display)
-	   bbdb-pop-up-elided-display
-	 bbdb-elided-display))
-    (defmacro bbdb-user-mail-names ()
-      "Returns a regexp matching the address of the logged-in user"
-      '(or bbdb-user-mail-names
-	   (setq bbdb-user-mail-names
-		 (concat "\\b" (regexp-quote (user-login-name)) "\\b"))))
-    ))
-
-
-;;; @ User Variables
-;;;
-
-(defvar mime-bbdb/use-mail-extr t
-  "*If non-nil, `mail-extract-address-components' is used.
-Otherwise `mime-bbdb/extract-address-components' overrides it.")
-
-(defvar mime-bbdb/auto-create-p nil
-  "*If t, create new BBDB records automatically.
-If function, then it is called with no arguments to decide whether an
-entry should be automatically creaded.
-
-mime-bbdb uses this variable instead of `bbdb/mail-auto-create-p' or
-`bbdb/news-auto-create-p' unless other tm-MUA overrides it.")
-
-(defvar mime-bbdb/delete-empty-window nil
-  "*If non-nil, delete empty BBDB window.
-All bbdb-MUAs but bbdb-gnus display BBDB window even if it is empty.
-If you prefer behavior of bbdb-gnus, set this variable to t.
-
-For framepop users: If empty, `framepop-banish' is used instead.")
-
-;;; @ mail-extr
-;;;
-
-(defun mime-bbdb/extract-address-components (str)
-  (let* ((ret     (std11-extract-address-components str))
-         (phrase  (car ret))
-         (address (car (cdr ret)))
-         (methods mime-bbdb/canonicalize-full-name-methods))
-    (while (and phrase methods)
-      (setq phrase  (funcall (car methods) phrase)
-            methods (cdr methods)))
-    (if (string= address "") (setq address nil))
-    (if (string= phrase "") (setq phrase nil))
-    (list phrase address)
-    ))
-
-(or mime-bbdb/use-mail-extr
-    (progn
-      (require 'mail-extr) ; for `what-domain'
-      (or (fboundp 'tm:mail-extract-address-components)
-          (fset 'tm:mail-extract-address-components
-                (symbol-function 'mail-extract-address-components)))
-      (fset 'mail-extract-address-components
-	    (symbol-function 'mime-bbdb/extract-address-components))
-      ))
-
-
-;;; @ bbdb-extract-field-value
-;;;
-
-(or (fboundp 'tm:bbdb-extract-field-value)
-    (progn
-      ;; (require 'bbdb-hooks) ; not provided.
-      ;; (or (fboundp 'bbdb-extract-field-value) ; defined as autoload
-      (or (fboundp 'bbdb-header-start)
-          (load "bbdb-hooks"))
-      (fset 'tm:bbdb-extract-field-value
-            (symbol-function 'bbdb-extract-field-value))
-      (defun bbdb-extract-field-value (field)
-        (let ((value (tm:bbdb-extract-field-value field)))
-          (and value
-               (eword-decode-string value))))
-      ))
-
-
-;;; @ full-name canonicalization methods
-;;;
-
-(defun mime-bbdb/canonicalize-spaces (str)
-  (let (dest)
-    (while (string-match "\\s +" str)
-      (setq dest (cons (substring str 0 (match-beginning 0)) dest))
-      (setq str (substring str (match-end 0)))
-      )
-    (or (string= str "")
-        (setq dest (cons str dest)))
-    (setq dest (nreverse dest))
-    (mapconcat 'identity dest " ")
-    ))
-
-(defun mime-bbdb/canonicalize-dots (str)
-  (let (dest)
-    (while (string-match "\\." str)
-      (setq dest (cons (substring str 0 (match-end 0)) dest))
-      (setq str (substring str (match-end 0)))
-      )
-    (or (string= str "")
-        (setq dest (cons str dest)))
-    (setq dest (nreverse dest))
-    (mapconcat 'identity dest " ")
-    ))
-
-(defvar mime-bbdb/canonicalize-full-name-methods
-  '(eword-decode-string
-    mime-bbdb/canonicalize-dots
-    mime-bbdb/canonicalize-spaces))
-
-
-;;; @ BBDB functions for mime-view-mode
-;;;
-
-(defun mime-bbdb/update-record (&optional offer-to-create)
-  "Return the record corresponding to the current MIME previewing message.
-Creating or modifying it as necessary. A record will be created if
-mime-bbdb/auto-create-p is non-nil, or if OFFER-TO-CREATE is non-nil and
-the user confirms the creation."
-  (save-excursion
-    (if (and mime-preview-buffer
-             (get-buffer mime-preview-buffer))
-        (set-buffer mime-preview-buffer))
-    (if bbdb-use-pop-up
-        (mime-bbdb/pop-up-bbdb-buffer offer-to-create)
-      (let* ((from (std11-field-body "From"))
-             (addr (if from
-		       (car (cdr (mail-extract-address-components from))))))
-        (if (or (null from)
-                (null addr)
-                (string-match (bbdb-user-mail-names) addr))
-            (setq from (or (std11-field-body "To") from))
-	  )
-        (if from
-            (bbdb-annotate-message-sender
-             from t
-             (or (bbdb-invoke-hook-for-value mime-bbdb/auto-create-p)
-                 offer-to-create)
-             offer-to-create))
-        ))))
-
-(defun mime-bbdb/annotate-sender (string)
-  "Add a line to the end of the Notes field of the BBDB record
-corresponding to the sender of this message."
-  (interactive
-   (list (if bbdb-readonly-p
-             (error "The Insidious Big Brother Database is read-only.")
-           (read-string "Comments: "))))
-  (bbdb-annotate-notes (mime-bbdb/update-record t) string))
-
-(defun mime-bbdb/edit-notes (&optional arg)
-  "Edit the notes field or (with a prefix arg) a user-defined field
-of the BBDB record corresponding to the sender of this message."
-  (interactive "P")
-  (let ((record (or (mime-bbdb/update-record t)
-                    (error ""))))
-    (bbdb-display-records (list record))
-    (if arg
-	(bbdb-record-edit-property record nil t)
-      (bbdb-record-edit-notes record t))))
-
-(defun mime-bbdb/show-sender ()
-  "Display the contents of the BBDB for the sender of this message.
-This buffer will be in bbdb-mode, with associated keybindings."
-  (interactive)
-  (let ((record (mime-bbdb/update-record t)))
-    (if record
-	(bbdb-display-records (list record))
-	(error "unperson"))))
-
-(defun mime-bbdb/pop-up-bbdb-buffer (&optional offer-to-create)
-  "Make the *BBDB* buffer be displayed along with the MIME preview window(s),
-displaying the record corresponding to the sender of the current message."
-  (let ((framepop (eq temp-buffer-show-function 'framepop-display-buffer)))
-    (or framepop
-        (bbdb-pop-up-bbdb-buffer
-         (function
-          (lambda (w)
-            (let ((b (current-buffer)))
-              (set-buffer (window-buffer w))
-              (prog1 (eq major-mode 'mime-view-mode)
-                (set-buffer b)))))))
-    (let ((bbdb-gag-messages t)
-          (bbdb-use-pop-up nil)
-          (bbdb-electric-p nil))
-      (let ((record (mime-bbdb/update-record offer-to-create))
-            (bbdb-elided-display (bbdb-pop-up-elided-display))
-            (b (current-buffer)))
-        (if framepop
-            (if record
-                (bbdb-display-records (list record))
-              (framepop-banish))
-          (bbdb-display-records (if record (list record) nil))
-          (if (and (null record)
-                   mime-bbdb/delete-empty-window)
-              (delete-windows-on (get-buffer "*BBDB*"))))
-        (set-buffer b)
-        record))))
-
-(defun mime-bbdb/define-keys ()
-  (let ((mime-view-mode-map (current-local-map)))
-    (define-key mime-view-mode-map ";" 'mime-bbdb/edit-notes)
-    (define-key mime-view-mode-map ":" 'mime-bbdb/show-sender)
-    ))
-
-(add-hook 'mime-view-define-keymap-hook 'mime-bbdb/define-keys)
-
-
-;;; @ for signature.el
-;;;
-
-(defun signature/get-bbdb-sigtype (addr)
-  "Extract sigtype information from BBDB."
-  (let ((record (bbdb-search-simple nil addr)))
-    (and record
-         (bbdb-record-getprop record 'sigtype))
-    ))
-
-(defun signature/set-bbdb-sigtype (sigtype addr)
-  "Add sigtype information to BBDB."
-  (let* ((bbdb-notice-hook nil)
-         (record (bbdb-annotate-message-sender
-                  addr t
-                  (bbdb-invoke-hook-for-value
-                   bbdb/mail-auto-create-p)
-                  t)))
-    (if record
-        (progn
-          (bbdb-record-putprop record 'sigtype sigtype)
-          (bbdb-change-record record nil))
-      )))
-
-(defun signature/get-sigtype-from-bbdb (&optional verbose)
-  (let* ((to (std11-field-body "To"))
-         (addr (and to
-                    (car (cdr (mail-extract-address-components to)))))
-         (sigtype (signature/get-bbdb-sigtype addr))
-         return
-         )
-    (if addr
-        (if verbose
-            (progn
-              (setq return (signature/get-sigtype-interactively sigtype))
-              (if (and (not (string-equal return sigtype))
-                       (y-or-n-p
-                        (format "Register \"%s\" for <%s>? " return addr))
-                       )
-                  (signature/set-bbdb-sigtype return addr)
-                )
-              return)
-          (or sigtype
-              (signature/get-signature-file-name))
-          ))
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-bbdb)
-
-(run-hooks 'mime-bbdb-load-hook)
-
-;;; end of mime-bbdb.el
diff --git a/mime-def.el b/mime-def.el
deleted file mode 100644
index 0d5a2f4..0000000
--- a/mime-def.el
+++ /dev/null
@@ -1,326 +0,0 @@
-;;; mime-def.el --- definition module for SEMI
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: definition, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'custom)
-
-(defgroup mime nil
-  "Emacs MIME Interfaces"
-  :group 'news
-  :group 'mail)
-
-(custom-handle-keyword 'default-mime-charset :group 'mime
-		       'custom-variable)
-
-(unless (fboundp 'butlast)
-  (defun butlast (x &optional n)
-    "Returns a copy of LIST with the last N elements removed."
-    (if (and n (<= n 0)) x
-      (nbutlast (copy-sequence x) n)))
-  
-  (defun nbutlast (x &optional n)
-    "Modifies LIST to remove the last N elements."
-    (let ((m (length x)))
-      (or n (setq n 1))
-      (and (< n m)
-	   (progn
-	     (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
-	     x))))
-  )
-
-(defconst semi-version '("Nishiizumi" 1 2 0)
-  "Version name and numbers of SEMI-kernel package.")
-
-(autoload 'mule-caesar-region "mule-caesar"
-  "Caesar rotation of current region." t)
-
-
-;;; @ variables
-;;;
-
-(defvar mime/use-multi-frame
-  (and (>= emacs-major-version 19) window-system))
-
-(defvar mime/find-file-function
-  (if mime/use-multi-frame
-      (function find-file-other-frame)
-    (function find-file)
-    ))
-
-
-;;; @ constants
-;;;
-
-(defconst mime-echo-buffer-name "*MIME-echo*"
-  "Name of buffer to display MIME-playing information.")
-
-(defconst mime-temp-buffer-name " *MIME-temp*")
-
-
-;;; @ definitions about MIME
-;;;
-
-(defconst mime-tspecials "][()<>@,\;:\\\"/?=")
-(defconst mime-token-regexp (concat "[^" mime-tspecials "\000-\040]+"))
-(defconst mime-charset-regexp mime-token-regexp)
-
-(defconst mime-media-type/subtype-regexp
-  (concat mime-token-regexp "/" mime-token-regexp))
-
-
-;;; @ button
-;;;
-
-(defcustom mime-button-face 'bold
-  "Face used for content-button or URL-button of MIME-Preview buffer."
-  :group 'mime
-  :type 'face)
-
-(defcustom mime-button-mouse-face 'highlight
-  "Face used for MIME-preview buffer mouse highlighting."
-  :group 'mime
-  :type 'face)
-
-(defsubst mime-add-button (from to function &optional data)
-  "Create a button between FROM and TO with callback FUNCTION and DATA."
-  (let ((overlay (make-overlay from to)))
-    (and mime-button-face
-	 (overlay-put overlay 'face mime-button-face))
-    (and mime-button-mouse-face
-	 (overlay-put overlay 'mouse-face mime-button-mouse-face))
-    (add-text-properties from to (list 'mime-button-callback function))
-    (and data
-	 (add-text-properties from to (list 'mime-button-data data)))
-    ;;(add-text-properties from to (list 'keymap widget-keymap))
-    ))
-
-(defsubst mime-insert-button (string function &optional data)
-  "Insert STRING as button with callback FUNCTION and DATA."
-  (save-restriction
-    (narrow-to-region (point)(point))
-    (insert (concat "[" string "]"))
-    ;; (widget-push-button-value-create
-    ;;  (widget-convert 'push-button
-    ;;                  :notify (lambda (&rest ignore)
-    ;;                            (mime-preview-play-current-entity)
-    ;;                            )
-    ;;                  string))
-    (insert "\n")
-    (mime-add-button (point-min)(point-max) function data)
-    ))
-
-(defvar mime-button-mother-dispatcher nil)
-
-(defun mime-button-dispatcher (event)
-  "Select the button under point."
-  (interactive "e")
-  (let (buf point func data)
-    (save-window-excursion
-      (mouse-set-point event)
-      (setq buf (current-buffer)
-	    point (point)
-	    func (get-text-property (point) 'mime-button-callback)
-	    data (get-text-property (point) 'mime-button-data)
-	    )
-      )
-    (save-excursion
-      (set-buffer buf)
-      (goto-char point)
-      (if func
-	  (apply func data)
-	(if (fboundp mime-button-mother-dispatcher)
-	    (funcall mime-button-mother-dispatcher event)
-	  )
-	))))
-
-
-;;; @ PGP
-;;;
-
-(defvar pgp-function-alist
-  '(
-    ;; for mime-pgp
-    (verify		mc-verify			"mc-toplev")
-    (decrypt		mc-decrypt			"mc-toplev")
-    (fetch-key		mc-pgp-fetch-key		"mc-pgp")
-    (snarf-keys		mc-snarf-keys			"mc-toplev")
-    ;; for mime-edit
-    (mime-sign		mime-mc-pgp-sign-region		"mime-mc")
-    (traditional-sign	mc-pgp-sign-region		"mc-pgp")
-    (encrypt		mime-mc-pgp-encrypt-region	"mime-mc")
-    (insert-key		mc-insert-public-key		"mc-toplev")
-    )
-  "Alist of service names vs. corresponding functions and its filenames.
-Each element looks like (SERVICE FUNCTION FILE).
-
-SERVICE is a symbol of PGP processing.  It allows `verify', `decrypt',
-`fetch-key', `snarf-keys', `mime-sign', `traditional-sign', `encrypt'
-or `insert-key'.
-
-Function is a symbol of function to do specified SERVICE.
-
-FILE is string of filename which has definition of corresponding
-FUNCTION.")
-
-(defmacro pgp-function (method)
-  "Return function to do service METHOD."
-  `(cadr (assq ,method (symbol-value 'pgp-function-alist)))
-  )
-
-(mapcar (function
-	 (lambda (method)
-	   (autoload (cadr method)(nth 2 method))
-	   ))
-	pgp-function-alist)
-
-
-;;; @ method selector kernel
-;;;
-
-(require 'atype)
-
-;;; @@ field unifier
-;;;
-
-(defun field-unifier-for-mode (a b)
-  (let ((va (cdr a)))
-    (if (if (consp va)
-	    (member (cdr b) va)
-	  (equal va (cdr b))
-	  )
-	(list nil b nil)
-      )))
-
-
-;;; @ field
-;;;
-
-(defsubst regexp-or (&rest args)
-  (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
-
-(defun tm:set-fields (sym field-list &optional regexp-sym)
-  (or regexp-sym
-      (setq regexp-sym
-	    (let ((name (symbol-name sym)))
-	      (intern
-	       (concat (if (string-match "\\(.*\\)-list" name)
-			   (substring name 0 (match-end 1))
-			 name)
-		       "-regexp")
-	       )))
-      )
-  (set sym field-list)
-  (set regexp-sym
-       (concat "^" (apply (function regexp-or) field-list) ":"))
-  )
-
-(defun tm:add-fields (sym field-list &optional regexp-sym)
-  (or regexp-sym
-      (setq regexp-sym
-	    (let ((name (symbol-name sym)))
-	      (intern
-	       (concat (if (string-match "\\(.*\\)-list" name)
-			   (substring name 0 (match-end 1))
-			 name)
-		       "-regexp")
-	       )))
-      )
-  (let ((fields (eval sym)))
-    (mapcar (function
-	     (lambda (field)
-	       (or (member field fields)
-		   (setq fields (cons field fields))
-		   )
-	       ))
-	    (reverse field-list)
-	    )
-    (set regexp-sym
-	 (concat "^" (apply (function regexp-or) fields) ":"))
-    (set sym fields)
-    ))
-
-(defun tm:delete-fields (sym field-list &optional regexp-sym)
-  (or regexp-sym
-      (setq regexp-sym
-	    (let ((name (symbol-name sym)))
-	      (intern
-	       (concat (if (string-match "\\(.*\\)-list" name)
-			   (substring name 0 (match-end 1))
-			 name)
-		       "-regexp")
-	       )))
-      )
-  (let ((fields (eval sym)))
-    (mapcar (function
-	     (lambda (field)
-	       (setq fields (delete field fields))
-	       ))
-	    field-list)
-    (set regexp-sym
-	 (concat "^" (apply (function regexp-or) fields) ":"))
-    (set sym fields)
-    ))
-
-
-;;; @ RCS version
-;;;
-
-(defsubst get-version-string (id)
-  "Return a version-string from RCS ID."
-  (and (string-match ",v \\([0-9][0-9.][0-9.]+\\)" id)
-       (substring id (match-beginning 1)(match-end 1))
-       ))
-
-
-;;; @ Other Utility
-;;;
-
-(defsubst eliminate-top-spaces (string)
-  "Eliminate top sequence of space or tab in STRING."
-  (if (string-match "^[ \t]+" string)
-      (substring string (match-end 0))
-    string))
-
-(defun call-after-loaded (module func &optional hook-name)
-  "If MODULE is provided, then FUNC is called.
-Otherwise func is set to MODULE-load-hook.
-If optional argument HOOK-NAME is specified,
-it is used as hook to set."
-  (if (featurep module)
-      (funcall func)
-    (or hook-name
-	(setq hook-name (intern (concat (symbol-name module) "-load-hook")))
-	)
-    (add-hook hook-name func)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-def)
-
-;;; mime-def.el ends here
diff --git a/mime-edit.el b/mime-edit.el
deleted file mode 100644
index 96b24f4..0000000
--- a/mime-edit.el
+++ /dev/null
@@ -1,2727 +0,0 @@
-;;; mime-edit.el --- Simple MIME Composer for GNU Emacs
-
-;; Copyright (C) 1993,1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
-;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1994/08/21 renamed from mime.el
-;;	Renamed: 1997/2/21 from tm-edit.el
-;; Keywords: MIME, multimedia, multilingual, mail, news
-
-;; This file is part of SEMI (Sophisticated Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; This is an Emacs minor mode for editing Internet multimedia
-;; messages formatted in MIME (RFC 2045, 2046, 2047, 2048 and 2049).
-;; All messages in this mode are composed in the tagged MIME format,
-;; that are described in the following examples.  The messages
-;; composed in the tagged MIME format are automatically translated
-;; into a MIME compliant message when exiting the mode.
-
-;; Mule (multilingual feature of Emacs 20 and multilingual extension
-;; for XEmacs 20) has a capability of handling multilingual text in
-;; limited ISO-2022 manner that is based on early experiences in
-;; Japanese Internet community and resulted in RFC 1468 (ISO-2022-JP
-;; charset for MIME).  In order to enable multilingual capability in
-;; single text message in MIME, charset of multilingual text written
-;; in Mule is declared as either `ISO-2022-JP-2' [RFC 1554].  Mule is
-;; required for reading the such messages.
-
-;; This MIME composer can work with Mail mode, mh-e letter Mode, and
-;; News mode.  First of all, you need the following autoload
-;; definition to load mime-edit-mode automatically:
-;;
-;; (autoload 'turn-on-mime-edit "mime-edit"
-;;           "Minor mode for editing MIME message." t)
-;;
-;; In case of Mail mode (includes VM mode), you need the following
-;; hook definition:
-;;
-;; (add-hook 'mail-mode-hook 'turn-on-mime-edit)
-;; (add-hook 'mail-send-hook 'mime-edit-maybe-translate)
-;;
-;; In case of MH-E, you need the following hook definition:
-;;
-;; (add-hook 'mh-letter-mode-hook
-;;           (function
-;;            (lambda ()
-;;              (turn-on-mime-edit)
-;;              (make-local-variable 'mail-header-separator)
-;;              (setq mail-header-separator "--------")
-;;              ))))
-;; (add-hook 'mh-before-send-letter-hook 'mime-edit-maybe-translate)
-;;
-;; In case of News mode, you need the following hook definition:
-;;
-;; (add-hook 'news-reply-mode-hook 'turn-on-mime-edit)
-;; (add-hook 'news-inews-hook 'mime-edit-maybe-translate)
-;;
-;; In case of Emacs 19, it is possible to emphasize the message tags
-;; using font-lock mode as follows:
-;;
-;; (add-hook 'mime-edit-mode-hook
-;;           (function
-;;            (lambda ()
-;;              (font-lock-mode 1)
-;;              (setq font-lock-keywords (list mime-edit-tag-regexp))
-;;              ))))
-
-;; The message tag looks like:
-;;
-;;	--[[TYPE/SUBTYPE;PARAMETERS][ENCODING]]
-;;
-;; The tagged MIME message examples:
-;;
-;; This is a conventional plain text.  It should be translated into
-;; text/plain.
-;;
-;;--[[text/plain]]
-;; This is also a plain text.  But, it is explicitly specified as is.
-;;--[[text/plain; charset=ISO-8859-1]]
-;; This is also a plain text.  But charset is specified as iso-8859-1.
-;;
-;; ¡Hola!  Buenos días.  ¿Cómo está usted?
-;;--[[text/enriched]]
-;; <center>This is a richtext.</center>
-;;
-;;--[[image/gif][base64]]^M...image encoded in base64 comes here...
-;;
-;;--[[audio/basic][base64]]^M...audio encoded in base64 comes here...
-
-;;; Code:
-
-(require 'emu)
-(require 'sendmail)
-(require 'mail-utils)
-(require 'mel)
-(require 'mime-view)
-(require 'eword-encode)
-(require 'signature)
-(require 'alist)
-
-
-;;; @ version
-;;;
-
-(defconst mime-edit-version-string
-  `,(concat "SEMI "
-	    (mapconcat #'number-to-string (cdr semi-version) ".")
-	    " - \"" (car semi-version) "\""))
-
-
-;;; @ variables
-;;;
-
-(defgroup mime-edit nil
-  "MIME edit mode"
-  :group 'mime)
-
-(defcustom mime-ignore-preceding-spaces nil
-  "*Ignore preceding white spaces if non-nil."
-  :group 'mime-edit
-  :type 'boolean)
-
-(defcustom mime-ignore-trailing-spaces nil
-  "*Ignore trailing white spaces if non-nil."
-  :group 'mime-edit
-  :type 'boolean)
-
-(defcustom mime-ignore-same-text-tag t
-  "*Ignore preceding text content-type tag that is same with new one.
-If non-nil, the text tag is not inserted unless something different."
-  :group 'mime-edit
-  :type 'boolean)
-
-(defcustom mime-auto-hide-body t
-  "*Hide non-textual body encoded in base64 after insertion if non-nil."
-  :group 'mime-edit
-  :type 'boolean)
-
-(defcustom mime-edit-voice-recorder
-  (function mime-edit-voice-recorder-for-sun)
-  "*Function to record a voice message and encode it."
-  :group 'mime-edit
-  :type 'function)
-
-(defcustom mime-edit-mode-hook nil
-  "*Hook called when enter MIME mode."
-  :group 'mime-edit
-  :type 'hook)
-
-(defcustom mime-edit-translate-hook nil
-  "*Hook called before translating into a MIME compliant message.
-To insert a signature file automatically, call the function
-`mime-edit-insert-signature' from this hook."
-  :group 'mime-edit
-  :type 'hook)
-
-(defcustom mime-edit-exit-hook nil
-  "*Hook called when exit MIME mode."
-  :group 'mime-edit
-  :type 'hook)
-
-(defvar mime-content-types
-  '(("text"
-     ;; Charset parameter need not to be specified, since it is
-     ;; defined automatically while translation.
-     ("plain"
-      ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
-      )
-     ("richtext"
-      ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
-      )
-     ("enriched"
-      ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
-      )
-     ("x-latex"
-      ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
-      )
-     ("html"
-      ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
-      )
-     ("x-rot13-47-48")
-     )
-    ("message"
-     ("external-body"
-      ("access-type"
-       ("anon-ftp"
-	("site" "ftp.jaist.ac.jp" "wnoc-fuk.wide.ad.jp" "nic.karrn.ad.jp")
-	("directory" "/pub/GNU/elisp/mime")
-	("name")
-	("mode" "image" "ascii" "local8"))
-       ("ftp"
-	("site")
-	("directory")
-	("name")
-	("mode" "image" "ascii" "local8"))
-       ("tftp"        ("site") ("name"))
-       ("afs"         ("site") ("name"))
-       ("local-file"  ("site") ("name"))
-       ("mail-server" ("server" "ftpmail@nic.karrn.ad.jp"))
-       ))
-     ("rfc822")
-     )
-    ("application"
-     ("octet-stream" ("type" "" "tar" "shar"))
-     ("postscript")
-     ("x-kiss" ("x-cnf")))
-    ("image"
-     ("gif")
-     ("jpeg")
-     ("png")
-     ("tiff")
-     ("x-pic")
-     ("x-mag")
-     ("x-xwd")
-     ("x-xbm")
-     )
-    ("audio" ("basic"))
-    ("video" ("mpeg"))
-    )
-  "*Alist of content-type, subtype, parameters and its values.")
-
-(defcustom mime-file-types
-  '(("\\.txt$"
-     "text"	"plain"		nil
-     nil
-     "inline"		(("filename" . file))
-     )
-    ("\\.pln$"
-     "text"	"plain"		nil
-     nil
-     "inline"		(("filename" . file))
-     )
-    ("\\.rtf$"
-     "text"	"richtext"	nil
-     nil
-     nil		nil)
-    ("\\.html$"
-     "text"	"html"		nil
-     nil
-     nil		nil)
-    ("\\.ps$"
-     "application" "postscript"	nil
-     "quoted-printable"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.jpg$"
-     "image"	"jpeg"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.gif$"
-     "image"	"gif"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.png$"
-     "image"	"png"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.tiff$"
-     "image"	"tiff"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.pic$"
-     "image"	"x-pic"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.mag$"
-     "image"	"x-mag"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.xbm$"
-     "image"	"x-xbm"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.xwd$"
-     "image"	"x-xwd"		nil
-     "base64"
-     "inline"		(("filename" . file))
-     )
-    ("\\.au$"
-     "audio"	"basic"		nil
-     "base64"
-     "attachment"		(("filename" . file))
-     )
-    ("\\.mpg$"
-     "video"	"mpeg"		nil
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.el$"
-     "application" "octet-stream" (("type" . "emacs-lisp"))
-     "7bit"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.lsp$"
-     "application" "octet-stream" (("type" . "common-lisp"))
-     "7bit"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.tar\\.gz$"
-     "application" "octet-stream" (("type" . "tar+gzip"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.tgz$"
-     "application" "octet-stream" (("type" . "tar+gzip"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.tar\\.Z$"
-     "application" "octet-stream" (("type" . "tar+compress"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.taz$"
-     "application" "octet-stream" (("type" . "tar+compress"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.gz$"
-     "application" "octet-stream" (("type" . "gzip"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.Z$"
-     "application" "octet-stream" (("type" . "compress"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.lzh$"
-     "application" "octet-stream" (("type" . "lha"))
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.zip$"
-     "application" "zip" nil
-     "base64"
-     "attachment"	(("filename" . file))
-     )
-    ("\\.diff$"
-     "application" "octet-stream" (("type" . "patch"))
-     nil
-     "attachment"	(("filename" . file))
-     )
-    ("\\.patch$"
-     "application" "octet-stream" (("type" . "patch"))
-     nil
-     "attachment"	(("filename" . file))
-     )
-    ("\\.signature"
-     "text"	"plain"		nil	nil	nil	nil)
-    (".*"
-     "application" "octet-stream" nil
-     nil
-     "attachment"	(("filename" . file)))
-    )
-  "*Alist of file name, types, parameters, and default encoding.
-If encoding is nil, it is determined from its contents."
-  :type `(repeat
-	  (list regexp
-		;; primary-type
-		(choice :tag "Primary-Type"
-			,@(nconc (mapcar (lambda (cell)
-					   (list 'item (car cell))
-					   )
-					 mime-content-types)
-				 '(string)))
-		;; subtype
-		(choice :tag "Sub-Type"
-			,@(nconc
-			   (apply #'nconc
-				  (mapcar (lambda (cell)
-					    (mapcar (lambda (cell)
-						      (list 'item (car cell))
-						      )
-						    (cdr cell)))
-					  mime-content-types))
-			   '(string)))
-		;; parameters
-		(repeat :tag "Parameters of Content-Type field"
-			(cons string (choice string symbol)))
-		;; content-transfer-encoding
-		(choice :tag "Encoding"
-			,@(cons
-			   '(const nil)
-			   (mapcar (lambda (cell)
-				     (list 'item (car cell))
-				     )
-				   mime-file-encoding-method-alist)))
-		;; disposition-type
-		(choice :tag "Disposition-Type"
-			(item nil)
-			(item "inline")
-			(item "attachment")
-			string)
-		;; parameters
-		(repeat :tag "Parameters of Content-Disposition field"
-			(cons string (choice string symbol)))
-		))
-  :group 'mime-edit)
-
-
-;;; @@ about charset, encoding and transfer-level
-;;;
-
-(defvar mime-charset-type-list
-  '((us-ascii		7 nil)
-    (iso-8859-1		8 "quoted-printable")
-    (iso-8859-2		8 "quoted-printable")
-    (iso-8859-3		8 "quoted-printable")
-    (iso-8859-4		8 "quoted-printable")
-    (iso-8859-5		8 "quoted-printable")
-    (koi8-r		8 "quoted-printable")
-    (iso-8859-7		8 "quoted-printable")
-    (iso-8859-8		8 "quoted-printable")
-    (iso-8859-9		8 "quoted-printable")
-    (iso-2022-jp	7 "base64")
-    (iso-2022-kr	7 "base64")
-    (euc-kr		8 "base64")
-    (cn-gb2312		8 "quoted-printable")
-    (cn-big5		8 "base64")
-    (gb2312		8 "quoted-printable")
-    (big5		8 "base64")
-    (iso-2022-jp-2	7 "base64")
-    (iso-2022-int-1	7 "base64")
-    ))
-
-(defvar mime-transfer-level 7
-  "*A number of network transfer level.  It should be bigger than 7.")
-(make-variable-buffer-local 'mime-transfer-level)
-
-(defsubst mime-encoding-name (transfer-level &optional not-omit)
-  (cond ((> transfer-level 8) "binary")
-	((= transfer-level 8) "8bit")
-	(not-omit "7bit")
-	))
-
-(defvar mime-transfer-level-string
-  (mime-encoding-name mime-transfer-level 'not-omit)
-  "A string formatted version of mime-transfer-level")
-(make-variable-buffer-local 'mime-transfer-level-string)
-
-(defun mime-make-charset-default-encoding-alist (transfer-level)
-  (mapcar (function
-	   (lambda (charset-type)
-	     (let ((charset  (car charset-type))
-		   (type     (nth 1 charset-type))
-		   (encoding (nth 2 charset-type))
-		   )
-	       (if (<= type transfer-level)
-		   (cons charset (mime-encoding-name type))
-		 (cons charset encoding)
-		 ))))
-	  mime-charset-type-list))
-
-(defvar mime-edit-charset-default-encoding-alist
-  (mime-make-charset-default-encoding-alist mime-transfer-level))
-(make-variable-buffer-local 'mime-edit-charset-default-encoding-alist)
-
-
-;;; @@ about message inserting
-;;;
-
-(defvar mime-edit-yank-ignored-field-list
-  '("Received" "Approved" "Path" "Replied" "Status"
-    "Xref" "X-UIDL" "X-Filter" "X-Gnus-.*" "X-VM-.*")
-  "Delete these fields from original message when it is inserted
-as message/rfc822 part.
-Each elements are regexp of field-name.")
-
-(defvar mime-edit-yank-ignored-field-regexp
-  (concat "^"
-	  (apply (function regexp-or) mime-edit-yank-ignored-field-list)
-	  ":"))
-
-(defvar mime-edit-message-inserter-alist nil)
-(defvar mime-edit-mail-inserter-alist nil)
-
-
-;;; @@ about message splitting
-;;;
-
-(defcustom mime-edit-split-message t
-  "*Split large message if it is non-nil."
-  :group 'mime-edit
-  :type 'boolean)
-
-(defcustom mime-edit-message-default-max-lines 1000
-  "*Default maximum lines of a message."
-  :group 'mime-edit
-  :type 'integer)
-
-(defcustom mime-edit-message-max-lines-alist
-  '((news-reply-mode . 500))
-  "Alist of major-mode vs maximum lines of a message.
-If it is not specified for a major-mode,
-`mime-edit-message-default-max-lines' is used."
-  :group 'mime-edit
-  :type 'list)
-
-(defconst mime-edit-split-ignored-field-regexp
-  "\\(^Content-\\|^Subject:\\|^Mime-Version:\\)")
-
-(defvar mime-edit-split-blind-field-regexp
-  "\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)")
-
-(defvar mime-edit-split-message-sender-alist nil)
-
-(defvar mime-edit-news-reply-mode-server-running nil)
-
-
-;;; @@ about PGP
-;;;
-
-(defvar mime-edit-signing-type 'pgp-elkins
-  "*PGP signing type (pgp-elkins, pgp-kazu or nil).")
-
-(defvar mime-edit-encrypting-type 'pgp-elkins
-  "*PGP encrypting type (pgp-elkins, pgp-kazu or nil).")
-
-
-;;; @@ about tag
-;;;
-
-(defconst mime-edit-single-part-tag-regexp
-  "--[[][[]\\([^]]*\\)]\\([[]\\([^]]*\\)]\\|\\)]"
-  "*Regexp of MIME tag in the form of [[CONTENT-TYPE][ENCODING]].")
-
-(defconst mime-edit-quoted-single-part-tag-regexp
-  (concat "- " (substring mime-edit-single-part-tag-regexp 1)))
-
-(defconst mime-edit-multipart-beginning-regexp "--<<\\([^<>]+\\)>>-{\n")
-
-(defconst mime-edit-multipart-end-regexp "--}-<<\\([^<>]+\\)>>\n")
-
-(defconst mime-edit-beginning-tag-regexp
-  (regexp-or mime-edit-single-part-tag-regexp
-	     mime-edit-multipart-beginning-regexp))
-
-(defconst mime-edit-end-tag-regexp
-  (regexp-or mime-edit-single-part-tag-regexp
-	     mime-edit-multipart-end-regexp))
-
-(defconst mime-edit-tag-regexp
-  (regexp-or mime-edit-single-part-tag-regexp
-	     mime-edit-multipart-beginning-regexp
-	     mime-edit-multipart-end-regexp))
-
-(defvar mime-tag-format "--[[%s]]"
-  "*Control-string making a MIME tag.")
-
-(defvar mime-tag-format-with-encoding "--[[%s][%s]]"
-  "*Control-string making a MIME tag with encoding.")
-
-
-;;; @@ multipart boundary
-;;;
-
-(defvar mime-multipart-boundary "Multipart"
-  "*Boundary of a multipart message.")
-
-
-;;; @@ optional header fields
-;;;
-
-(defvar mime-edit-insert-x-emacs-field t
-  "*If non-nil, insert X-Emacs header field.")
-
-(defvar mime-edit-x-emacs-value
-  (if (featurep 'xemacs)
-      (concat emacs-version (if (featurep 'mule)
-				" with mule"
-			      " without mule"))
-    (let ((ver (if (string-match "\\.[0-9]+$" emacs-version)
-		   (substring emacs-version 0 (match-beginning 0))
-		 emacs-version)))
-      (if (featurep 'mule)
-	  (concat "Emacs " ver
-		  (if enable-multibyte-characters
-		      (concat ", MULE " mule-version)
-		    " (with raw setting)")
-		  (if (featurep 'meadow)
-		      (concat ", " (Meadow-version))
-		    ))
-	ver)))
-  "Body of X-Emacs field.
-If variable `mime-edit-insert-x-emacs-field' is not nil, it is
-inserted into message header.")
-
-
-;;; @ constants
-;;;
-
-(defconst mime-tspecials-regexp "[][()<>@,;:\\\"/?.= \t]"
-  "*Specify MIME tspecials.
-Tspecials means any character that matches with it in header must be quoted.")
-
-(defconst mime-edit-mime-version-value
-  (concat "1.0 (generated by " mime-edit-version-string ")")
-  "MIME version number.")
-
-(defconst mime-edit-mime-version-field-for-message/partial
-  (concat "MIME-Version: 1.0 (split by " mime-edit-version-string ")\n")
-  "MIME version field for message/partial.")
-
-
-;;; @ keymap and menu
-;;;
-
-(defvar mime-edit-mode-flag nil)
-(make-variable-buffer-local 'mime-edit-mode-flag)
-
-(defvar mime-edit-mode-map (make-sparse-keymap)
-  "Keymap for MIME-Edit mode commands.")
-
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-t"	'mime-edit-insert-text)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-i"	'mime-edit-insert-file)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-e"	'mime-edit-insert-external)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-v"	'mime-edit-insert-voice)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-y"	'mime-edit-insert-message)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-m"	'mime-edit-insert-mail)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-w"	'mime-edit-insert-signature)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-s"	'mime-edit-insert-signature)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-k"	'mime-edit-insert-key)
-(define-key mime-edit-mode-map
-  "\C-c\C-xt"		'mime-edit-insert-tag)
-
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-a"	'mime-edit-enclose-alternative-region)
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-p"	'mime-edit-enclose-parallel-region)
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-m"	'mime-edit-enclose-mixed-region)
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-d"	'mime-edit-enclose-digest-region)
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-s"	'mime-edit-enclose-signed-region)
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-e"	'mime-edit-enclose-encrypted-region)
-(define-key mime-edit-mode-map
-  "\C-c\C-m\C-q"	'mime-edit-enclose-quote-region)
-
-(define-key mime-edit-mode-map
-  "\C-c\C-x7"		'mime-edit-set-transfer-level-7bit)
-(define-key mime-edit-mode-map
-  "\C-c\C-x8"		'mime-edit-set-transfer-level-8bit)
-(define-key mime-edit-mode-map
-  "\C-c\C-x/"		'mime-edit-set-split)
-(define-key mime-edit-mode-map
-  "\C-c\C-xs"		'mime-edit-set-sign)
-(define-key mime-edit-mode-map
-  "\C-c\C-xv"		'mime-edit-set-sign)
-(define-key mime-edit-mode-map
-  "\C-c\C-xe"		'mime-edit-set-encrypt)
-(define-key mime-edit-mode-map
-  "\C-c\C-xh"		'mime-edit-set-encrypt)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-p"	'mime-edit-preview-message)
-(define-key mime-edit-mode-map
-  "\C-c\C-x\C-z"	'mime-edit-exit)
-(define-key mime-edit-mode-map
-  "\C-c\C-x?"		'mime-edit-help)
-
-(defconst mime-edit-menu-title "MIME-Edit")
-
-(defconst mime-edit-menu-list
-  '((mime-help	"Describe MIME editor mode" mime-edit-help)
-    (file	"Insert File"		mime-edit-insert-file)
-    (external	"Insert External"	mime-edit-insert-external)
-    (voice	"Insert Voice"		mime-edit-insert-voice)
-    (message	"Insert Message"	mime-edit-insert-message)
-    (mail	"Insert Mail"		mime-edit-insert-mail)
-    (signature	"Insert Signature"	mime-edit-insert-signature)
-    (text	"Insert Text"		mime-edit-insert-text)
-    (tag	"Insert Tag"		mime-edit-insert-tag)
-    (alternative "Enclose as alternative"
-		 mime-edit-enclose-alternative-region)
-    (parallel	"Enclose as parallel"	mime-edit-enclose-parallel-region)
-    (mixed	"Enclose as serial"	mime-edit-enclose-mixed-region)
-    (digest	"Enclose as digest"	mime-edit-enclose-digest-region)
-    (signed	"Enclose as signed"	mime-edit-enclose-signed-region)
-    (encrypted	"Enclose as encrypted"	mime-edit-enclose-encrypted-region)
-    (quote	"Verbatim region"	mime-edit-enclose-quote-region)
-    (key	"Insert Public Key"	mime-edit-insert-key)
-    (split	"About split"           mime-edit-set-split)
-    (sign	"About sign"		mime-edit-set-sign)
-    (encrypt	"About encryption"	mime-edit-set-encrypt)
-    (preview	"Preview Message"	mime-edit-preview-message)
-    (level	"Toggle transfer-level"	mime-edit-toggle-transfer-level)
-    )
-  "MIME-edit menubar entry.")
-
-(cond (running-xemacs
-       ;; modified by Pekka Marjola <pema@iki.fi>
-       ;;	1995/9/5 (c.f. [tm-en:69])
-       (defun mime-edit-define-menu-for-xemacs ()
-	 "Define menu for Emacs 19."
-	 (cond ((featurep 'menubar)
-		(make-local-variable 'current-menubar)
-		(set-buffer-menubar current-menubar)
-		(add-submenu
-		 nil
-		 (cons mime-edit-menu-title
-		       (mapcar (function
-				(lambda (item)
-				  (vector (nth 1 item)(nth 2 item)
-					  mime-edit-mode-flag)
-				  ))
-			       mime-edit-menu-list)))
-		)))
-
-       ;; modified by Steven L. Baur <steve@miranova.com>
-       ;;	1995/12/6 (c.f. [tm-en:209])
-       (or (boundp 'mime-edit-popup-menu-for-xemacs)
-	   (setq mime-edit-popup-menu-for-xemacs
-		 (append '("MIME Commands" "---")
-			 (mapcar (function (lambda (item)
-					     (vector (nth 1 item)
-						     (nth 2 item)
-						     t)))
-				 mime-edit-menu-list)))
-	   )
-       )
-      ((>= emacs-major-version 19)
-       (define-key mime-edit-mode-map [menu-bar mime-edit]
-	 (cons mime-edit-menu-title
-	       (make-sparse-keymap mime-edit-menu-title)))
-       (mapcar (function
-		(lambda (item)
-		  (define-key mime-edit-mode-map
-		    (vector 'menu-bar 'mime-edit (car item))
-		    (cons (nth 1 item)(nth 2 item))
-		    )
-		  ))
-	       (reverse mime-edit-menu-list)
-	       )
-       ))
-
-
-;;; @ functions
-;;;
-
-;;;###autoload
-(defun mime-edit-mode ()
-  "MIME minor mode for editing the tagged MIME message.
-
-In this mode, basically, the message is composed in the tagged MIME
-format. The message tag looks like:
-
-	--[[text/plain; charset=ISO-2022-JP][7bit]]
-
-The tag specifies the MIME content type, subtype, optional parameters
-and transfer encoding of the message following the tag.  Messages
-without any tag are treated as `text/plain' by default.  Charset and
-transfer encoding are automatically defined unless explicitly
-specified.  Binary messages such as audio and image are usually
-hidden.  The messages in the tagged MIME format are automatically
-translated into a MIME compliant message when exiting this mode.
-
-Available charsets depend on Emacs version being used.  The following
-lists the available charsets of each emacs.
-
-Without mule:	US-ASCII and ISO-8859-1 (or other charset) are available.
-With mule:	US-ASCII, ISO-8859-* (except for ISO-8859-5), KOI8-R,
-		ISO-2022-JP, ISO-2022-JP-2, EUC-KR, CN-GB-2312,
-		CN-BIG5 and ISO-2022-INT-1 are available.
-
-ISO-2022-JP-2 and ISO-2022-INT-1 charsets used in mule is expected to
-be used to represent multilingual text in intermixed manner.  Any
-languages that has no registered charset are represented as either
-ISO-2022-JP-2 or ISO-2022-INT-1 in mule.
-
-If you want to use non-ISO-8859-1 charset in Emacs 19 or XEmacs
-without mule, please set variable `default-mime-charset'.  This
-variable must be symbol of which name is a MIME charset.
-
-If you want to add more charsets in mule, please set variable
-`charsets-mime-charset-alist'.  This variable must be alist of which
-key is list of charset and value is symbol of MIME charset.  If name
-of coding-system is different as MIME charset, please set variable
-`mime-charset-coding-system-alist'.  This variable must be alist of
-which key is MIME charset and value is coding-system.
-
-Following commands are available in addition to major mode commands:
-
-\[make single part\]
-\\[mime-edit-insert-text]	insert a text message.
-\\[mime-edit-insert-file]	insert a (binary) file.
-\\[mime-edit-insert-external]	insert a reference to external body.
-\\[mime-edit-insert-voice]	insert a voice message.
-\\[mime-edit-insert-message]	insert a mail or news message.
-\\[mime-edit-insert-mail]	insert a mail message.
-\\[mime-edit-insert-signature]	insert a signature file at end.
-\\[mime-edit-insert-key]	insert PGP public key.
-\\[mime-edit-insert-tag]	insert a new MIME tag.
-
-\[make enclosure (maybe multipart)\]
-\\[mime-edit-enclose-alternative-region]	enclose as multipart/alternative.
-\\[mime-edit-enclose-parallel-region]	enclose as multipart/parallel.
-\\[mime-edit-enclose-mixed-region]	enclose as multipart/mixed.
-\\[mime-edit-enclose-digest-region]	enclose as multipart/digest.
-\\[mime-edit-enclose-signed-region]	enclose as PGP signed.
-\\[mime-edit-enclose-encrypted-region]	enclose as PGP encrypted.
-\\[mime-edit-enclose-quote-region]	enclose as verbose mode (to avoid to expand tags)
-
-\[other commands\]
-\\[mime-edit-set-transfer-level-7bit]	set transfer-level as 7.
-\\[mime-edit-set-transfer-level-8bit]	set transfer-level as 8.
-\\[mime-edit-set-split]	set message splitting mode.
-\\[mime-edit-set-sign]	set PGP-sign mode.
-\\[mime-edit-set-encrypt]	set PGP-encryption mode.
-\\[mime-edit-preview-message]	preview editing MIME message.
-\\[mime-edit-exit]	exit and translate into a MIME compliant message.
-\\[mime-edit-help]	show this help.
-\\[mime-edit-maybe-translate]	exit and translate if in MIME mode, then split.
-
-Additional commands are available in some major modes:
-C-c C-c		exit, translate and run the original command.
-C-c C-s		exit, translate and run the original command.
-
-The following is a message example written in the tagged MIME format.
-TABs at the beginning of the line are not a part of the message:
-
-	This is a conventional plain text.  It should be translated
-	into text/plain.
-	--[[text/plain]]
-	This is also a plain text.  But, it is explicitly specified as
-	is.
-	--[[text/plain; charset=ISO-8859-1]]
-	This is also a plain text.  But charset is specified as
-	iso-8859-1.
-
-	¡Hola!  Buenos días.  ¿Cómo está usted?
-	--[[text/enriched]]
-	This is a <bold>enriched text</bold>.
-	--[[image/gif][base64]]...image encoded in base64 here...
-	--[[audio/basic][base64]]...audio encoded in base64 here...
-
-User customizable variables (not documented all of them):
- mime-edit-prefix
-    Specifies a key prefix for MIME minor mode commands.
-
- mime-ignore-preceding-spaces
-    Preceding white spaces in a message body are ignored if non-nil.
-
- mime-ignore-trailing-spaces
-    Trailing white spaces in a message body are ignored if non-nil.
-
- mime-auto-hide-body
-    Hide a non-textual body message encoded in base64 after insertion
-    if non-nil.
-
- mime-transfer-level
-    A number of network transfer level.  It should be bigger than 7.
-    If you are in 8bit-through environment, please set 8.
-
- mime-edit-voice-recorder
-    Specifies a function to record a voice message and encode it.
-    The function `mime-edit-voice-recorder-for-sun' is for Sun
-    SparcStations.
-
- mime-edit-mode-hook
-    Turning on MIME mode calls the value of mime-edit-mode-hook, if
-    it is non-nil.
-
- mime-edit-translate-hook
-    The value of mime-edit-translate-hook is called just before translating
-    the tagged MIME format into a MIME compliant message if it is
-    non-nil.  If the hook call the function mime-edit-insert-signature,
-    the signature file will be inserted automatically.
-
- mime-edit-exit-hook
-    Turning off MIME mode calls the value of mime-edit-exit-hook, if it is
-    non-nil."
-  (interactive)
-  (if mime-edit-mode-flag
-      (mime-edit-exit)
-    (if (and (boundp 'mime-edit-touched-flag)
-	     mime-edit-touched-flag)
-	(mime-edit-again)
-      (make-local-variable 'mime-edit-touched-flag)
-      (setq mime-edit-touched-flag t)
-      (turn-on-mime-edit)
-      )))
-
-
-(cond (running-xemacs
-       (add-minor-mode 'mime-edit-mode-flag
-		       '((" MIME-Edit "  mime-transfer-level-string))
-		       mime-edit-mode-map
-		       nil
-		       'mime-edit-mode)
-       )
-      (t
-       (set-alist 'minor-mode-alist
-		  'mime-edit-mode-flag
-		  '((" MIME-Edit "  mime-transfer-level-string)))
-       (set-alist 'minor-mode-map-alist
-		  'mime-edit-mode-flag
-		  mime-edit-mode-map)
-       ))
-
-
-;;;###autoload
-(defun turn-on-mime-edit ()
-  "Unconditionally turn on MIME-Edit mode."
-  (interactive)
-  (if mime-edit-mode-flag
-      (error "You are already editing a MIME message.")
-    (setq mime-edit-mode-flag t)
-
-    ;; Set transfer level into mode line
-    ;;
-    (setq mime-transfer-level-string
- 	  (mime-encoding-name mime-transfer-level 'not-omit))
-    (force-mode-line-update)
-
-    ;; Define menu for XEmacs.
-    (if running-xemacs
-	(mime-edit-define-menu-for-xemacs)
-      )
-
-    (enable-invisible)
-
-    ;; I don't care about saving these.
-    (setq paragraph-start
-	  (regexp-or mime-edit-single-part-tag-regexp
-		     paragraph-start))
-    (setq paragraph-separate
-	  (regexp-or mime-edit-single-part-tag-regexp
-		     paragraph-separate))
-    (run-hooks 'mime-edit-mode-hook)
-    (message
-     (substitute-command-keys
-      "Type \\[mime-edit-exit] to exit MIME mode, and type \\[mime-edit-help] to get help."))
-    ))
-
-;;;###autoload
-(defalias 'edit-mime 'turn-on-mime-edit) ; for convenience
-
-
-(defun mime-edit-exit (&optional nomime no-error)
-  "Translate the tagged MIME message into a MIME compliant message.
-With no argument encode a message in the buffer into MIME, otherwise
-just return to previous mode."
-  (interactive "P")
-  (if (not mime-edit-mode-flag)
-      (if (null no-error)
-	  (error "You aren't editing a MIME message.")
-	)
-    (if (not nomime)
-	(progn
-	  (run-hooks 'mime-edit-translate-hook)
-	  (mime-edit-translate-buffer)))
-    ;; Restore previous state.
-    (setq mime-edit-mode-flag nil)
-    (if (and running-xemacs
-	     (featurep 'menubar))
-	(delete-menu-item (list mime-edit-menu-title))
-      )
-    (end-of-invisible)
-    (set-buffer-modified-p (buffer-modified-p))
-    (run-hooks 'mime-edit-exit-hook)
-    (message "Exit MIME editor mode.")
-    ))
-
-(defun mime-edit-maybe-translate ()
-  (interactive)
-  (mime-edit-exit nil t)
-  (call-interactively 'mime-edit-maybe-split-and-send)
-  )
-
-(defun mime-edit-help ()
-  "Show help message about MIME mode."
-  (interactive)
-  (with-output-to-temp-buffer "*Help*"
-    (princ "MIME editor mode:\n")
-    (princ (documentation 'mime-edit-mode))
-    (print-help-return-message)))
-
-(defun mime-edit-insert-text (&optional subtype)
-  "Insert a text message.
-Charset is automatically obtained from the `charsets-mime-charset-alist'.
-If optional argument SUBTYPE is not nil, text/SUBTYPE tag is inserted."
-  (interactive)
-  (let ((ret (mime-edit-insert-tag "text" subtype nil)))
-    (when ret
-      (if (looking-at mime-edit-single-part-tag-regexp)
-	  (progn
-	    ;; Make a space between the following message.
-	    (insert "\n")
-	    (forward-char -1)
-	    ))
-      (if (and (member (cadr ret) '("enriched" "richtext"))
-	       (fboundp 'enriched-mode)
-	       )
-	  (enriched-mode t)
-	(if (boundp 'enriched-mode)
-	    (enriched-mode -1)
-	  ))
-      )))
-
-(defun mime-edit-insert-file (file &optional verbose)
-  "Insert a message from a file."
-  (interactive "fInsert file as MIME message: \nP")
-  (let*  ((guess (mime-find-file-type file))
-	  (type (nth 0 guess))
-	  (subtype (nth 1 guess))
-	  (parameters (nth 2 guess))
-	  (encoding (nth 3 guess))
-	  (disposition-type (nth 4 guess))
-	  (disposition-params (nth 5 guess))
-	  )
-    (if verbose
-	(setq type    (mime-prompt-for-type type)
-	      subtype (mime-prompt-for-subtype type subtype)
-	      ))
-    (if (or (interactive-p) verbose)
-	(setq encoding (mime-prompt-for-encoding encoding))
-      )
-    (if (or (consp parameters) (stringp disposition-type))
-	(let ((rest parameters) cell attribute value)
-	  (setq parameters "")
-	  (while rest
-	    (setq cell (car rest))
-	    (setq attribute (car cell))
-	    (setq value (cdr cell))
-	    (if (eq value 'file)
-		(setq value (std11-wrap-as-quoted-string
-			     (file-name-nondirectory file)))
-	      )
-	    (setq parameters (concat parameters "; " attribute "=" value))
-	    (setq rest (cdr rest))
-	    )
-	  (if disposition-type
-	      (progn
-		(setq parameters
-		      (concat parameters "\n"
-			      "Content-Disposition: " disposition-type))
-		(setq rest disposition-params)
-		(while rest
-		  (setq cell (car rest))
-		  (setq attribute (car cell))
-		  (setq value (cdr cell))
-		  (if (eq value 'file)
-		      (setq value (std11-wrap-as-quoted-string
-				   (file-name-nondirectory file)))
-		    )
-		  (setq parameters
-			(concat parameters "; " attribute "=" value))
-		  (setq rest (cdr rest))
-		  )
-		))
-	  ))
-    (mime-edit-insert-tag type subtype parameters)
-    (mime-edit-insert-binary-file file encoding)
-    ))
-
-(defun mime-edit-insert-external ()
-  "Insert a reference to external body."
-  (interactive)
-  (mime-edit-insert-tag "message" "external-body" nil ";\n\t")
-  ;;(forward-char -1)
-  ;;(insert "Content-Description: " (read-string "Content-Description: ") "\n")
-  ;;(forward-line 1)
-  (let* ((pritype (mime-prompt-for-type))
-	 (subtype (mime-prompt-for-subtype pritype))
-	 (parameters (mime-prompt-for-parameters pritype subtype ";\n\t")))
-    (and pritype
-	 subtype
-	 (insert "Content-Type: "
-		 pritype "/" subtype (or parameters "") "\n")))
-  (if (and (not (eobp))
-	   (not (looking-at mime-edit-single-part-tag-regexp)))
-      (insert (mime-make-text-tag) "\n")))
-
-(defun mime-edit-insert-voice ()
-  "Insert a voice message."
-  (interactive)
-  (let ((encoding
-	 (completing-read
-	  "What transfer encoding: "
-	  mime-file-encoding-method-alist nil t nil)))
-    (mime-edit-insert-tag "audio" "basic" nil)
-    (mime-edit-define-encoding encoding)
-    (save-restriction
-      (narrow-to-region (1- (point))(point))
-      (unwind-protect
-	  (funcall mime-edit-voice-recorder encoding)
-	(progn
-	  (insert "\n")
-	  (invisible-region (point-min)(point-max))
-	  (goto-char (point-max))
-	  )))))
-
-(defun mime-edit-insert-signature (&optional arg)
-  "Insert a signature file."
-  (interactive "P")
-  (let ((signature-insert-hook
-         (function
-          (lambda ()
-	    (let ((items (mime-find-file-type signature-file-name)))
-	      (apply (function mime-edit-insert-tag)
-		     (car items) (cadr items) (list (caddr items))))
-            )))
-        )
-    (insert-signature arg)
-    ))
-
-
-;; Insert a new tag around a point.
-
-(defun mime-edit-insert-tag (&optional pritype subtype parameters delimiter)
-  "Insert new MIME tag and return a list of PRITYPE, SUBTYPE, and PARAMETERS.
-If nothing is inserted, return nil."
-  (interactive)
-  (let ((p (point)))
-    (mime-edit-goto-tag)
-    (if (and (re-search-forward mime-edit-tag-regexp nil t)
-	     (< (match-beginning 0) p)
-	     (< p (match-end 0))
-	     )
-	(goto-char (match-beginning 0))
-      (goto-char p)
-      ))
-  (let ((oldtag nil)
-	(newtag nil)
-	(current (point))
-	)
-    (setq pritype
-	  (or pritype
-	      (mime-prompt-for-type)))
-    (setq subtype
-	  (or subtype
-	      (mime-prompt-for-subtype pritype)))
-    (setq parameters
-	  (or parameters
-	      (mime-prompt-for-parameters pritype subtype delimiter)))
-    ;; Make a new MIME tag.
-    (setq newtag (mime-make-tag pritype subtype parameters))
-    ;; Find an current MIME tag.
-    (setq oldtag
-	  (save-excursion
-	    (if (mime-edit-goto-tag)
-		(buffer-substring (match-beginning 0) (match-end 0))
-	      ;; Assume content type is 'text/plan'.
-	      (mime-make-tag "text" "plain")
-	      )))
-    ;; We are only interested in TEXT.
-    (if (and oldtag
-	     (not (mime-test-content-type
-		   (mime-edit-get-contype oldtag) "text")))
-	(setq oldtag nil))
-    ;; Make a new tag.
-    (if (or (not oldtag)		;Not text
-	    (or mime-ignore-same-text-tag
-		(not (string-equal oldtag newtag))))
-	(progn
-	  ;; Mark the beginning of the tag for convenience.
-	  (push-mark (point) 'nomsg)
-	  (insert newtag "\n")
-	  (list pritype subtype parameters) ;New tag is created.
-	  )
-      ;; Restore previous point.
-      (goto-char current)
-      nil				;Nothing is created.
-      )
-    ))
-
-(defun mime-edit-insert-binary-file (file &optional encoding)
-  "Insert binary FILE at point.
-Optional argument ENCODING specifies an encoding method such as base64."
-  (let* ((tagend (1- (point)))		;End of the tag
-	 (hide-p (and mime-auto-hide-body
-		      (stringp encoding)
-		      (not
-		       (let ((en (downcase encoding)))
-			 (or (string-equal en "7bit")
-			     (string-equal en "8bit")
-			     (string-equal en "binary")
-			     )))))
-	 )
-    (save-restriction
-      (narrow-to-region tagend (point))
-      (mime-insert-encoded-file file encoding)
-      (if hide-p
-	  (progn
-	    (invisible-region (point-min) (point-max))
-	    (goto-char (point-max))
-	    )
-	(goto-char (point-max))
-	))
-    (or hide-p
-	(looking-at mime-edit-tag-regexp)
-	(= (point)(point-max))
-	(mime-edit-insert-tag "text" "plain")
-	)
-    ;; Define encoding even if it is 7bit.
-    (if (stringp encoding)
-	(save-excursion
-	  (goto-char tagend) ; Make sure which line the tag is on.
-	  (mime-edit-define-encoding encoding)
-	  ))
-    ))
-
-
-;; Commands work on a current message flagment.
-
-(defun mime-edit-goto-tag ()
-  "Search for the beginning of the tagged MIME message."
-  (let ((current (point)))
-    (if (looking-at mime-edit-tag-regexp)
-	t
-      ;; At first, go to the end.
-      (cond ((re-search-forward mime-edit-beginning-tag-regexp nil t)
-	     (goto-char (1- (match-beginning 0))) ;For multiline tag
-	     )
-	    (t
-	     (goto-char (point-max))
-	     ))
-      ;; Then search for the beginning.
-      (re-search-backward mime-edit-end-tag-regexp nil t)
-      (or (looking-at mime-edit-beginning-tag-regexp)
-	  ;; Restore previous point.
-	  (progn
-	    (goto-char current)
-	    nil
-	    ))
-      )))
-
-(defun mime-edit-content-beginning ()
-  "Return the point of the beginning of content."
-  (save-excursion
-    (let ((beg (save-excursion
-		 (beginning-of-line) (point))))
-      (if (mime-edit-goto-tag)
-	  (let ((top (point)))
-	    (goto-char (match-end 0))
-	    (if (and (= beg top)
-		     (= (following-char) ?\^M))
-		(point)
-	      (forward-line 1)
-	      (point)))
-	;; Default text/plain tag.
-	(goto-char (point-min))
-	(re-search-forward
-	 (concat "\n" (regexp-quote mail-header-separator)
-		 (if mime-ignore-preceding-spaces
-		     "[ \t\n]*\n" "\n")) nil 'move)
-	(point))
-      )))
-
-(defun mime-edit-content-end ()
-  "Return the point of the end of content."
-  (save-excursion
-    (if (mime-edit-goto-tag)
-	(progn
-	  (goto-char (match-end 0))
-	  (if (invisible-p (point))
-	      (next-visible-point (point))
-	    ;; Move to the end of this text.
-	    (if (re-search-forward mime-edit-tag-regexp nil 'move)
-		;; Don't forget a multiline tag.
-		(goto-char (match-beginning 0))
-	      )
-	    (point)
-	    ))
-      ;; Assume the message begins with text/plain.
-      (goto-char (mime-edit-content-beginning))
-      (if (re-search-forward mime-edit-tag-regexp nil 'move)
-	  ;; Don't forget a multiline tag.
-	  (goto-char (match-beginning 0)))
-      (point))
-    ))
-
-(defun mime-edit-define-charset (charset)
-  "Set charset of current tag to CHARSET."
-  (save-excursion
-    (if (mime-edit-goto-tag)
-	(let ((tag (buffer-substring (match-beginning 0) (match-end 0))))
-	  (delete-region (match-beginning 0) (match-end 0))
-	  (insert
-	   (mime-create-tag
-	    (mime-edit-set-parameter
-	     (mime-edit-get-contype tag)
-	     "charset" (upcase (symbol-name charset)))
-	    (mime-edit-get-encoding tag)))
-	  ))))
-
-(defun mime-edit-define-encoding (encoding)
-  "Set encoding of current tag to ENCODING."
-  (save-excursion
-    (if (mime-edit-goto-tag)
-	(let ((tag (buffer-substring (match-beginning 0) (match-end 0))))
-	  (delete-region (match-beginning 0) (match-end 0))
-	  (insert (mime-create-tag (mime-edit-get-contype tag) encoding)))
-      )))
-
-(defun mime-edit-choose-charset ()
-  "Choose charset of a text following current point."
-  (detect-mime-charset-region (point) (mime-edit-content-end))
-  )
-
-(defun mime-make-text-tag (&optional subtype)
-  "Make a tag for a text after current point.
-Subtype of text type can be specified by an optional argument SUBTYPE.
-Otherwise, it is obtained from mime-content-types."
-  (let* ((pritype "text")
-	 (subtype (or subtype
-		      (car (car (cdr (assoc pritype mime-content-types)))))))
-    ;; Charset should be defined later.
-    (mime-make-tag pritype subtype)))
-
-
-;; Tag handling functions
-
-(defun mime-make-tag (pritype subtype &optional parameters encoding)
-  "Make a tag of MIME message of PRITYPE, SUBTYPE and optional PARAMETERS."
-  (mime-create-tag (concat (or pritype "") "/" (or subtype "")
-			   (or parameters ""))
-		   encoding))
-
-(defun mime-create-tag (contype &optional encoding)
-  "Make a tag with CONTENT-TYPE and optional ENCODING."
-  (format (if encoding mime-tag-format-with-encoding mime-tag-format)
-	  contype encoding))
-
-(defun mime-edit-get-contype (tag)
-  "Return Content-Type (including parameters) of TAG."
-  (and (stringp tag)
-       (or (string-match mime-edit-single-part-tag-regexp tag)
-	   (string-match mime-edit-multipart-beginning-regexp tag)
-	   (string-match mime-edit-multipart-end-regexp tag)
-	   )
-       (substring tag (match-beginning 1) (match-end 1))
-       ))
-
-(defun mime-edit-get-encoding (tag)
-  "Return encoding of TAG."
-  (and (stringp tag)
-       (string-match mime-edit-single-part-tag-regexp tag)
-       (match-beginning 3)
-       (not (= (match-beginning 3) (match-end 3)))
-       (substring tag (match-beginning 3) (match-end 3))))
-
-(defun mime-get-parameter (contype parameter)
-  "For given CONTYPE return value for PARAMETER.
-Nil if no such parameter."
-  (if (string-match
-       (concat
-	";[ \t\n]*"
-	(regexp-quote parameter)
-	"[ \t\n]*=[ \t\n]*\\([^\" \t\n;]*\\|\"[^\"]*\"\\)\\([ \t\n]*;\\|$\\)")
-       contype)
-      (substring contype (match-beginning 1) (match-end 1))
-    nil					;No such parameter
-    ))
-
-(defun mime-edit-set-parameter (contype parameter value)
-  "For given CONTYPE set PARAMETER to VALUE."
-  (let (ctype opt-fields)
-    (if (string-match "\n[^ \t\n\r]+:" contype)
-	(setq ctype (substring contype 0 (match-beginning 0))
-	      opt-fields (substring contype (match-beginning 0)))
-      (setq ctype contype)
-      )
-    (if (string-match
-	 (concat
-	  ";[ \t\n]*\\("
-	  (regexp-quote parameter)
-	  "[ \t\n]*=[ \t\n]*\\([^\" \t\n;]*\\|\"[^\"]*\"\\)\\)[ \t\n]*\\(;\\|$\\)")
-	 ctype)
-	;; Change value
-	(concat (substring ctype 0 (match-beginning 1))
-		parameter "=" value
-		(substring contype (match-end 1))
-		opt-fields)
-      (concat ctype "; " parameter "=" value opt-fields)
-      )))
-
-(defun mime-strip-parameters (contype)
-  "Return primary content-type and subtype without parameters for CONTYPE."
-  (if (string-match "^[ \t]*\\([^; \t\n]*\\)" contype)
-      (substring contype (match-beginning 1) (match-end 1)) nil))
-
-(defun mime-test-content-type (contype type &optional subtype)
-  "Test if CONTYPE is a TYPE and an optional SUBTYPE."
-  (and (stringp contype)
-       (stringp type)
-       (string-match
-	(concat "^[ \t]*" (downcase type) "/" (downcase (or subtype "")))
-	(downcase contype))))
-
-
-;; Basic functions
-
-(defun mime-find-file-type (file)
-  "Guess Content-Type, subtype, and parameters from FILE."
-  (let ((guess nil)
-	(guesses mime-file-types))
-    (while (and (not guess) guesses)
-      (if (string-match (car (car guesses)) file)
-	  (setq guess (cdr (car guesses))))
-      (setq guesses (cdr guesses)))
-    guess
-    ))
-
-(defun mime-prompt-for-type (&optional default)
-  "Ask for Content-type."
-  (let ((type ""))
-    ;; Repeat until primary content type is specified.
-    (while (string-equal type "")
-      (setq type
-	    (completing-read "What content type: "
-			     mime-content-types
-			     nil
-			     'require-match ;Type must be specified.
-			     default
-			     ))
-      (if (string-equal type "")
-	  (progn
-	    (message "Content type is required.")
-	    (beep)
-	    (sit-for 1)
-	    ))
-      )
-    type))
-
-(defun mime-prompt-for-subtype (type &optional default)
-  "Ask for subtype of media-type TYPE."
-  (let ((subtypes (cdr (assoc type mime-content-types))))
-    (or (and default
-	     (assoc default subtypes))
-	(setq default (car (car subtypes)))
-	))
-  (let* ((answer
-	  (completing-read
-	   (if default
-	       (concat
-		"What content subtype: (default " default ") ")
-	     "What content subtype: ")
-	   (cdr (assoc type mime-content-types))
-	   nil
-	   'require-match		;Subtype must be specified.
-	   nil
-	   )))
-    (if (string-equal answer "") default answer)))
-
-(defun mime-prompt-for-parameters (pritype subtype &optional delimiter)
-  "Ask for Content-type parameters of Content-Type PRITYPE and SUBTYPE.
-Optional DELIMITER specifies parameter delimiter (';' by default)."
-  (let* ((delimiter (or delimiter "; "))
-	 (parameters
-	  (mapconcat
-	   (function identity)
-	   (delq nil
-		 (mime-prompt-for-parameters-1
-		  (cdr (assoc subtype
-			      (cdr (assoc pritype mime-content-types))))))
-	   delimiter
-	   )))
-    (if (and (stringp parameters)
-	     (not (string-equal parameters "")))
-	(concat delimiter parameters)
-      ""				;"" if no parameters
-      )))
-
-(defun mime-prompt-for-parameters-1 (optlist)
-  (apply (function append)
-	 (mapcar (function mime-prompt-for-parameter) optlist)))
-
-(defun mime-prompt-for-parameter (parameter)
-  "Ask for PARAMETER.
-Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
-  (let* ((prompt (car parameter))
-	 (choices (mapcar (function
-			   (lambda (e)
-			     (if (consp e) e (list e))))
-			  (cdr parameter)))
-	 (default (car (car choices)))
-	 (answer nil))
-    (if choices
-	(progn
-	  (setq answer
-		(completing-read
-		 (concat "What " prompt
-			 ": (default "
-			 (if (string-equal default "") "\"\"" default)
-			 ") ")
-		 choices nil nil ""))
-	  ;; If nothing is selected, use default.
-	  (if (string-equal answer "")
-	      (setq answer default)))
-      (setq answer
-	    (read-string (concat "What " prompt ": "))))
-    (cons (if (and answer
-		   (not (string-equal answer "")))
-	      (concat prompt "="
-		      ;; Note: control characters ignored!
-		      (if (string-match mime-tspecials-regexp answer)
-			  (concat "\"" answer "\"") answer)))
-	  (mime-prompt-for-parameters-1 (cdr (assoc answer (cdr parameter)))))
-    ))
-
-(defun mime-prompt-for-encoding (default)
-  "Ask for Content-Transfer-Encoding."
-  (let (encoding)
-    (while (string=
-	    (setq encoding
-		  (completing-read
-		   "What transfer encoding: "
-		   mime-file-encoding-method-alist nil t default)
-		  )
-	    ""))
-    encoding))
-
-
-;;; @ Translate the tagged MIME messages into a MIME compliant message.
-;;;
-
-(defvar mime-edit-translate-buffer-hook
-  '(mime-edit-pgp-enclose-buffer
-    mime-edit-translate-body
-    mime-edit-translate-header))
-
-(defun mime-edit-translate-header ()
-  "Encode the message header into network representation."
-  (eword-encode-header 'code-conversion)
-  (run-hooks 'mime-edit-translate-header-hook)
-  )
-
-(defun mime-edit-translate-buffer ()
-  "Encode the tagged MIME message in current buffer in MIME compliant message."
-  (interactive)
-  (if (catch 'mime-edit-error
-	(save-excursion
-	  (run-hooks 'mime-edit-translate-buffer-hook)
-	  ))
-      (progn
-	(undo)
-	(error "Translation error!")
-	)))
-
-(defun mime-edit-find-inmost ()
-  (goto-char (point-min))
-  (if (re-search-forward mime-edit-multipart-beginning-regexp nil t)
-      (let ((bb (match-beginning 0))
-	    (be (match-end 0))
-	    (type (buffer-substring (match-beginning 1)(match-end 1)))
-	    end-exp eb ee)
-	(setq end-exp (format "--}-<<%s>>\n" type))
-	(widen)
-	(if (re-search-forward end-exp nil t)
-	    (progn
-	      (setq eb (match-beginning 0))
-	      (setq ee (match-end 0))
-	      )
-	  (setq eb (point-max))
-	  (setq ee (point-max))
-	  )
-	(narrow-to-region be eb)
-	(goto-char be)
-	(if (re-search-forward mime-edit-multipart-beginning-regexp nil t)
-	    (let (ret)
-	      (narrow-to-region (match-beginning 0)(point-max))
-	      (mime-edit-find-inmost)
-	      )
-	  (widen)
-	  (list type bb be eb)
-	  ))))
-
-(defun mime-edit-process-multipart-1 (boundary)
-  (let ((ret (mime-edit-find-inmost)))
-    (if ret
-	(let ((type (car ret))
-	      (bb (nth 1 ret))(be (nth 2 ret))
-	      (eb (nth 3 ret))
-	      )
-	  (narrow-to-region bb eb)
-	  (delete-region bb be)
-	  (setq bb (point-min))
-	  (setq eb (point-max))
-	  (widen)
-	  (goto-char eb)
-	  (if (looking-at mime-edit-multipart-end-regexp)
-	      (let ((beg (match-beginning 0))
-		    (end (match-end 0))
-		    )
-		(delete-region beg end)
-		(or (looking-at mime-edit-beginning-tag-regexp)
-		    (eobp)
-		    (insert (concat (mime-make-text-tag) "\n"))
-		    )))
-	  (cond ((string-equal type "quote")
-		 (mime-edit-enquote-region bb eb)
-		 )
-		((string-equal type "signed")
-		 (cond ((eq mime-edit-signing-type 'pgp-elkins)
-			(mime-edit-sign-pgp-elkins bb eb boundary)
-			)
-		       ((eq mime-edit-signing-type 'pgp-kazu)
-			(mime-edit-sign-pgp-kazu bb eb boundary)
-			))
-		 )
-		((string-equal type "encrypted")
-		 (cond ((eq mime-edit-encrypting-type 'pgp-elkins)
-			(mime-edit-encrypt-pgp-elkins bb eb boundary)
-			)
-		       ((eq mime-edit-encrypting-type 'pgp-kazu)
-			(mime-edit-encrypt-pgp-kazu bb eb boundary)
-			)))
-		(t
-		 (setq boundary
-		       (nth 2 (mime-edit-translate-region bb eb
-							    boundary t)))
-		 (goto-char bb)
-		 (insert
-		  (format "--[[multipart/%s;
- boundary=\"%s\"][7bit]]\n"
-			  type boundary))
-		 ))
-	  boundary))))
-
-(defun mime-edit-enquote-region (beg end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (goto-char beg)
-      (while (re-search-forward mime-edit-single-part-tag-regexp nil t)
-	(let ((tag (buffer-substring (match-beginning 0)(match-end 0))))
-	  (replace-match (concat "- " (substring tag 1)))
-	  )))))
-
-(defun mime-edit-dequote-region (beg end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (goto-char beg)
-      (while (re-search-forward
-	      mime-edit-quoted-single-part-tag-regexp nil t)
-	(let ((tag (buffer-substring (match-beginning 0)(match-end 0))))
-	  (replace-match (concat "-" (substring tag 2)))
-	  )))))
-
-(defun mime-edit-sign-pgp-elkins (beg end boundary)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (let* ((ret
-	      (mime-edit-translate-region beg end boundary))
-	     (ctype    (car ret))
-	     (encoding (nth 1 ret))
-	     (parts    (nth 3 ret))
-	     (pgp-boundary (concat "pgp-sign-" boundary))
-	     )
-	(goto-char beg)
-	(insert (format "Content-Type: %s\n" ctype))
-	(if encoding
-	    (insert (format "Content-Transfer-Encoding: %s\n" encoding))
-	  )
-	(insert "\n")
-	(or (as-binary-process
-	     (funcall (pgp-function 'mime-sign)
-		      (point-min)(point-max) nil nil pgp-boundary))
-	    (throw 'mime-edit-error 'pgp-error)
-	    )
-	))))
-
-(defvar mime-edit-encrypt-recipient-fields-list '("To" "cc"))
-
-(defun mime-edit-make-encrypt-recipient-header ()
-  (let* ((names mime-edit-encrypt-recipient-fields-list)
-	 (values
-	  (std11-field-bodies (cons "From" names)
-			      nil mail-header-separator))
-	 (from (prog1
-		   (car values)
-		 (setq values (cdr values))))
-	 (header (and (stringp from)
-		      (if (string-equal from "")
-			  ""
-			(format "From: %s\n" from)
-			)))
-	 recipients)
-    (while (and names values)
-      (let ((name (car names))
-	    (value (car values))
-	    )
-	(and (stringp value)
-	     (or (string-equal value "")
-		 (progn
-		   (setq header (concat header name ": " value "\n")
-			 recipients (if recipients
-					(concat recipients " ," value)
-				      value))
-		   ))))
-      (setq names (cdr names)
-	    values (cdr values))
-      )
-    (vector from recipients header)
-    ))
-
-(defun mime-edit-encrypt-pgp-elkins (beg end boundary)
-  (save-excursion
-    (save-restriction
-      (let (from recipients header)
-	(let ((ret (mime-edit-make-encrypt-recipient-header)))
-	  (setq from (aref ret 0)
-		recipients (aref ret 1)
-		header (aref ret 2))
-	  )
-	(narrow-to-region beg end)
-	(let* ((ret
-		(mime-edit-translate-region beg end boundary))
-	       (ctype    (car ret))
-	       (encoding (nth 1 ret))
-	       (parts    (nth 3 ret))
-	       (pgp-boundary (concat "pgp-" boundary))
-	       )
-	  (goto-char beg)
-	  (insert header)
-	  (insert (format "Content-Type: %s\n" ctype))
-	  (if encoding
-	      (insert (format "Content-Transfer-Encoding: %s\n" encoding))
-	    )
-	  (insert "\n")
-	  (or (funcall (pgp-function 'encrypt)
-		       recipients (point-min) (point-max) from)
-	      (throw 'mime-edit-error 'pgp-error)
-	      )
-	  (goto-char beg)
-	  (insert (format "--[[multipart/encrypted;
- boundary=\"%s\";
- protocol=\"application/pgp-encrypted\"][7bit]]
---%s
-Content-Type: application/pgp-encrypted
-
---%s
-Content-Type: application/octet-stream
-Content-Transfer-Encoding: 7bit
-
-" pgp-boundary pgp-boundary pgp-boundary))
-	  (goto-char (point-max))
-	  (insert (format "\n--%s--\n" pgp-boundary))
-	  )))))
-
-(defun mime-edit-sign-pgp-kazu (beg end boundary)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (let* ((ret
-	      (mime-edit-translate-region beg end boundary))
-	     (ctype    (car ret))
-	     (encoding (nth 1 ret))
-	     (parts    (nth 3 ret))
-	     )
-	(goto-char beg)
-	(insert (format "Content-Type: %s\n" ctype))
-	(if encoding
-	    (insert (format "Content-Transfer-Encoding: %s\n" encoding))
-	  )
-	(insert "\n")
-	(or (as-binary-process
-	     (funcall (pgp-function 'traditional-sign)
-		      beg (point-max)))
-	    (throw 'mime-edit-error 'pgp-error)
-	    )
-	(goto-char beg)
-	(insert
-	 "--[[application/pgp; format=mime][7bit]]\n")
-	))
-    ))
-
-(defun mime-edit-encrypt-pgp-kazu (beg end boundary)
-  (save-excursion
-    (let (from recipients header)
-      (let ((ret (mime-edit-make-encrypt-recipient-header)))
-	(setq from (aref ret 0)
-	      recipients (aref ret 1)
-	      header (aref ret 2))
-	)
-      (save-restriction
-	(narrow-to-region beg end)
-	(let* ((ret
-		(mime-edit-translate-region beg end boundary))
-	       (ctype    (car ret))
-	       (encoding (nth 1 ret))
-	       (parts    (nth 3 ret))
-	       )
-	  (goto-char beg)
-	  (insert header)
-	  (insert (format "Content-Type: %s\n" ctype))
-	  (if encoding
-	      (insert (format "Content-Transfer-Encoding: %s\n" encoding))
-	    )
-	  (insert "\n")
-	  (or (as-binary-process
-	       (funcall (pgp-function 'encrypt)
-			recipients beg (point-max) nil 'maybe)
-	       )
-	      (throw 'mime-edit-error 'pgp-error)
-	      )
-	  (goto-char beg)
-	  (insert
-	   "--[[application/pgp; format=mime][7bit]]\n")
-	  ))
-      )))
-
-(defsubst replace-space-with-underline (str)
-  (mapconcat (function
-	      (lambda (arg)
-		(char-to-string
-		 (if (eq arg ?\ )
-		     ?_
-		   arg)))) str "")
-  )
-
-(defun mime-edit-make-boundary ()
-  (concat mime-multipart-boundary "_"
-	  (replace-space-with-underline (current-time-string))
-	  ))
-
-(defun mime-edit-translate-body ()
-  "Encode the tagged MIME body in current buffer in MIME compliant message."
-  (interactive)
-  (save-excursion
-    (let ((boundary (mime-edit-make-boundary))
-	  (i 1)
-	  ret)
-      (while (mime-edit-process-multipart-1
-	      (format "%s-%d" boundary i))
-	(setq i (1+ i))
-	)
-      (save-restriction
-	;; We are interested in message body.
-	(let* ((beg
-		(progn
-		  (goto-char (point-min))
-		  (re-search-forward
-		   (concat "\n" (regexp-quote mail-header-separator)
-			   (if mime-ignore-preceding-spaces
-			       "[ \t\n]*\n" "\n")) nil 'move)
-		  (point)))
-	       (end
-		(progn
-		  (goto-char (point-max))
-		  (and mime-ignore-trailing-spaces
-		       (re-search-backward "[^ \t\n]\n" beg t)
-		       (forward-char 1))
-		  (point))))
-	  (setq ret (mime-edit-translate-region
-		     beg end
-		     (format "%s-%d" boundary i)))
-	  ))
-      (mime-edit-dequote-region (point-min)(point-max))
-      (let ((contype (car ret))		;Content-Type
-	    (encoding (nth 1 ret))	;Content-Transfer-Encoding
-	    )
-	;; Insert X-Emacs field
-	(and mime-edit-insert-x-emacs-field
-	     (or (mail-position-on-field "X-Emacs")
-		 (insert mime-edit-x-emacs-value)
-		 ))
-	;; Make primary MIME headers.
-	(or (mail-position-on-field "MIME-Version")
-	    (insert mime-edit-mime-version-value))
-	;; Remove old Content-Type and other fields.
-	(save-restriction
-	  (goto-char (point-min))
-	  (search-forward (concat "\n" mail-header-separator "\n") nil t)
-	  (narrow-to-region (point-min) (point))
-	  (goto-char (point-min))
-	  (mime-delete-field "Content-Type")
-	  (mime-delete-field "Content-Transfer-Encoding"))
-	;; Then, insert Content-Type and Content-Transfer-Encoding fields.
-	(mail-position-on-field "Content-Type")
-	(insert contype)
-	(if encoding
-	    (progn
-	      (mail-position-on-field "Content-Transfer-Encoding")
-	      (insert encoding)))
-	))))
-
-(defun mime-edit-translate-single-part-tag (&optional prefix)
-  "Translate single-part-tag to MIME header."
-  (if (re-search-forward mime-edit-single-part-tag-regexp nil t)
-      (let* ((beg (match-beginning 0))
-	     (end (match-end 0))
-	     (tag (buffer-substring beg end))
-	     )
-	(delete-region beg end)
-	(let ((contype (mime-edit-get-contype tag))
-	      (encoding (mime-edit-get-encoding tag))
-	      )
-	  (insert (concat prefix "--" boundary "\n"))
-	  (save-restriction
-	    (narrow-to-region (point)(point))
-	    (insert "Content-Type: " contype "\n")
-	    (if encoding
-		(insert "Content-Transfer-Encoding: " encoding "\n"))
-	    (eword-encode-header)
-	    ))
-	t)))
-
-(defun mime-edit-translate-region (beg end &optional boundary multipart)
-  (or boundary
-      (setq boundary (mime-edit-make-boundary))
-      )
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (let ((tag nil)			;MIME tag
-	    (contype nil)		;Content-Type
-	    (encoding nil)		;Content-Transfer-Encoding
-	    (nparts 0))			;Number of body parts
-	;; Normalize the body part by inserting appropriate message
-	;; tags for every message contents.
-	(mime-edit-normalize-body)
-	;; Counting the number of Content-Type.
-	(goto-char (point-min))
-	(while (re-search-forward mime-edit-single-part-tag-regexp nil t)
-	  (setq nparts (1+ nparts)))
-	;; Begin translation.
-	(cond
-	 ((and (<= nparts 1)(not multipart))
-	  ;; It's a singular message.
-	  (goto-char (point-min))
-	  (while (re-search-forward
-		  mime-edit-single-part-tag-regexp nil t)
-	    (setq tag
-		  (buffer-substring (match-beginning 0) (match-end 0)))
-	    (delete-region (match-beginning 0) (1+ (match-end 0)))
-	    (setq contype (mime-edit-get-contype tag))
-	    (setq encoding (mime-edit-get-encoding tag))
-	    ))
-	 (t
-	  ;; It's a multipart message.
-	  (goto-char (point-min))
-	  (and (mime-edit-translate-single-part-tag)
-	       (while (mime-edit-translate-single-part-tag "\n"))
-	       )
-	  ;; Define Content-Type as "multipart/mixed".
-	  (setq contype
-		(concat "multipart/mixed;\n boundary=\"" boundary "\""))
-	  ;; Content-Transfer-Encoding must be "7bit".
-	  ;; The following encoding can be `nil', but is
-	  ;; specified as is since there is no way that a user
-	  ;; specifies it.
-	  (setq encoding "7bit")
-	  ;; Insert the trailer.
-	  (goto-char (point-max))
-	  (insert "\n--" boundary "--\n")
-	  ))
-	(list contype encoding boundary nparts)
-	))))
-
-(defun mime-edit-normalize-body ()
-  "Normalize the body part by inserting appropriate message tags."
-  ;; Insert the first MIME tags if necessary.
-  (goto-char (point-min))
-  (if (not (looking-at mime-edit-single-part-tag-regexp))
-      (insert (mime-make-text-tag) "\n"))
-  ;; Check each tag, and add new tag or correct it if necessary.
-  (goto-char (point-min))
-  (while (re-search-forward mime-edit-single-part-tag-regexp nil t)
-    (let* ((tag (buffer-substring (match-beginning 0) (match-end 0)))
-	   (contype (mime-edit-get-contype tag))
-	   (charset (mime-get-parameter contype "charset"))
-	   (encoding (mime-edit-get-encoding tag)))
-      ;; Remove extra whitespaces after the tag.
-      (if (looking-at "[ \t]+$")
-	  (delete-region (match-beginning 0) (match-end 0)))
-      (let ((beg (point))
-	    (end (mime-edit-content-end))
-	    )
-	(if (= end (point-max))
-	    nil
-	  (goto-char end)
-	  (or (looking-at mime-edit-beginning-tag-regexp)
-	      (eobp)
-	      (insert (mime-make-text-tag) "\n")
-	      ))
-	(visible-region beg end)
-	(goto-char beg)
-	)
-      (cond
-       ((mime-test-content-type contype "message")
-	;; Content-type "message" should be sent as is.
-	(forward-line 1)
-	)
-       ((mime-test-content-type contype "text")
-	;; Define charset for text if necessary.
-	(setq charset (if charset
-			  (intern (downcase charset))
-			(mime-edit-choose-charset)))
-	(mime-edit-define-charset charset)
-	(cond ((string-equal contype "text/x-rot13-47-48")
-	       (save-excursion
-		 (forward-line)
-		 (mule-caesar-region (point) (mime-edit-content-end))
-		 ))
-	      ((string-equal contype "text/enriched")
-	       (save-excursion
-		 (let ((beg (progn
-			      (forward-line)
-			      (point)))
-		       (end (mime-edit-content-end))
-		       )
-		   ;; Patch for hard newlines
-                   ;; (save-excursion
-                   ;;   (goto-char beg)
-                   ;;   (while (search-forward "\n" end t)
-                   ;;     (put-text-property (match-beginning 0)
-                   ;;                        (point)
-                   ;;                        'hard t)))
-		   ;; End patch for hard newlines
-		   (enriched-encode beg end)
-		   (goto-char beg)
-		   (if (search-forward "\n\n")
-		       (delete-region beg (match-end 0))
-		     )
-		   ))))
-	;; Point is now on current tag.
-	;; Define encoding and encode text if necessary.
-	(or encoding	;Encoding is not specified.
-	    (let* ((encoding
-		    (cdr
-		     (assq charset
-			   mime-edit-charset-default-encoding-alist)
-		     ))
-		   (beg (mime-edit-content-beginning))
-		   )
-	      (encode-mime-charset-region beg (mime-edit-content-end)
-					  charset)
-	      ;; Protect "From " in beginning of line
-	      (save-restriction
-		(narrow-to-region beg (mime-edit-content-end))
-		(goto-char beg)
-		(let (case-fold-search)
-		  (if (re-search-forward "^From " nil t)
-		      (unless encoding
-			(if (memq charset '(iso-2022-jp
-					    iso-2022-jp-2
-					    iso-2022-int-1
-					    x-ctext))
-			    (while (progn
-				     (replace-match "\e(BFrom ")
-				     (re-search-forward "^From " nil t)
-				     ))
-			  (setq encoding "quoted-printable")
-			  )))))
-	      ;; canonicalize line break code
-	      (or (member encoding '(nil "7bit" "8bit" "quoted-printable"))
-		  (save-restriction
-		    (narrow-to-region beg (mime-edit-content-end))
-		    (goto-char beg)
-		    (while (re-search-forward "\\([^\r]\\)\n" nil t)
-		      (replace-match
-		       (concat (buffer-substring (match-beginning 0)
-						 (match-end 1)) "\r\n"))
-		      )))
-	      (goto-char beg)
-	      (mime-encode-region beg (mime-edit-content-end) encoding)
-	      (mime-edit-define-encoding encoding)
-	      ))
-	(goto-char (mime-edit-content-end))
-	)
-       ((null encoding)		;Encoding is not specified.
-	;; Application, image, audio, video, and any other
-	;; unknown content-type without encoding should be
-	;; encoded.
-	(let* ((encoding "base64")	;Encode in BASE64 by default.
-	       (beg (mime-edit-content-beginning))
-	       (end (mime-edit-content-end))
-	       (body (buffer-substring beg end))
-	       )
-	  (mime-encode-region beg end encoding)
-	  (mime-edit-define-encoding encoding))
-	(forward-line 1)
-	))
-      )))
-
-(defun mime-delete-field (field)
-  "Delete header FIELD."
-  (let ((regexp (format "^%s:[ \t]*" field)))
-    (goto-char (point-min))
-    (while (re-search-forward regexp nil t)
-      (delete-region (match-beginning 0)
-		     (progn (forward-line 1) (point)))
-      )))
-
-
-;;;
-;;; Platform dependent functions
-;;;
-
-;; Sun implementations
-
-(defun mime-edit-voice-recorder-for-sun (encoding)
-  "Record voice in a buffer using Sun audio device,
-and insert data encoded as ENCODING."
-  (message "Start the recording on %s.  Type C-g to finish the recording..."
-	   (system-name))
-  (mime-insert-encoded-file "/dev/audio" encoding)
-  )
-
-
-;;; @ Other useful commands.
-;;;
-
-;; Message forwarding commands as content-type "message/rfc822".
-
-(defun mime-edit-insert-message (&optional message)
-  (interactive)
-  (let ((inserter (cdr (assq major-mode mime-edit-message-inserter-alist))))
-    (if (and inserter (fboundp inserter))
-	(progn
-	  (mime-edit-insert-tag "message" "rfc822")
-	  (funcall inserter message)
-	  )
-      (message "Sorry, I don't have message inserter for your MUA.")
-      )))
-
-(defun mime-edit-insert-mail (&optional message)
-  (interactive)
-  (let ((inserter (cdr (assq major-mode mime-edit-mail-inserter-alist))))
-    (if (and inserter (fboundp inserter))
-	(progn
-	  (mime-edit-insert-tag "message" "rfc822")
-	  (funcall inserter message)
-	  )
-      (message "Sorry, I don't have mail inserter for your MUA.")
-      )))
-
-(defun mime-edit-inserted-message-filter ()
-  (save-excursion
-    (save-restriction
-      (let ((header-start (point))
-	    (case-fold-search t)
-	    beg end)
-	;; for Emacs 18
-	;; (if (re-search-forward "^$" (marker-position (mark-marker)))
-	(if (re-search-forward "^$" (mark t))
-	    (narrow-to-region header-start (match-beginning 0))
-	  )
-	(goto-char header-start)
-	(while (and (re-search-forward
-		     mime-edit-yank-ignored-field-regexp nil t)
-		    (setq beg (match-beginning 0))
-		    (setq end (1+ (std11-field-end)))
-		    )
-	  (delete-region beg end)
-	  )
-	))))
-
-
-;;; @ multipart enclosure
-;;;
-
-(defun mime-edit-enclose-region-internal (type beg end)
-  (save-excursion
-    (goto-char beg)
-    (let ((current (point)))
-      (save-restriction
-	(narrow-to-region beg end)
-	(insert (format "--<<%s>>-{\n" type))
-	(goto-char (point-max))
-	(insert (format "--}-<<%s>>\n" type))
-	(goto-char (point-max))
-	)
-      (or (looking-at mime-edit-beginning-tag-regexp)
-	  (eobp)
-	  (insert (mime-make-text-tag) "\n")
-	  )
-      )))
-
-(defun mime-edit-enclose-quote-region (beg end)
-  (interactive "*r")
-  (mime-edit-enclose-region-internal 'quote beg end)
-  )
-
-(defun mime-edit-enclose-mixed-region (beg end)
-  (interactive "*r")
-  (mime-edit-enclose-region-internal 'mixed beg end)
-  )
-
-(defun mime-edit-enclose-parallel-region (beg end)
-  (interactive "*r")
-  (mime-edit-enclose-region-internal 'parallel beg end)
-  )
-
-(defun mime-edit-enclose-digest-region (beg end)
-  (interactive "*r")
-  (mime-edit-enclose-region-internal 'digest beg end)
-  )
-
-(defun mime-edit-enclose-alternative-region (beg end)
-  (interactive "*r")
-  (mime-edit-enclose-region-internal 'alternative beg end)
-  )
-
-(defun mime-edit-enclose-signed-region (beg end)
-  (interactive "*r")
-  (if mime-edit-signing-type
-      (mime-edit-enclose-region-internal 'signed beg end)
-    (message "Please specify signing type.")
-    ))
-
-(defun mime-edit-enclose-encrypted-region (beg end)
-  (interactive "*r")
-  (if mime-edit-signing-type
-      (mime-edit-enclose-region-internal 'encrypted beg end)
-    (message "Please specify encrypting type.")
-    ))
-
-(defun mime-edit-insert-key (&optional arg)
-  "Insert a pgp public key."
-  (interactive "P")
-  (mime-edit-insert-tag "application" "pgp-keys")
-  (mime-edit-define-encoding "7bit")
-  (funcall (pgp-function 'insert-key))
-  )
-
-
-;;; @ flag setting
-;;;
-
-(defun mime-edit-set-split (arg)
-  (interactive
-   (list
-    (y-or-n-p "Do you want to enable split? ")
-    ))
-  (setq mime-edit-split-message arg)
-  (if arg
-      (message "This message is enabled to split.")
-    (message "This message is not enabled to split.")
-    ))
-
-(defun mime-edit-toggle-transfer-level (&optional transfer-level)
-  "Toggle transfer-level is 7bit or 8bit through.
-
-Optional TRANSFER-LEVEL is a number of transfer-level, 7 or 8."
-  (interactive)
-  (if (numberp transfer-level)
-      (setq mime-transfer-level transfer-level)
-    (if (< mime-transfer-level 8)
-	(setq mime-transfer-level 8)
-      (setq mime-transfer-level 7)
-      ))
-  (setq mime-edit-charset-default-encoding-alist
-	(mime-make-charset-default-encoding-alist mime-transfer-level))
-  (message (format "Current transfer-level is %d bit"
-		   mime-transfer-level))
-  (setq mime-transfer-level-string
-	(mime-encoding-name mime-transfer-level 'not-omit))
-  (force-mode-line-update)
-  )
-
-(defun mime-edit-set-transfer-level-7bit ()
-  (interactive)
-  (mime-edit-toggle-transfer-level 7)
-  )
-
-(defun mime-edit-set-transfer-level-8bit ()
-  (interactive)
-  (mime-edit-toggle-transfer-level 8)
-  )
-
-
-;;; @ pgp
-;;;
-
-(defun mime-edit-set-sign (arg)
-  (interactive
-   (list
-    (y-or-n-p "Do you want to sign? ")
-    ))
-  (if arg
-      (if mime-edit-signing-type
-	  (progn
-	    (setq mime-edit-pgp-processing 'sign)
-	    (message "This message will be signed.")
-	    )
-	(message "Please specify signing type.")
-	)
-    (if (eq mime-edit-pgp-processing 'sign)
-	(setq mime-edit-pgp-processing nil)
-      )
-    (message "This message will not be signed.")
-    ))
-
-(defun mime-edit-set-encrypt (arg)
-  (interactive
-   (list
-    (y-or-n-p "Do you want to encrypt? ")
-    ))
-  (if arg
-      (if mime-edit-encrypting-type
-	  (progn
-	    (setq mime-edit-pgp-processing 'encrypt)
-	    (message "This message will be encrypt.")
-	    )
-	(message "Please specify encrypting type.")
-	)
-    (if (eq mime-edit-pgp-processing 'encrypt)
-	(setq mime-edit-pgp-processing nil)
-      )
-    (message "This message will not be encrypt.")
-    ))
-
-(defvar mime-edit-pgp-processing nil)
-(make-variable-buffer-local 'mime-edit-pgp-processing)
-
-(defun mime-edit-pgp-enclose-buffer ()
-  (let ((beg (save-excursion
-	       (goto-char (point-min))
-	       (if (search-forward (concat "\n" mail-header-separator "\n"))
-		   (match-end 0)
-		 )))
-	(end (point-max))
-	)
-    (if beg
-	(cond ((eq mime-edit-pgp-processing 'sign)
-	       (mime-edit-enclose-signed-region beg end)
-	       )
-	      ((eq mime-edit-pgp-processing 'encrypt)
-	       (mime-edit-enclose-encrypted-region beg end)
-	       ))
-      )))
-
-
-;;; @ split
-;;;
-
-(defun mime-edit-insert-partial-header (fields subject
-					       id number total separator)
-  (insert fields)
-  (insert (format "Subject: %s (%d/%d)\n" subject number total))
-  (insert mime-edit-mime-version-field-for-message/partial)
-  (insert (format "\
-Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
-		  id number total separator))
-  )
-
-(defun mime-edit-split-and-send
-  (&optional cmd lines mime-edit-message-max-length)
-  (interactive)
-  (or lines
-      (setq lines
-	    (count-lines (point-min) (point-max)))
-      )
-  (or mime-edit-message-max-length
-      (setq mime-edit-message-max-length
-	    (or (cdr (assq major-mode mime-edit-message-max-lines-alist))
-		mime-edit-message-default-max-lines))
-      )
-  (let* ((mime-edit-draft-file-name
-	  (or (buffer-file-name)
-	      (make-temp-name
-	       (expand-file-name "mime-draft" mime-temp-directory))))
-	 (separator mail-header-separator)
-	 (id (concat "\""
-		     (replace-space-with-underline (current-time-string))
-		     "@" (system-name) "\"")))
-    (run-hooks 'mime-edit-before-split-hook)
-    (let ((the-buf (current-buffer))
-	  (copy-buf (get-buffer-create " *Original Message*"))
-	  (header (std11-header-string-except
-		   mime-edit-split-ignored-field-regexp separator))
-	  (subject (mail-fetch-field "subject"))
-	  (total (+ (/ lines mime-edit-message-max-length)
-		    (if (> (mod lines mime-edit-message-max-length) 0)
-			1)))
-	  (command
-	   (or cmd
-	       (cdr
-		(assq major-mode
-		      mime-edit-split-message-sender-alist))
-	       (function
-		(lambda ()
-		  (interactive)
-		  (error "Split sender is not specified for `%s'." major-mode)
-		  ))
-	       ))
-	  (mime-edit-partial-number 1)
-	  data)
-      (save-excursion
-	(set-buffer copy-buf)
-	(erase-buffer)
-	(insert-buffer the-buf)
-	(save-restriction
-	  (if (re-search-forward
-	       (concat "^" (regexp-quote separator) "$") nil t)
-	      (let ((he (match-beginning 0)))
-		(replace-match "")
-		(narrow-to-region (point-min) he)
-		))
-	  (goto-char (point-min))
-	  (while (re-search-forward mime-edit-split-blind-field-regexp nil t)
-	    (delete-region (match-beginning 0)
-			   (1+ (std11-field-end)))
-	    )))
-      (while (< mime-edit-partial-number total)
-	(erase-buffer)
-	(save-excursion
-	  (set-buffer copy-buf)
-	  (setq data (buffer-substring
-		      (point-min)
-		      (progn
-			(goto-line mime-edit-message-max-length)
-			(point))
-		      ))
-	  (delete-region (point-min)(point))
-	  )
-	(mime-edit-insert-partial-header
-	 header subject id mime-edit-partial-number total separator)
-	(insert data)
-	(save-excursion
-	  (message (format "Sending %d/%d..."
-			   mime-edit-partial-number total))
-	  (call-interactively command)
-	  (message (format "Sending %d/%d... done"
-			   mime-edit-partial-number total))
-	  )
-	(setq mime-edit-partial-number
-	      (1+ mime-edit-partial-number))
-	)
-      (erase-buffer)
-      (save-excursion
-	(set-buffer copy-buf)
-	(setq data (buffer-string))
-	(erase-buffer)
-	)
-      (mime-edit-insert-partial-header
-       header subject id mime-edit-partial-number total separator)
-      (insert data)
-      (save-excursion
-	(message (format "Sending %d/%d..."
-			 mime-edit-partial-number total))
-	(message (format "Sending %d/%d... done"
-			 mime-edit-partial-number total))
-	)
-      )))
-
-(defun mime-edit-maybe-split-and-send (&optional cmd)
-  (interactive)
-  (run-hooks 'mime-edit-before-send-hook)
-  (let ((mime-edit-message-max-length
-	 (or (cdr (assq major-mode mime-edit-message-max-lines-alist))
-	     mime-edit-message-default-max-lines))
-	(lines (count-lines (point-min) (point-max)))
-	)
-    (if (and (> lines mime-edit-message-max-length)
-	     mime-edit-split-message)
-	(mime-edit-split-and-send cmd lines mime-edit-message-max-length)
-      )))
-
-
-;;; @ preview message
-;;;
-
-(defvar mime-edit-buffer nil) ; buffer local variable
-
-(defun mime-edit-preview-message ()
-  "preview editing MIME message."
-  (interactive)
-  (let* ((str (buffer-string))
-	 (separator mail-header-separator)
-	 (the-buf (current-buffer))
-	 (buf-name (buffer-name))
-	 (temp-buf-name (concat "*temp-article:" buf-name "*"))
-	 (buf (get-buffer temp-buf-name))
-	 )
-    (if buf
-	(progn
-	  (switch-to-buffer buf)
-	  (erase-buffer)
-	  )
-      (setq buf (get-buffer-create temp-buf-name))
-      (switch-to-buffer buf)
-      )
-    (insert str)
-    (setq major-mode 'mime-temp-message-mode)
-    (make-local-variable 'mail-header-separator)
-    (setq mail-header-separator separator)
-    (make-local-variable 'mime-edit-buffer)
-    (setq mime-edit-buffer the-buf)
-
-    (run-hooks 'mime-edit-translate-hook)
-    (mime-edit-translate-buffer)
-    (goto-char (point-min))
-    (if (re-search-forward
-	 (concat "^" (regexp-quote separator) "$"))
-	(replace-match "")
-      )
-    (mime-view-mode)
-    ))
-
-(defun mime-edit-quitting-method ()
-  "Quitting method for mime-view."
-  (let ((temp mime-raw-buffer)
-	buf)
-    (mime-preview-kill-buffer)
-    (set-buffer temp)
-    (setq buf mime-edit-buffer)
-    (kill-buffer temp)
-    (switch-to-buffer buf)
-    ))
-
-(set-alist 'mime-preview-quitting-method-alist
-	   'mime-temp-message-mode
-	   #'mime-edit-quitting-method)
-
-
-;;; @ edit again
-;;;
-
-(defvar mime-edit-again-ignored-field-regexp
-  (concat "^\\(" "Content-.*\\|Mime-Version"
-	  (if mime-edit-insert-x-emacs-field "\\|X-Emacs")
-	  "\\):")
-  "Regexp for deleted header fields when `mime-edit-again' is called.")
-
-(defun mime-edit-decode-buffer (not-decode-text)
-  (save-excursion
-    (goto-char (point-min))
-    (let ((ctl (mime-read-Content-Type)))
-      (if ctl
-	  (let ((type (car ctl))
-		(stype (car (cdr ctl)))
-		(params (cdr (cdr ctl)))
-		)
-	    (cond
-	     ((and (eq type 'application)(eq stype 'pgp-signature))
-	      (delete-region (point-min)(point-max))
-	      )
-	     ((eq type 'multipart)
-	      (let* ((boundary (cdr (assoc "boundary" params)))
-		     (boundary-pat
-		      (concat "\n--" (regexp-quote boundary) "[ \t]*\n"))
-		     )
-		(re-search-forward boundary-pat nil t)
-		(let ((bb (match-beginning 0)) eb tag)
-		  (setq tag (format "\n--<<%s>>-{\n" stype))
-		  (goto-char bb)
-		  (insert tag)
-		  (setq bb (+ bb (length tag)))
-		  (re-search-forward
-		   (concat "\n--" (regexp-quote boundary) "--[ \t]*\n")
-		   nil t)
-		  (setq eb (match-beginning 0))
-		  (replace-match (format "--}-<<%s>>\n" stype))
-		  (save-restriction
-		    (narrow-to-region bb eb)
-		    (goto-char (point-min))
-		    (while (re-search-forward boundary-pat nil t)
-		      (let ((beg (match-beginning 0))
-			    end)
-			(delete-region beg (match-end 0))
-			(save-excursion
-			  (if (re-search-forward boundary-pat nil t)
-			      (setq end (match-beginning 0))
-			    (setq end (point-max))
-			    )
-			  (save-restriction
-			    (narrow-to-region beg end)
-			    (mime-edit-decode-buffer not-decode-text)
-			    (goto-char (point-max))
-			    ))))
-		    ))
-		(goto-char (point-min))
-		(or (= (point-min) 1)
-		    (delete-region (point-min)
-				   (if (search-forward "\n\n" nil t)
-				       (match-end 0)
-				     (point-min)
-				     )))
-		))
-	     (t
-	      (let* ((ctype (format "%s/%s" type stype))
-		     charset
-		     (pstr
-		      (let ((bytes (+ 14 (length ctype))))
-			(mapconcat (function
-				    (lambda (attr)
-				      (if (string= (car attr) "charset")
-					  (progn
-					    (setq charset (cdr attr))
-					    "")
-					(let* ((str
-						(concat (car attr)
-							"=" (cdr attr))
-						)
-					       (bs (length str))
-					       )
-					  (setq bytes (+ bytes bs 2))
-					  (if (< bytes 76)
-					      (concat "; " str)
-					    (setq bytes (+ bs 1))
-					    (concat ";\n " str)
-					    )
-					  ))))
-				   params "")))
-		     encoding
-		     encoded)
-		(save-excursion
-		  (if (re-search-forward
-		       "Content-Transfer-Encoding:" nil t)
-		      (let ((beg (match-beginning 0))
-			    (hbeg (match-end 0))
-			    (end (std11-field-end)))
-			(setq encoding
-			      (eliminate-top-spaces
-			       (std11-unfold-string
-				(buffer-substring hbeg end))))
-			(if (or charset (eq type 'text))
-			    (progn
-			      (delete-region beg (1+ end))
-			      (goto-char (point-min))
-			      (if (search-forward "\n\n" nil t)
-				  (progn
-				    (mime-decode-region
-				     (match-end 0)(point-max) encoding)
-				    (setq encoded t
-					  encoding nil)
-				    )))))))
-		(if (or encoded (not not-decode-text))
-		    (decode-mime-charset-region
-		     (point-min)(point-max)
-		     (or charset default-mime-charset))
-		  )
-		(let ((he
-		       (if (re-search-forward "^$" nil t)
-			   (match-end 0)
-			 (point-min)
-			 )))
-		  (if (= (point-min) 1)
-		      (progn
-			(goto-char he)
-			(insert
-			 (concat "\n"
-				 (mime-create-tag
-				  (format "%s/%s%s" type stype pstr)
-				  encoding)))
-			)
-		    (delete-region (point-min) he)
-		    (insert
-		     (mime-create-tag
-		      (format "%s/%s%s" type stype pstr)
-		      encoding))
-		    ))
-		))))
-	(or not-decode-text
-	    (decode-mime-charset-region (point-min) (point-max)
-					default-mime-charset)
-	    )
-	))))
-
-(defun mime-edit-again (&optional not-decode-text no-separator not-turn-on)
-  "Convert current buffer to MIME-Edit buffer and turn on MIME-Edit mode.
-Content-Type and Content-Transfer-Encoding header fields will be
-converted to MIME-Edit tags."
-  (interactive)
-  (goto-char (point-min))
-  (if (search-forward
-       (concat "\n" (regexp-quote mail-header-separator) "\n")
-       nil t)
-      (replace-match "\n\n")
-    )
-  (mime-edit-decode-buffer not-decode-text)
-  (goto-char (point-min))
-  (save-restriction
-    (std11-narrow-to-header)
-    (goto-char (point-min))
-    (while (re-search-forward mime-edit-again-ignored-field-regexp nil t)
-      (delete-region (match-beginning 0) (1+ (std11-field-end)))
-      ))
-  (or no-separator
-      (and (re-search-forward "^$")
-	   (replace-match mail-header-separator)
-	   ))
-  (or not-turn-on
-      (turn-on-mime-edit)
-      ))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-edit)
-
-(run-hooks 'mime-edit-load-hook)
-
-;;; mime-edit.el ends here
diff --git a/mime-image.el b/mime-image.el
deleted file mode 100644
index a405a4a..0000000
--- a/mime-image.el
+++ /dev/null
@@ -1,222 +0,0 @@
-;;; mime-image.el --- mime-view filter to display images
-
-;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
-;; Copyright (C) 1996 Dan Rich
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;         Dan Rich <drich@morpheus.corp.sgi.com>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1995/12/15
-;;	Renamed: 1997/2/21 from tm-image.el
-
-;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Showy Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU XEmacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-;;	If you use this program with MULE, please install
-;;	etl8x16-bitmap.bdf font included in tl package.
-
-;;; Code:
-
-(require 'mime-view)
-(require 'alist)
-
-(cond ((featurep 'xemacs)
-       (require 'images)
-       
-       (defun-maybe image-inline-p (format)
-	 (or (memq format image-native-formats)
-	     (find-if (function
-		       (lambda (native)
-			 (image-converter-chain format native)
-			 ))
-		      image-native-formats)
-	     ))
-       
-       (image-register-netpbm-utilities)
-       (image-register-converter 'pic 'ppm "pictoppm")
-       (image-register-converter 'mag 'ppm "magtoppm")
-       
-       (defun bitmap-insert-xbm-file (file)
-	 (let ((gl (make-glyph (list (cons 'x file))))
-	       (e (make-extent (point) (point)))
-	       )
-	   (set-extent-end-glyph e gl)
-	   ))
-       
-       ;;
-       ;; X-Face
-       ;;
-       (autoload 'highlight-headers "highlight-headers")
-       
-       (defun mime-preview-x-face-function-use-highlight-headers ()
-	 (highlight-headers (point-min) (re-search-forward "^$" nil t) t)
-	 )
-       
-       (add-hook 'mime-view-content-header-filter-hook
-		 'mime-preview-x-face-function-use-highlight-headers)
-       
-       )
-      ((featurep 'mule)
-       ;; for MULE 2.* or mule merged EMACS
-       (require 'x-face-mule)
-
-       (defvar image-native-formats '(xbm))
-       
-       (defun-maybe image-inline-p (format)
-	 (memq format image-native-formats)
-	 )
-       
-       (defun-maybe image-normalize (format data)
-	 (and (eq format 'xbm)
-	      (vector 'xbm ':data data)
-	      ))
-       
-       ;;
-       ;; X-Face
-       ;;
-       (if (exec-installed-p uncompface-program exec-path)
-	   (add-hook 'mime-view-content-header-filter-hook
-		     'x-face-decode-message-header)
-	 )
-       ))
-
-(or (fboundp 'image-invalid-glyph-p)
-    (defsubst image-invalid-glyph-p (glyph)
-      (or (null (aref glyph 0))
-	  (null (aref glyph 2))
-	  (equal (aref glyph 2) "")
-	  ))
-    )
-
-(mapcar (function
-	 (lambda (rule)
-	   (let ((type    (car rule))
-		 (subtype (nth 1 rule))
-		 (format  (nth 2 rule)))
-	     (if (image-inline-p format)
-		 (ctree-set-calist-strictly
-		  'mime-preview-condition
-		  (list (cons 'type type)(cons 'subtype subtype)
-			'(body . visible)
-			'(body-presentation-method . with-filter)
-			(cons 'body-filter #'mime-preview-filter-for-image)
-			(cons 'image-format format))
-		  )))))
-	'((image jpeg		jpeg)
-	  (image gif		gif)
-	  (image tiff		tiff)
-	  (image x-tiff		tiff)
-	  (image xbm		xbm)
-	  (image x-xbm		xbm)
-	  (image x-xpixmap	xpm)
-	  (image x-pic		pic)
-	  (image x-mag		mag)
-	  (image png		png)
-	  ))
-
-
-;;; @ content filter for images
-;;;
-;;    (for XEmacs 19.12 or later)
-
-(defun mime-preview-filter-for-image (situation)
-  (let ((beg (point-min))
-	(end (point-max)))
-    (remove-text-properties beg end '(face nil))
-    (message "Decoding image...")
-    (mime-decode-region beg end (cdr (assq 'encoding situation)))
-    (let ((gl (image-normalize (cdr (assq 'image-format situation))
-			       (buffer-string))))
-      (delete-region (point-min)(point-max))
-      (cond ((image-invalid-glyph-p gl)
-	     (setq gl nil)
-	     (message "Invalid glyph!")
-	     )
-	    ((eq (aref gl 0) 'xbm)
-	     (let ((xbm-file
-		    (make-temp-name
-		     (expand-file-name "tm" mime-temp-directory))))
-	       (insert (aref gl 2))
-	       (write-region (point-min)(point-max) xbm-file)
-	       (message "Decoding image...")
-	       (delete-region (point-min)(point-max))
-	       (bitmap-insert-xbm-file xbm-file)
-	       (delete-file xbm-file)
-	       )
-	     (message "Decoding image... done")
-	     )
-	    (t
-	     (setq gl (make-glyph gl))
-	     (let ((e (make-extent (point) (point))))
-	       (set-extent-end-glyph e gl)
-	       )
-	     (message "Decoding image... done")
-	     ))
-      )
-    (insert "\n")
-    ))
-
-
-;;; @ content filter for Postscript
-;;;
-;;    (for XEmacs 19.14 or later)
-
-;; (defvar mime-view-ps-to-gif-command "pstogif")
-
-;; (defun mime-preview-filter-for-application/postscript (ctype params encoding)
-;;   (let* ((beg (point-min)) (end (point-max))
-;;          (file-base
-;;           (make-temp-name (expand-file-name "tm" mime-temp-directory)))
-;;          (ps-file (concat file-base ".ps"))
-;;          (gif-file (concat file-base ".gif"))
-;;          )
-;;     (remove-text-properties beg end '(face nil))
-;;     (message "Decoding Postscript...")
-;;     (mime-decode-region beg end encoding)
-;;     (write-region (point-min)(point-max) ps-file) 
-;;     (message "Decoding Postscript...")
-;;     (delete-region (point-min)(point-max))
-;;     (call-process mime-view-ps-to-gif-command nil nil nil ps-file)
-;;     (set-extent-end-glyph (make-extent (point) (point))
-;;                           (make-glyph (vector 'gif :file gif-file)))
-;;     (message "Decoding Postscript... done")
-;;     (delete-file ps-file)
-;;     (delete-file gif-file)
-;;     ))
-
-;; If you would like to display inline Postscript image, please
-;; activate following:
-
-;; (set-alist 'mime-view-content-filter-alist
-;;            "application/postscript"
-;;            (function mime-preview-filter-for-application/postscript))
-
-;; (if (featurep 'gif)
-;;     (add-to-list
-;;      'mime-view-visible-media-type-list "application/postscript")
-;;   )
-
-
-;;; @ end
-;;;
-
-(provide 'mime-image)
-
-;;; mime-image.el ends here
diff --git a/mime-mc.el b/mime-mc.el
deleted file mode 100644
index 78dfdae..0000000
--- a/mime-mc.el
+++ /dev/null
@@ -1,164 +0,0 @@
-;;; mime-mc.el --- Mailcrypt interface for SEMI
-
-;; Copyright (C) 1996,1997,1998 MORIOKA Tomohiko
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: PGP, security, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Secure Emacs MIME Interface).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mailcrypt)
-(load "mc-pgp")
-
-(defun mime-mc-pgp-generic-parser (result)
-  (let ((ret (mc-pgp-generic-parser result)))
-    (if (consp ret)
-	(vector (car ret)(cdr ret))
-      )))
-
-(defun mime-mc-process-region
-  (beg end passwd program args parser &optional buffer boundary)
-  (let ((obuf (current-buffer))
-	(process-connection-type nil)
-	mybuf result rgn proc)
-    (unwind-protect
-	(progn
-	  (setq mybuf (or buffer (generate-new-buffer " *mailcrypt temp")))
-	  (set-buffer mybuf)
-	  (erase-buffer)
-	  (set-buffer obuf)
-	  (buffer-disable-undo mybuf)
-	  (setq proc
-		(apply 'start-process "*PGP*" mybuf program args))
-	  (if passwd
-	      (progn
-		(process-send-string proc (concat passwd "\n"))
-		(or mc-passwd-timeout (mc-deactivate-passwd t))))
-	  (process-send-region proc beg end)
-	  (process-send-eof proc)
-	  (while (eq 'run (process-status proc))
-	    (accept-process-output proc 5))
-	  (setq result (process-exit-status proc))
-	  ;; Hack to force a status_notify() in Emacs 19.29
-	  (delete-process proc)
-	  (set-buffer mybuf)
-	  (goto-char (point-max))
-	  (if (re-search-backward "\nProcess \\*PGP.*\n\\'" nil t)
-	      (delete-region (match-beginning 0) (match-end 0)))
-	  (goto-char (point-min))
-	  ;; CRNL -> NL
-	  (while (search-forward "\r\n" nil t)
-	    (replace-match "\n"))
-	  ;; Hurm.  FIXME; must get better result codes.
-	  (if (stringp result)
-	      (error "%s exited abnormally: '%s'" program result)
-	    (setq rgn (funcall parser result))
-	    ;; If the parser found something, migrate it
-	    (if (consp rgn)
-		(progn
-		  (set-buffer obuf)
-		  (if boundary
-		      (save-restriction
-			(narrow-to-region beg end)
-			(goto-char beg)
-			(insert (format "--%s\n" boundary))
-			(goto-char (point-max))
-			(insert (format "\n--%s
-Content-Type: application/pgp-signature
-Content-Transfer-Encoding: 7bit
-
-" boundary))
-			(insert-buffer-substring mybuf (car rgn) (cdr rgn))
-			(goto-char (point-max))
-			(insert (format "\n--%s--\n" boundary))
-			)
-		    (delete-region beg end)
-		    (goto-char beg)
-		    (insert-buffer-substring mybuf (car rgn) (cdr rgn))
-		    )
-		  (set-buffer mybuf)
-		  (delete-region (car rgn) (cdr rgn)))))
-	  ;; Return nil on failure and exit code on success
-	  (if rgn result))
-      ;; Cleanup even on nonlocal exit
-      (if (and proc (eq 'run (process-status proc)))
-	  (interrupt-process proc))
-      (set-buffer obuf)
-      (or buffer (null mybuf) (kill-buffer mybuf)))))
-
-(defun mime-mc-pgp-sign-region (start end &optional id unclear boundary)
-  ;; (if (not (boundp 'mc-pgp-user-id))
-  ;;     (load "mc-pgp")
-  ;;   )
-  (let ((process-environment process-environment)
-	(buffer (get-buffer-create mc-buffer-name))
-	passwd args key
-	(parser (function mc-pgp-generic-parser))
-	(pgp-path mc-pgp-path)
-	)
-    (setq key (mc-pgp-lookup-key (or id mc-pgp-user-id)))
-    (setq passwd
-	  (mc-activate-passwd
-	   (cdr key)
-	   (format "PGP passphrase for %s (%s): " (car key) (cdr key))))
-    (setenv "PGPPASSFD" "0")
-    (setq args
-	  (cons
-	   (if boundary
-	       "-fbast"
-	     "-fast")
-	   (list "+verbose=1" "+language=en"
-		 (format "+clearsig=%s" (if unclear "off" "on"))
-		 "+batchmode" "-u" (cdr key))))
-    (if mc-pgp-comment
-	(setq args (cons (format "+comment=%s" mc-pgp-comment) args))
-      )
-    (message "Signing as %s ..." (car key))
-    (if (mime-mc-process-region
-	 start end passwd pgp-path args parser buffer boundary)
-	(progn
-	  (if boundary
-	      (progn
-		(goto-char (point-min))
-		(insert
-		 (format "\
---[[multipart/signed; protocol=\"application/pgp-signature\";
- boundary=\"%s\"; micalg=pgp-md5][7bit]]\n" boundary))
-		))
-	  (message "Signing as %s ... Done." (car key))
-	  t)
-      nil)))
-
-(defun mime-mc-pgp-encrypt-region (recipients start end &optional id sign)
-  (let ((mc-pgp-always-sign (if (eq sign 'maybe)
-				mc-pgp-always-sign
-			      'never)))
-    (mc-pgp-encrypt-region
-     (mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
-     start end id nil)
-    ))
-
-		
-;;; @ end
-;;;
-
-(provide 'mime-mc)
-
-;;; mime-mc.el ends here
diff --git a/mime-parse.el b/mime-parse.el
deleted file mode 100644
index 493bbcb..0000000
--- a/mime-parse.el
+++ /dev/null
@@ -1,289 +0,0 @@
-;;; mime-parse.el --- MIME message parser
-
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: parse, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'emu)
-(require 'std11)
-(require 'mime-def)
-
-(defsubst symbol-concat (&rest args)
-  "Return a symbol whose name is concatenation of arguments ARGS
-which are string or symbol."
-  (intern (mapconcat (function
-		      (lambda (s)
-			(cond ((symbolp s) (symbol-name s))
-			      ((stringp s) s)
-			      )))
-		     args "")))
-
-
-;;; @ field parser
-;;;
-
-(defsubst regexp-* (regexp)
-  (concat regexp "*"))
-
-(defconst rfc822/quoted-pair-regexp "\\\\.")
-(defconst rfc822/qtext-regexp
-  (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
-(defconst rfc822/quoted-string-regexp
-  (concat "\""
-	  (regexp-*
-	   (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
-	   )
-	  "\""))
-
-(defconst mime/content-parameter-value-regexp
-  (concat "\\("
-	  rfc822/quoted-string-regexp
-	  "\\|[^; \t\n]*\\)"))
-
-(defconst mime::parameter-regexp
-  (concat "^[ \t]*\;[ \t]*\\(" mime-token-regexp "\\)"
-	  "[ \t]*=[ \t]*\\(" mime/content-parameter-value-regexp "\\)"))
-
-(defun mime-parse-parameter (str)
-  (if (string-match mime::parameter-regexp str)
-      (let ((e (match-end 2)))
-	(cons
-	 (cons (downcase (substring str (match-beginning 1) (match-end 1)))
-	       (std11-strip-quoted-string
-		(substring str (match-beginning 2) e))
-	       )
-	 (substring str e)
-	 ))))
-
-(defun mime-parse-Content-Type (string)
-  "Parse STRING as field-body of Content-Type field.
-Return value is
-    (PRIMARY-TYPE SUBTYPE (NAME1 . VALUE1)(NAME2 . VALUE2) ...)
-or nil.  PRIMARY-TYPE and SUBTYPE are symbol and NAME_n and VALUE_n
-are string."
-  (setq string (std11-unfold-string string))
-  (if (string-match `,(concat "^\\(" mime-token-regexp
-			      "\\)/\\(" mime-token-regexp "\\)") string)
-      (let* ((type (downcase
-		    (substring string (match-beginning 1) (match-end 1))))
-	     (subtype (downcase
-		       (substring string (match-beginning 2) (match-end 2))))
-	     ret dest)
-	(setq string (substring string (match-end 0)))
-	(while (setq ret (mime-parse-parameter string))
-	  (setq dest (cons (car ret) dest)
-		string (cdr ret))
-	  )
-	(cons (intern type) (cons (intern subtype) (nreverse dest)))
-	)))
-
-
-(defconst mime-disposition-type-regexp mime-token-regexp)
-
-(defun mime-parse-Content-Disposition (string)
-  "Parse STRING as field-body of Content-Disposition field."
-  (setq string (std11-unfold-string string))
-  (if (string-match `,(concat "^" mime-disposition-type-regexp) string)
-      (let* ((e (match-end 0))
-	     (ctype (downcase (substring string 0 e)))
-	     ret dest)
-	(setq string (substring string e))
-	(while (setq ret (mime-parse-parameter string))
-	  (setq dest (cons (car ret) dest)
-		string (cdr ret))
-	  )
-	(cons ctype (nreverse dest))
-	)))
-
-
-;;; @ field reader
-;;;
-
-(defun mime-read-Content-Type ()
-  "Read field-body of Content-Type field from current-buffer,
-and return parsed it.  Format of return value is as same as
-`mime-parse-Content-Type'."
-  (let ((str (std11-field-body "Content-Type")))
-    (if str
-	(mime-parse-Content-Type str)
-      )))
-
-(defun mime/Content-Transfer-Encoding (&optional default-encoding)
-  "Read field-body of Content-Transfer-Encoding field from
-current-buffer, and return it.
-If is is not found, return DEFAULT-ENCODING. [mime-parse.el]"
-  (let ((str (std11-field-body "Content-Transfer-Encoding")))
-    (if str
-	(progn
-	  (if (string-match "[ \t\n\r]+$" str)
-	      (setq str (substring str 0 (match-beginning 0)))
-	    )
-	  (downcase str)
-	  )
-      default-encoding)
-    ))
-
-(defun mime/Content-Disposition ()
-  "Read field-body of Content-Disposition field from current-buffer,
-and return parsed it. [mime-parse.el]"
-  (let ((str (std11-field-body "Content-Disposition")))
-    (if str
-	(mime-parse-Content-Disposition str)
-      )))
-
-
-;;; @ message parser
-;;;
-
-(defsubst make-mime-entity (node-id
-			    point-min point-max
-			    media-type media-subtype parameters
-			    encoding children)
-  (vector node-id point-min point-max
-	  media-type media-subtype parameters encoding children))
-
-(defsubst mime-entity-node-id (entity-info)       (aref entity-info 0))
-(defsubst mime-entity-point-min (entity-info)     (aref entity-info 1))
-(defsubst mime-entity-point-max (entity-info)     (aref entity-info 2))
-(defsubst mime-entity-media-type (entity-info)    (aref entity-info 3))
-(defsubst mime-entity-media-subtype (entity-info) (aref entity-info 4))
-(defsubst mime-entity-parameters (entity-info)    (aref entity-info 5))
-(defsubst mime-entity-encoding (entity-info)      (aref entity-info 6))
-(defsubst mime-entity-children (entity-info)      (aref entity-info 7))
-
-(defsubst mime-type/subtype-string (type &optional subtype)
-  "Return type/subtype string from TYPE and SUBTYPE."
-  (if type
-      (if subtype
-	  (format "%s/%s" type subtype)
-	(format "%s" type))))
-
-(defsubst mime-entity-type/subtype (entity-info)
-  (mime-type/subtype-string (mime-entity-media-type entity-info)
-			    (mime-entity-media-subtype entity-info)))
-
-(defun mime-parse-multipart (boundary primtype subtype params encoding rcnum)
-  (goto-char (point-min))
-  (let* ((dash-boundary   (concat "--" boundary))
-	 (delimiter       (concat "\n" (regexp-quote dash-boundary)))
-	 (close-delimiter (concat delimiter "--[ \t]*$"))
-	 (beg (point-min))
-	 (end (progn
-		(goto-char (point-max))
-		(if (re-search-backward close-delimiter nil t)
-		    (match-beginning 0)
-		  (point-max)
-		  )))
-	 (rsep (concat delimiter "[ \t]*\n"))
-	 (dc-ctl
-	  (if (eq subtype 'digest)
-	      '(message rfc822)
-	    '(text plain)
-	    ))
-	 cb ce ret ncb children (i 0))
-    (save-restriction
-      (narrow-to-region beg end)
-      (goto-char beg)
-      (re-search-forward rsep nil t)
-      (setq cb (match-end 0))
-      (while (re-search-forward rsep nil t)
-	(setq ce (match-beginning 0))
-	(setq ncb (match-end 0))
-	(save-restriction
-	  (narrow-to-region cb ce)
-	  (setq ret (mime-parse-message dc-ctl "7bit" (cons i rcnum)))
-	  )
-	(setq children (cons ret children))
-	(goto-char (mime-entity-point-max ret))
-	(goto-char (setq cb ncb))
-	(setq i (1+ i))
-	)
-      (setq ce (point-max))
-      (save-restriction
-	(narrow-to-region cb ce)
-	(setq ret (mime-parse-message dc-ctl "7bit" (cons i rcnum)))
-	)
-      (setq children (cons ret children))
-      )
-    (make-mime-entity rcnum beg (point-max)
-		      primtype subtype params encoding
-		      (nreverse children))
-    ))
-
-(defun mime-parse-message (&optional default-ctl default-encoding rcnum)
-  "Parse current-buffer as a MIME message.
-DEFAULT-CTL is used when an entity does not have valid Content-Type
-field.  Its format must be as same as return value of
-mime-{parse|read}-Content-Type."
-  (setq default-ctl (or (mime-read-Content-Type) default-ctl))
-  (let ((primtype (car default-ctl))
-	(subtype (car (cdr default-ctl)))
-	(params (cdr (cdr default-ctl)))
-	(encoding (or (mime/Content-Transfer-Encoding) default-encoding))
-	)
-    (let ((boundary (assoc "boundary" params)))
-      (cond (boundary
-	     (setq boundary (std11-strip-quoted-string (cdr boundary)))
-	     (mime-parse-multipart
-	      boundary
-	      primtype subtype params encoding rcnum)
-	     )
-	    ((and (eq primtype 'message)
-		  (memq subtype '(rfc822 news))
-		  )
-	     (goto-char (point-min))
-	     (make-mime-entity rcnum (point-min) (point-max)
-			       primtype subtype params encoding
-			       (save-restriction
-				 (narrow-to-region
-				  (if (re-search-forward "^$" nil t)
-				      (1+ (match-end 0))
-				    (point-min)
-				    )
-				  (point-max))
-				 (list (mime-parse-message
-					nil nil (cons 0 rcnum)))
-				 ))
-	     )
-	    (t 
-	     (make-mime-entity rcnum (point-min) (point-max)
-			       primtype subtype params encoding
-			       nil)
-	     ))
-      )))
-
-
-;;; @ utilities
-;;;
-
-(defsubst mime-root-entity-p (entity)
-  "Return t if ENTITY is root-entity (message)."
-  (null (mime-entity-node-id entity)))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-parse)
-
-;;; mime-parse.el ends here
diff --git a/mime-partial.el b/mime-partial.el
deleted file mode 100644
index cb9d439..0000000
--- a/mime-partial.el
+++ /dev/null
@@ -1,110 +0,0 @@
-;;; mime-partial.el --- Grabbing all MIME "message/partial"s.
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: OKABE Yasuo @ Kyoto University
-;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: message/partial, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime-view)
-(require 'mime-play)
-
-(defvar mime-view-partial-message-method-alist nil
-  "Alist major-mode vs. function to view partial message for mime-partial.")
-
-;; display Article at the cursor in Subject buffer.
-(defsubst mime-view-partial-message (target)
-  (save-window-excursion
-    (let ((f (assq target mime-view-partial-message-method-alist)))
-      (if f
-	  (funcall (cdr f))
-	(error "Fatal. Unsupported mode")
-	))))
-
-(defun mime-method-to-combine-message/partial-pieces (beg end cal)
-  "Internal method for mime-view to combine message/partial messages
-automatically.  This function refers variable
-`mime-view-partial-message-method-alist' to select function to display
-partial messages using mime-view."
-  (interactive)
-  (let* ((id (cdr (assoc "id" cal)))
-	 (target (cdr (assq 'major-mode cal)))
-	 (article-buffer (buffer-name (current-buffer)))
-	 (subject-buf (eval (cdr (assq 'summary-buffer-exp cal))))
-	 subject-id
-	 (root-dir (expand-file-name
-		    (concat "m-prts-" (user-login-name)) mime-temp-directory))
-	 full-file)
-    (setq root-dir (concat root-dir "/" (replace-as-filename id)))
-    (setq full-file (concat root-dir "/FULL"))
-    
-    (if (null target)
-	(error "%s is not supported. Sorry." target)
-      )
-    
-    ;; if you can't parse the subject line, try simple decoding method
-    (if (or (file-exists-p full-file)
-	    (not (y-or-n-p "Merge partials?"))
-	    )
-	(mime-method-to-store-message/partial beg end cal)
-      (let (the-id parameters)
-	(setq subject-id (std11-field-body "Subject"))
-	(if (string-match "[0-9\n]+" subject-id)
-	    (setq subject-id (substring subject-id 0 (match-beginning 0)))
-	  )
-	(save-excursion
-	  (set-buffer subject-buf)
-	  (while (search-backward subject-id nil t))
-	  (catch 'tag
-	    (while t
-	      (mime-view-partial-message target)
-	      (set-buffer article-buffer)
-	      (setq parameters
-		    (mime-entity-parameters mime-raw-message-info))
-	      (setq the-id (cdr (assoc "id" parameters)))
-	      (if (string= the-id id)
-		  (progn
-		    (mime-method-to-store-message/partial
-		     (point-min)(point-max) parameters)
-		    (if (file-exists-p full-file)
-			(throw 'tag nil)
-		      )
-		    ))
-	      (if (not (progn
-			 (set-buffer subject-buf)
-			 (end-of-line)
-			 (search-forward subject-id nil t)
-			 ))
-		  (error "not found")
-		)
-	      )
-	    ))))))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-partial)
-
-(run-hooks 'mime-partial-load-hook)
-
-;;; mime-partial.el ends here
diff --git a/mime-pgp.el b/mime-pgp.el
deleted file mode 100644
index d0ff55e..0000000
--- a/mime-pgp.el
+++ /dev/null
@@ -1,297 +0,0 @@
-;;; mime-pgp.el --- mime-view internal methods for PGP.
-
-;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1995/12/7
-;;	Renamed: 1997/2/27 from tm-pgp.el
-;; Keywords: PGP, security, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Secure Emacs MIME Interface).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;;    This module is based on
-
-;;	[security-multipart] RFC 1847: "Security Multiparts for MIME:
-;;	    Multipart/Signed and Multipart/Encrypted" by
-;;          Jim Galvin <galvin@tis.com>, Sandy Murphy <sandy@tis.com>,
-;;	    Steve Crocker <crocker@cybercash.com> and
-;;          Ned Freed <ned@innosoft.com> (1995/10)
-
-;;	[PGP/MIME] RFC 2015: "MIME Security with Pretty Good Privacy
-;;	    (PGP)" by Michael Elkins <elkins@aero.org> (1996/6)
-
-;;	[PGP-kazu] draft-kazu-pgp-mime-00.txt: "PGP MIME Integration"
-;;	    by Kazuhiko Yamamoto <kazu@is.aist-nara.ac.jp> (1995/10;
-;;	    expired)
-
-;;  PGP/MIME and PGP-kazu may be contrary to each other.  You should
-;;  decide which you support (Maybe you should not use PGP-kazu).
-
-;;; Code:
-
-(require 'mime-play)
-
-
-;;; @ internal method for application/pgp
-;;;
-;;; It is based on draft-kazu-pgp-mime-00.txt (PGP-kazu).
-
-(defun mime-method-for-application/pgp (start end cal)
-  (let* ((entity-number (mime-raw-point-to-entity-number start))
-	 (p-win (or (get-buffer-window mime-preview-buffer)
-		    (get-largest-window)))
-	 (new-name (format "%s-%s" (buffer-name) entity-number))
-	 (the-buf (current-buffer))
-	 (mother mime-preview-buffer)
-	 (mode major-mode)
-	 text-decoder)
-    (set-buffer (get-buffer-create new-name))
-    (erase-buffer)
-    (insert-buffer-substring the-buf start end)
-    (cond ((progn
-	     (goto-char (point-min))
-	     (re-search-forward "^-+BEGIN PGP SIGNED MESSAGE-+$" nil t))
-	   (funcall (pgp-function 'verify))
-	   (goto-char (point-min))
-	   (delete-region
-	    (point-min)
-	    (and
-	     (re-search-forward "^-+BEGIN PGP SIGNED MESSAGE-+\n\n")
-	     (match-end 0)))
-	   (delete-region
-	    (and (re-search-forward "^-+BEGIN PGP SIGNATURE-+")
-		 (match-beginning 0))
-	    (point-max))
-	   (goto-char (point-min))
-	   (while (re-search-forward "^- -" nil t)
-	     (replace-match "-")
-	     )
-	   (setq text-decoder
-		 (cdr (or (assq mode mime-text-decoder-alist)
-			  (assq t    mime-text-decoder-alist))))
-	   )
-	  ((progn
-	     (goto-char (point-min))
-	     (re-search-forward "^-+BEGIN PGP MESSAGE-+$" nil t))
-	   (as-binary-process (funcall (pgp-function 'decrypt)))
-	   (goto-char (point-min))
-	   (delete-region (point-min)
-			  (and
-			   (search-forward "\n\n")
-			   (match-end 0)))
-	   (setq text-decoder (function mime-text-decode-buffer))
-	   ))
-    (setq major-mode 'mime-show-message-mode)
-    (setq mime-text-decoder text-decoder)
-    (save-window-excursion (mime-view-mode mother))
-    (set-window-buffer p-win mime-preview-buffer)
-    ))
-
-(set-atype 'mime-acting-condition
-	   '((type . application)(subtype . pgp)
-	     (method . mime-method-for-application/pgp)))
-
-(set-atype 'mime-acting-condition
-	   '((type . text)(subtype . x-pgp)
-	     (method . mime-method-for-application/pgp)))
-
-
-;;; @ Internal method for multipart/signed
-;;;
-;;; It is based on RFC 1847 (security-multipart).
-
-(defun mime-method-to-verify-multipart/signed (start end cal)
-  "Internal method to verify multipart/signed."
-  (mime-raw-play-entity
-   ;; entity-info of signature
-   (mime-raw-find-entity-from-node-id
-    ;; entity-node-id of signature
-    (cons 1 (mime-raw-point-to-entity-node-id start)))
-   (cdr (assq 'mode cal)) ; play-mode
-   ))
-
-(set-atype 'mime-acting-condition
-	   '((type . multipart)(subtype . signed)
-	     (method . mime-method-to-verify-multipart/signed)))
-
-
-;;; @ Internal method for application/pgp-signature
-;;;
-;;; It is based on RFC 2015 (PGP/MIME).
-
-(defvar mime-pgp-command "pgp"
-  "*Name of the PGP command.")
-
-(defvar mime-pgp-default-language 'en
-  "*Symbol of language for pgp.
-It should be ISO 639 2 letter language code such as en, ja, ...")
-
-(defvar mime-pgp-good-signature-regexp-alist
-  '((en . "Good signature from user.*$"))
-  "Alist of language vs regexp to detect ``Good signature''.")
-
-(defvar mime-pgp-key-expected-regexp-alist
-  '((en . "Key matching expected Key ID \\(\\S +\\) not found"))
-  "Alist of language vs regexp to detect ``Key expected''.")
-
-(defun mime-pgp-check-signature (output-buffer orig-file)
-  (save-excursion
-    (set-buffer output-buffer)
-    (erase-buffer))
-  (let* ((lang (or mime-pgp-default-language 'en))
-	 (status (call-process-region (point-min)(point-max)
-				      mime-pgp-command
-				      nil output-buffer nil
-				      orig-file (format "+language=%s" lang)))
-	 (regexp (cdr (assq lang mime-pgp-good-signature-regexp-alist))))
-    (if (= status 0)
-	(save-excursion
-	  (set-buffer output-buffer)
-	  (goto-char (point-min))
-	  (message
-	   (cond ((not (stringp regexp))
-		  "Please specify right regexp for specified language")
-		 ((re-search-forward regexp nil t)
-		  (buffer-substring (match-beginning 0) (match-end 0)))
-		 (t "Bad signature")))
-	  ))))
-
-(defun mime-method-to-verify-application/pgp-signature (start end cal)
-  "Internal method to check PGP/MIME signature."
-  (let* ((encoding (cdr (assq 'encoding cal)))
-	 (entity-node-id (mime-raw-point-to-entity-node-id start))
-	 (mother-node-id (cdr entity-node-id))
-	 (knum (car entity-node-id))
-	 (onum (if (> knum 0)
-		   (1- knum)
-		 (1+ knum)))
-	 (oinfo (mime-raw-find-entity-from-node-id
-		 (cons onum mother-node-id) mime-raw-message-info))
-	 (basename (expand-file-name "tm" mime-temp-directory))
-	 (orig-file (make-temp-name basename))
-	 (sig-file (concat orig-file ".sig"))
-	 )
-    (mime-raw-write-region (mime-entity-point-min oinfo)
-			   (mime-entity-point-max oinfo)
-			   orig-file)
-    (save-excursion (mime-show-echo-buffer))
-    (mime-write-decoded-region (save-excursion
-				 (goto-char start)
-				 (and (search-forward "\n\n")
-				      (match-end 0))
-				 ) end sig-file encoding)
-    (or (mime-pgp-check-signature mime-echo-buffer-name orig-file)
-	(let (pgp-id)
-	  (save-excursion
-	    (set-buffer mime-echo-buffer-name)
-	    (goto-char (point-min))
-	    (let ((regexp (cdr (assq (or mime-pgp-default-language 'en)
-				     mime-pgp-key-expected-regexp-alist))))
-	      (cond ((not (stringp regexp))
-		     (message
-		      "Please specify right regexp for specified language")
-		     )
-		    ((re-search-forward regexp nil t)
-		     (setq pgp-id
-			   (concat "0x" (buffer-substring-no-properties
-					 (match-beginning 1)
-					 (match-end 1))))
-		     ))))
-	  (if (and pgp-id
-		   (y-or-n-p
-		    (format "Key %s not found; attempt to fetch? " pgp-id))
-		   )
-	      (progn
-		(funcall (pgp-function 'fetch-key) (cons nil pgp-id))
-		(mime-pgp-check-signature mime-echo-buffer-name orig-file)
-		))
-	  ))
-    (let ((other-window-scroll-buffer mime-echo-buffer-name))
-      (scroll-other-window 8)
-      )
-    (delete-file orig-file)
-    (delete-file sig-file)
-    ))
-
-(set-atype 'mime-acting-condition
-	   '((type . application)(subtype . pgp-signature)
-	     (method . mime-method-to-verify-application/pgp-signature)))
-
-
-;;; @ Internal method for application/pgp-encrypted
-;;;
-;;; It is based on RFC 2015 (PGP/MIME).
-
-(defun mime-method-to-decrypt-application/pgp-encrypted (start end cal)
-  (let* ((entity-node-id (mime-raw-point-to-entity-node-id start))
-	 (mother-node-id (cdr entity-node-id))
-	 (knum (car entity-node-id))
-	 (onum (if (> knum 0)
-		   (1- knum)
-		 (1+ knum)))
-	 (oinfo (mime-raw-find-entity-from-node-id
-		 (cons onum mother-node-id) mime-raw-message-info))
-	 (obeg (mime-entity-point-min oinfo))
-	 (oend (mime-entity-point-max oinfo))
-	 )
-    (mime-method-for-application/pgp obeg oend cal)
-    ))
-
-(set-atype 'mime-acting-condition
-	   '((type . application)(subtype . pgp-encrypted)
-	     (method . mime-method-to-decrypt-application/pgp-encrypted)))
-
-
-;;; @ Internal method for application/pgp-keys
-;;;
-;;; It is based on RFC 2015 (PGP/MIME).
-
-(defun mime-method-to-add-application/pgp-keys (start end cal)
-  (let* ((entity-number (mime-raw-point-to-entity-number start))
-	 (new-name (format "%s-%s" (buffer-name) entity-number))
-	 (encoding (cdr (assq 'encoding cal)))
-	 str)
-    (setq str (buffer-substring start end))
-    (switch-to-buffer new-name)
-    (setq buffer-read-only nil)
-    (erase-buffer)
-    (insert str)
-    (goto-char (point-min))
-    (if (re-search-forward "^\n" nil t)
-	(delete-region (point-min) (match-end 0))
-      )
-    (mime-decode-region (point-min)(point-max) encoding)
-    (funcall (pgp-function 'snarf-keys))
-    (kill-buffer (current-buffer))
-    ))
-
-(set-atype 'mime-acting-condition
-	   '((type . application)(subtype . pgp-keys)
-	     (method . mime-method-to-add-application/pgp-keys)))
-
-	 
-;;; @ end
-;;;
-
-(provide 'mime-pgp)
-
-(run-hooks 'mime-pgp-load-hook)
-
-;;; mime-pgp.el ends here
diff --git a/mime-play.el b/mime-play.el
deleted file mode 100644
index 41f7fca..0000000
--- a/mime-play.el
+++ /dev/null
@@ -1,537 +0,0 @@
-;;; mime-play.el --- Playback processing module for mime-view.el
-
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1995/9/26 (separated from tm-view.el)
-;;	Renamed: 1997/2/21 from tm-play.el
-;; Keywords: MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Secretariat of Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime-view)
-(require 'alist)
-(require 'filename)
-
-(eval-when-compile (require 'mime-text))
-
-  
-;;; @ content decoder
-;;;
-
-(defvar mime-preview-after-decoded-position nil)
-
-(defun mime-preview-play-current-entity (&optional mode)
-  "Play current entity.
-It decodes current entity to call internal or external method.  The
-method is selected from variable `mime-acting-condition'.
-If MODE is specified, play as it.  Default MODE is \"play\"."
-  (interactive)
-  (or mode
-      (setq mode "play"))
-  (let ((entity-info (get-text-property (point) 'mime-view-entity)))
-    (if entity-info
-	(let ((the-buf (current-buffer))
-	      (raw-buffer (get-text-property (point) 'mime-view-raw-buffer)))
-	  (setq mime-preview-after-decoded-position (point))
-	  (set-buffer raw-buffer)
-	  (mime-raw-play-entity entity-info mode)
-	  (when (eq (current-buffer) raw-buffer)
-	    (set-buffer the-buf)
-	    (goto-char mime-preview-after-decoded-position)
-	    )))))
-
-(defun mime-raw-play-entity (entity-info &optional mode)
-  "Play entity specified by ENTITY-INFO.
-It decodes the entity to call internal or external method.  The method
-is selected from variable `mime-acting-condition'.  If MODE is
-specified, play as it.  Default MODE is \"play\"."
-  (let ((beg (mime-entity-point-min entity-info))
-	(end (mime-entity-point-max entity-info))
-	(c-type (mime-entity-media-type entity-info))
-	(c-subtype (mime-entity-media-subtype entity-info))
-	(params (mime-entity-parameters entity-info))
-	(encoding (mime-entity-encoding entity-info))
-	)
-    (or c-type
-	(setq c-type 'text
-	      c-subtype 'plain))
-    ;; Check for VM
-    (if (< beg (point-min))
-	(setq beg (point-min))
-      )
-    (if (< (point-max) end)
-	(setq end (point-max))
-      )
-    (let (method cal ret)
-      (setq cal (list* (cons 'type c-type)
-		       (cons 'subtype c-subtype)
-		       (cons 'encoding encoding)
-		       (cons 'major-mode major-mode)
-		       params))
-      (if mode
-	  (setq cal (cons (cons 'mode mode) cal))
-	)
-      (setq ret (mime/get-content-decoding-alist cal))
-      (setq method (cdr (assq 'method ret)))
-      (cond ((and (symbolp method)
-		  (fboundp method))
-	     (funcall method beg end ret)
-	     )
-	    ((and (listp method)(stringp (car method)))
-	     (mime-activate-external-method beg end ret)
-	     )
-	    (t
-	     (mime-show-echo-buffer
-	      "No method are specified for %s\n"
-	      (mime-type/subtype-string c-type c-subtype))
-	     ))
-      )
-    ))
-
-
-;;; @ method selector
-;;;
-
-(defun mime/get-content-decoding-alist (al)
-  (get-unified-alist mime-acting-condition al)
-  )
-
-
-;;; @ external decoder
-;;;
-
-(defun mime-activate-external-method (beg end cal)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region beg end)
-      (goto-char beg)
-      (let ((method (cdr (assoc 'method cal)))
-	    (name (mime-raw-get-filename cal))
-	    )
-	(if method
-	    (let ((file (make-temp-name
-			 (expand-file-name "TM" mime-temp-directory)))
-		  b args)
-	      (if (nth 1 method)
-		  (setq b beg)
-		(setq b
-		      (if (re-search-forward "^$" nil t)
-			  (1+ (match-end 0))
-			(point-min)
-			))
-		)
-	      (goto-char b)
-	      (write-region b end file)
-	      (message "External method is starting...")
-	      (setq cal (put-alist
-			 'name (replace-as-filename name) cal))
-	      (setq cal (put-alist 'file file cal))
-	      (setq args (nconc
-			  (list (car method)
-				mime-echo-buffer-name (car method)
-				)
-			  (mime-make-external-method-args
-			   cal (cdr (cdr method)))
-			  ))
-	      (apply (function start-process) args)
-	      (mime-show-echo-buffer)
-	      ))
-	))))
-
-(defun mime-make-external-method-args (cal format)
-  (mapcar (function
-	   (lambda (arg)
-	     (if (stringp arg)
-		 arg
-	       (let* ((item (eval arg))
-		      (ret (cdr (assoc item cal)))
-		      )
-		 (if ret
-		     ret
-		   (if (eq item 'encoding)
-		       "7bit"
-		     ""))
-		 ))
-	     ))
-	  format))
-
-(defvar mime-echo-window-is-shared-with-bbdb t
-  "*If non-nil, mime-echo window is shared with BBDB window.")
-
-(defvar mime-echo-window-height
-  (function
-   (lambda ()
-     (/ (window-height) 5)
-     ))
-  "*Size of mime-echo window.
-It allows function or integer.  If it is function,
-`mime-show-echo-buffer' calls it to get height of mime-echo window.
-Otherwise `mime-show-echo-buffer' uses it as height of mime-echo
-window.")
-
-(defun mime-show-echo-buffer (&rest forms)
-  "Show mime-echo buffer to display MIME-playing information."
-  (get-buffer-create mime-echo-buffer-name)
-  (let ((the-win (selected-window))
-	(win (get-buffer-window mime-echo-buffer-name))
-	)
-    (or win
-	(if (and mime-echo-window-is-shared-with-bbdb
-		 (boundp 'bbdb-buffer-name)
-		 (setq win (get-buffer-window bbdb-buffer-name))
-		 )
-	    (set-window-buffer win mime-echo-buffer-name)
-	  (select-window (get-buffer-window mime-preview-buffer))
-	  (setq win (split-window-vertically
-		     (- (window-height)
-			(if (functionp mime-echo-window-height)
-			    (funcall mime-echo-window-height)
-			  mime-echo-window-height)
-			)))
-	  (set-window-buffer win mime-echo-buffer-name)
-	  ))
-    (select-window win)
-    (goto-char (point-max))
-    (if forms
-	(insert (apply (function format) forms))
-      )
-    (select-window the-win)
-    ))
-
-
-;;; @ file name
-;;;
-
-(defvar mime-view-file-name-char-regexp "[A-Za-z0-9+_-]")
-
-(defvar mime-view-file-name-regexp-1
-  (concat mime-view-file-name-char-regexp "+\\."
-	  mime-view-file-name-char-regexp "+"))
-
-(defvar mime-view-file-name-regexp-2
-  (concat (regexp-* mime-view-file-name-char-regexp)
-	  "\\(\\." mime-view-file-name-char-regexp "+\\)*"))
-
-(defun mime-raw-get-original-filename (param &optional encoding)
-  (or (mime-raw-get-uu-filename param encoding)
-      (let (ret)
-	(or (if (or (and (setq ret (mime/Content-Disposition))
-			 (setq ret (assoc "filename" (cdr ret)))
-			 )
-		    (setq ret (assoc "name" param))
-		    (setq ret (assoc "x-name" param))
-		    )
-		(std11-strip-quoted-string (cdr ret))
-	      )
-	    (if (setq ret
-		      (std11-find-field-body '("Content-Description"
-					       "Subject")))
-		(if (or (string-match mime-view-file-name-regexp-1 ret)
-			(string-match mime-view-file-name-regexp-2 ret))
-		    (substring ret (match-beginning 0)(match-end 0))
-		  ))
-	    ))
-      ))
-
-(defun mime-raw-get-filename (param)
-  (replace-as-filename (mime-raw-get-original-filename param))
-  )
-
-
-;;; @ file extraction
-;;;
-
-(defun mime-method-to-save (beg end cal)
-  (goto-char beg)
-  (let* ((name
-	  (save-restriction
-	    (narrow-to-region beg end)
-	    (mime-raw-get-filename cal)
-	    ))
-	 (encoding (or (cdr (assq 'encoding cal)) "7bit"))
-	 (filename
-          (if (and name (not (string-equal name "")))
-	      (expand-file-name name
-				(call-interactively
-				 (function
-				  (lambda (dir)
-				    (interactive "DDirectory: ")
-				    dir))))
-	    (call-interactively
-	     (function
-	      (lambda (file)
-		(interactive "FFilename: ")
-		(expand-file-name file))))))
-	 )
-    (if (file-exists-p filename)
-        (or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
-            (error "")))
-    (re-search-forward "\n\n")
-    (mime-write-decoded-region (match-end 0) end filename encoding)
-    ))
-
-
-;;; @ mail/news message
-;;;
-
-(defun mime-preview-quitting-method-for-mime-show-message-mode ()
-  "Quitting method for mime-view.
-It is registered to variable `mime-preview-quitting-method-alist'."
-  (let ((mother mime-mother-buffer)
-	(win-conf mime-preview-original-window-configuration)
-	)
-    (kill-buffer mime-raw-buffer)
-    (mime-preview-kill-buffer)
-    (set-window-configuration win-conf)
-    (pop-to-buffer mother)
-    ))
-
-(defun mime-method-to-display-message/rfc822 (beg end cal)
-  (let* ((cnum (mime-raw-point-to-entity-number beg))
-	 (new-name (format "%s-%s" (buffer-name) cnum))
-	 (mother mime-preview-buffer)
-	 (text-decoder
-	  (cdr (or (assq major-mode mime-text-decoder-alist)
-		   (assq t mime-text-decoder-alist))))
-	 str)
-    (setq str (buffer-substring beg end))
-    (switch-to-buffer new-name)
-    (erase-buffer)
-    (insert str)
-    (goto-char (point-min))
-    (if (re-search-forward "^\n" nil t)
-	(delete-region (point-min) (match-end 0))
-      )
-    (setq major-mode 'mime-show-message-mode)
-    (setq mime-text-decoder text-decoder)
-    (mime-view-mode mother)
-    ))
-
-
-;;; @ message/partial
-;;;
-
-(defun mime-raw-write-region (start end filename)
-  "Write current region into specified file.
-When called from a program, takes three arguments:
-START, END and FILENAME.  START and END are buffer positions.
-It refer `mime-raw-buffer-coding-system-alist' to choose coding-system
-to write."
-  (let ((coding-system-for-write
-	 (cdr
-	  (or (assq major-mode mime-raw-buffer-coding-system-alist)
-	      (assq t mime-raw-buffer-coding-system-alist)
-	      ))))
-    (write-region start end filename)
-    ))
-
-(defun mime-method-to-store-message/partial (beg end cal)
-  (goto-char beg)
-  (let* ((root-dir
-	  (expand-file-name
-	   (concat "m-prts-" (user-login-name)) mime-temp-directory))
-	 (id (cdr (assoc "id" cal)))
-	 (number (cdr (assoc "number" cal)))
-	 (total (cdr (assoc "total" cal)))
-	 file
-	 (mother mime-preview-buffer)
-         )
-    (or (file-exists-p root-dir)
-	(make-directory root-dir)
-	)
-    (setq id (replace-as-filename id))
-    (setq root-dir (concat root-dir "/" id))
-    (or (file-exists-p root-dir)
-	(make-directory root-dir)
-	)
-    (setq file (concat root-dir "/FULL"))
-    (if (file-exists-p file)
-	(let ((full-buf (get-buffer-create "FULL"))
-	      (pwin (or (get-buffer-window mother)
-			(get-largest-window)))
-	      )
-	  (save-window-excursion
-	    (set-buffer full-buf)
-	    (erase-buffer)
-	    (as-binary-input-file (insert-file-contents file))
-	    (setq major-mode 'mime-show-message-mode)
-	    (mime-view-mode mother)
-	    )
-	  (set-window-buffer pwin
-			     (save-excursion
-			       (set-buffer full-buf)
-			       mime-preview-buffer))
-	  (select-window pwin)
-	  )
-      (re-search-forward "^$")
-      (goto-char (1+ (match-end 0)))
-      (setq file (concat root-dir "/" number))
-      (mime-raw-write-region (point) end file)
-      (let ((total-file (concat root-dir "/CT")))
-	(setq total
-	      (if total
-		  (progn
-		    (or (file-exists-p total-file)
-			(save-excursion
-			  (set-buffer
-			   (get-buffer-create mime-temp-buffer-name))
-			  (erase-buffer)
-			  (insert total)
-			  (write-region (point-min)(point-max) total-file)
-			  (kill-buffer (current-buffer))
-			  ))
-		    (string-to-number total)
-		    )
-		(and (file-exists-p total-file)
-		     (save-excursion
-		       (set-buffer (find-file-noselect total-file))
-		       (prog1
-			   (and (re-search-forward "[0-9]+" nil t)
-				(string-to-number
-				 (buffer-substring (match-beginning 0)
-						   (match-end 0)))
-				)
-			 (kill-buffer (current-buffer))
-			 )))
-		)))
-      (if (and total (> total 0))
-	  (catch 'tag
-	    (save-excursion
-	      (set-buffer (get-buffer-create mime-temp-buffer-name))
-	      (let ((full-buf (current-buffer)))
-		(erase-buffer)
-		(let ((i 1))
-		  (while (<= i total)
-		    (setq file (concat root-dir "/" (int-to-string i)))
-		    (or (file-exists-p file)
-			(throw 'tag nil)
-			)
-		    (as-binary-input-file (insert-file-contents file))
-		    (goto-char (point-max))
-		    (setq i (1+ i))
-		    ))
-		(as-binary-output-file
-                 (write-region (point-min)(point-max)
-                               (expand-file-name "FULL" root-dir)))
-		(let ((i 1))
-		  (while (<= i total)
-		    (let ((file (format "%s/%d" root-dir i)))
-		      (and (file-exists-p file)
-			   (delete-file file)
-			   ))
-		    (setq i (1+ i))
-		    ))
-		(let ((file (expand-file-name "CT" root-dir)))
-		  (and (file-exists-p file)
-		       (delete-file file)
-		       ))
-		(save-window-excursion
-		  (setq major-mode 'mime-show-message-mode)
-		  (mime-view-mode mother)
-		  )
-		(let ((pwin (or (get-buffer-window mother)
-				(get-largest-window)
-				))
-		      (pbuf (save-excursion
-			      (set-buffer full-buf)
-			      mime-preview-buffer)))
-		  (set-window-buffer pwin pbuf)
-		  (select-window pwin)
-		  )))))
-      )))
-
-
-;;; @ message/external-body
-;;;
-
-(defvar mime-raw-dired-function
-  (if mime/use-multi-frame
-      (function dired-other-frame)
-    (function mime-raw-dired-function-for-one-frame)
-    ))
-
-(defun mime-raw-dired-function-for-one-frame (dir)
-  (let ((win (or (get-buffer-window mime-preview-buffer)
-		 (get-largest-window))))
-    (select-window win)
-    (dired dir)
-    ))
-
-(defun mime-method-to-display-message/external-ftp (beg end cal)
-  (let* ((site (cdr (assoc "site" cal)))
-	 (directory (cdr (assoc "directory" cal)))
-	 (name (cdr (assoc "name" cal)))
-	 ;;(mode (cdr (assoc "mode" cal)))
-	 (pathname (concat "/anonymous@" site ":" directory))
-	 )
-    (message (concat "Accessing " (expand-file-name name pathname) "..."))
-    (funcall mime-raw-dired-function pathname)
-    (goto-char (point-min))
-    (search-forward name)
-    ))
-
-
-;;; @ rot13-47
-;;;
-
-(defun mime-method-to-display-caesar (start end cal)
-  "Internal method for mime-view to display ROT13-47-48 message."
-  (let* ((cnum (mime-raw-point-to-entity-number start))
-	 (new-name (format "%s-%s" (buffer-name) cnum))
-	 (the-buf (current-buffer))
-	 (mother mime-preview-buffer)
-	 (charset (cdr (assoc "charset" cal)))
-	 (encoding (cdr (assq 'encoding cal)))
-	 (mode major-mode)
-	 )
-    (let ((pwin (or (get-buffer-window mother)
-		    (get-largest-window)))
-	  (buf (get-buffer-create new-name))
-	  )
-      (set-window-buffer pwin buf)
-      (set-buffer buf)
-      (select-window pwin)
-      )
-    (setq buffer-read-only nil)
-    (erase-buffer)
-    (insert-buffer-substring the-buf start end)
-    (goto-char (point-min))
-    (if (re-search-forward "^\n" nil t)
-	(delete-region (point-min) (match-end 0))
-      )
-    (let ((m (cdr (or (assq mode mime-text-decoder-alist)
-		      (assq t mime-text-decoder-alist)))))
-      (and (functionp m)
-	   (funcall m charset encoding)
-	   ))
-    (mule-caesar-region (point-min) (point-max))
-    (set-buffer-modified-p nil)
-    (set-buffer mother)
-    (view-buffer new-name)
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-play)
-
-;;; mime-play.el ends here
diff --git a/mime-setup.el b/mime-setup.el
deleted file mode 100644
index cee4616..0000000
--- a/mime-setup.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; mime-setup.el --- setup file for MIME viewer and composer.
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: MIME, multimedia, multilingual, mail, news
-
-;; This file is part of SEMI (Setting for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(load "mail-mime-setup")
-
-(condition-case err
-    (load "gnus-mime-setup")
-  (error (message "gnus-mime-setup is not found."))
-  )
-
-(condition-case err
-    (load "emh-setup")
-  (error (message "emh-setup is not found."))
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'mime-setup)
-
-(run-hooks 'mime-setup-load-hook)
-
-;;; mime-setup.el ends here
diff --git a/mime-text.el b/mime-text.el
deleted file mode 100644
index 6a22fbd..0000000
--- a/mime-text.el
+++ /dev/null
@@ -1,165 +0,0 @@
-;;; mime-text.el --- mime-view content filter for text
-
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: text, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime-view)
-
-
-;;; @ buffer local variables in raw-buffer
-;;;
-
-(defvar mime-text-decoder nil
-  "Function to decode text in current buffer.
-Interface of the function is (CHARSET &optional ENCODING).
-CHARSET is symbol of MIME charset and ENCODING is value of
-Content-Transfer-Encoding.
-
-Notice that this variable is usually used as buffer local variable in
-raw-buffer.")
-
-(make-variable-buffer-local 'mime-text-decoder)
-
-
-;;; @ code conversion
-;;;
-
-(defun mime-text-decode-buffer (charset &optional encoding)
-  "Decode text of current buffer as CHARSET.
-It code-converts current buffer from network representation specified
-by MIME CHARSET to internal code.  CHARSET is symbol of MIME charset.
-See also variable `mime-charset-coding-system-alist'."
-  (decode-mime-charset-region (point-min)(point-max)
-			      (or charset default-mime-charset))
-  )
-
-(defun mime-text-decode-buffer-maybe (charset &optional encoding)
-  "Decode text of current buffer as CHARSET if ENCODING is actual encoding.
-It code-converts current buffer from network representation specified
-by MIME CHARSET to internal code if ENCODING is not nil, \"7bit\",
-\"8bit\" or \"binary\".  CHARSET is symbol of MIME charset.
-See also variable `mime-charset-coding-system-alist'."
-  (or (member encoding '(nil "7bit" "8bit" "binary"))
-      (mime-text-decode-buffer charset)
-      ))
-
-(defun mime-text-decode-body (situation)
-  "Decode current buffer as text body.
-It decodes MIME-encoding then code-converts as MIME-charset.
-MIME-encoding is value of field 'encoding of SITUATION.  It must be
-'nil or string.  MIME-charset is value of field \"charset\" of
-SITUATION.  It must be symbol.
-This function calls text-decoder for MIME-charset specified by buffer
-local variable `mime-text-decoder' and variable
-`mime-text-decoder-alist'."
-  (let ((encoding (cdr (assq 'encoding situation))))
-    (mime-decode-region (point-min) (point-max) encoding)
-    (goto-char (point-min))
-    (while (search-forward "\r\n" nil t)
-      (replace-match "\n")
-      )
-    (let ((text-decoder
-	   (save-excursion
-	     (set-buffer mime-raw-buffer)
-	     (or mime-text-decoder
-		 (cdr (or (assq major-mode mime-text-decoder-alist)
-			  (assq t mime-text-decoder-alist)))
-		 ))))
-      (and (functionp text-decoder)
-	   (funcall text-decoder (cdr (assoc "charset" situation)) encoding)
-	   ))
-    (run-hooks 'mime-text-decode-hook)
-    ))
-
-
-;;; @ for URL
-;;;
-
-(require 'browse-url)
-
-(defvar mime-text-url-regexp
-  "\\(http\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"
-  "*Regexp to match URL in text/plain body.")
-
-(defun mime-text-browse-url (&optional url)
-  (if (fboundp browse-url-browser-function)
-      (if url 
-        (funcall browse-url-browser-function url)
-      (call-interactively browse-url-browser-function))
-    (if (fboundp mime-button-mother-dispatcher)
-	(call-interactively mime-button-mother-dispatcher)
-      )
-    ))
-
-(defsubst mime-text-add-url-buttons ()
-  "Add URL-buttons for text body."
-  (goto-char (point-min))
-  (while (re-search-forward mime-text-url-regexp nil t)
-    (let ((beg (match-beginning 0))
-	  (end (match-end 0)))
-      (mime-add-button beg end #'mime-text-browse-url
-		       (list (buffer-substring beg end)))
-      )))
-
-(defun mime-text-add-url-buttons-maybe ()
-  "Add URL-buttons if 'browse-url-browser-function is not 'nil."
-  (if browse-url-browser-function
-      (mime-text-add-url-buttons)
-    ))
-
-
-;;; @ content filters for mime-text
-;;;
-
-(defun mime-preview-filter-for-text/plain (situation)
-  (mime-text-decode-body situation)
-  (goto-char (point-max))
-  (if (not (eq (char-after (1- (point))) ?\n))
-      (insert "\n")
-    )
-  (mime-text-add-url-buttons)
-  (run-hooks 'mime-preview-text/plain-hook)
-  )
-
-(defun mime-preview-filter-for-text/richtext (situation)
-  (let ((beg (point-min)))
-    (remove-text-properties beg (point-max) '(face nil))
-    (mime-text-decode-body situation)
-    (richtext-decode beg (point-max))
-    ))
-
-(defun mime-preview-filter-for-text/enriched (situation)
-  (let ((beg (point-min)))
-    (remove-text-properties beg (point-max) '(face nil))
-    (mime-text-decode-body situation)
-    (enriched-decode beg (point-max))
-    ))
-
-
-;;; @ end
-;;;
-
-(provide 'mime-text)
-
-;;; mime-text.el ends here
diff --git a/mime-view.el b/mime-view.el
deleted file mode 100644
index 245602a..0000000
--- a/mime-view.el
+++ /dev/null
@@ -1,1310 +0,0 @@
-;;; mime-view.el --- interactive MIME viewer for GNU Emacs
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1994/07/13
-;;	Renamed: 1994/08/31 from tm-body.el
-;;	Renamed: 1997/02/19 from tm-view.el
-;; Keywords: MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Sophisticated Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'std11)
-(require 'mel)
-(require 'eword-decode)
-(require 'mime-parse)
-(require 'calist)
-
-
-;;; @ version
-;;;
-
-(defconst mime-view-version-string
-  `,(concat "SEMI MIME-View "
-	    (mapconcat #'number-to-string (cdr semi-version) ".")
-	    " (" (car semi-version) ")"))
-
-
-;;; @ buffer local variables
-;;;
-
-;;; @@ in raw-buffer
-;;;
-
-(defvar mime-raw-message-info
-  "Information about structure of message.
-Please use reference function `mime-entity-SLOT' to get value of SLOT.
-
-Following is a list of slots of the structure:
-
-node-id		reversed entity-number (list of integers)
-point-min	beginning point of region in raw-buffer
-point-max	end point of region in raw-buffer
-type		media-type (symbol)
-subtype		media-subtype (symbol)
-type/subtype	media-type/subtype (string or nil)
-parameters	parameter of Content-Type field (association list)
-encoding	Content-Transfer-Encoding (string or nil)
-children	entities included in this entity (list of content-infos)
-
-If an entity includes other entities in its body, such as multipart or
-message/rfc822, `mime-entity' structures of them are included in
-`children', so the `mime-entity' structure become a tree.")
-(make-variable-buffer-local 'mime-raw-message-info)
-
-(defvar mime-preview-buffer nil
-  "MIME-preview buffer corresponding with the (raw) buffer.")
-(make-variable-buffer-local 'mime-preview-buffer)
-
-
-;;; @@ in preview-buffer
-;;;
-
-(defvar mime-mother-buffer nil
-  "Mother buffer corresponding with the (MIME-preview) buffer.
-If current MIME-preview buffer is generated by other buffer, such as
-message/partial, it is called `mother-buffer'.")
-(make-variable-buffer-local 'mime-mother-buffer)
-
-(defvar mime-raw-buffer nil
-  "Raw buffer corresponding with the (MIME-preview) buffer.")
-(make-variable-buffer-local 'mime-raw-buffer)
-
-(defvar mime-preview-original-major-mode nil
-  "Major-mode of mime-raw-buffer.")
-(make-variable-buffer-local 'mime-preview-original-major-mode)
-
-(defvar mime-preview-original-window-configuration nil
-  "Window-configuration before mime-view-mode is called.")
-(make-variable-buffer-local 'mime-preview-original-window-configuration)
-
-
-;;; @ entity information
-;;;
-
-(defsubst mime-raw-find-entity-from-node-id (entity-node-id
-					     &optional message-info)
-  "Return entity from ENTITY-NODE-ID in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (mime-raw-find-entity-from-number (reverse entity-node-id) message-info))
-
-(defun mime-raw-find-entity-from-number (entity-number &optional message-info)
-  "Return entity from ENTITY-NUMBER in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (or message-info
-      (setq message-info mime-raw-message-info))
-  (if (eq entity-number t)
-      message-info
-    (let ((sn (car entity-number)))
-      (if (null sn)
-	  message-info
-	(let ((rc (nth sn (mime-entity-children message-info))))
-	  (if rc
-	      (mime-raw-find-entity-from-number (cdr entity-number) rc)
-	    ))
-	))))
-
-(defun mime-raw-find-entity-from-point (point &optional message-info)
-  "Return entity from POINT in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (or message-info
-      (setq message-info mime-raw-message-info))
-  (if (and (<= (mime-entity-point-min message-info) point)
-	   (<= point (mime-entity-point-max message-info)))
-      (let ((children (mime-entity-children message-info)))
-	(catch 'tag
-	  (while children
-	    (let ((ret
-		   (mime-raw-find-entity-from-point point (car children))))
-	      (if ret
-		  (throw 'tag ret)
-		))
-	    (setq children (cdr children)))
-	  message-info))))
-
-(defsubst mime-raw-point-to-entity-node-id (point &optional message-info)
-  "Return entity-node-id from POINT in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (mime-entity-node-id (mime-raw-find-entity-from-point point message-info)))
-
-(defsubst mime-raw-point-to-entity-number (point &optional message-info)
-  "Return entity-number from POINT in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (reverse (mime-raw-point-to-entity-node-id point message-info)))
-
-(defsubst mime-raw-entity-parent (entity &optional message-info)
-  "Return mother entity of ENTITY.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (mime-raw-find-entity-from-node-id (cdr (mime-entity-node-id entity))
-				     message-info))
-
-(defun mime-raw-flatten-message-info (&optional message-info)
-  "Return list of entity in mime-raw-buffer.
-If optional argument MESSAGE-INFO is not specified,
-`mime-raw-message-info' is used."
-  (or message-info
-      (setq message-info mime-raw-message-info))
-  (let ((dest (list message-info))
-	(rcl (mime-entity-children message-info)))
-    (while rcl
-      (setq dest (nconc dest (mime-raw-flatten-message-info (car rcl))))
-      (setq rcl (cdr rcl)))
-    dest))
-
-
-;;; @ presentation of preview
-;;;
-
-;;; @@ entity-button
-;;;
-
-;;; @@@ predicate function
-;;;
-
-(defvar mime-view-content-button-visible-ctype-list
-  '("application/pgp"))
-
-(defun mime-view-entity-button-visible-p (entity message-info)
-  "Return non-nil if header of ENTITY is visible.
-Please redefine this function if you want to change default setting."
-  (and (not (mime-root-entity-p entity))
-       (let ((media-type (mime-entity-media-type entity))
-	     (media-subtype (mime-entity-media-subtype entity)))
-	 (or (not (eq media-type 'application))
-	     (and (not (eq media-subtype 'x-selection))
-		  (or (not (eq media-subtype 'octet-stream))
-		      (let ((mother-entity
-			     (mime-raw-entity-parent entity message-info)))
-			(or (not (eq (mime-entity-media-type mother-entity)
-				     'multipart))
-			    (not (eq (mime-entity-media-subtype mother-entity)
-				     'encrypted)))
-			)
-		      ))))))
-
-;;; @@@ entity button generator
-;;;
-
-(defun mime-view-insert-entity-button (entity message-info subj)
-  "Insert entity-button of ENTITY."
-  (let ((entity-node-id (mime-entity-node-id entity))
-	(params (mime-entity-parameters entity)))
-    (mime-insert-button
-     (let ((access-type (assoc "access-type" params))
-	   (num (or (cdr (assoc "x-part-number" params))
-		    (if (consp entity-node-id)
-			(mapconcat (function
-				    (lambda (num)
-				      (format "%s" (1+ num))
-				      ))
-				   (reverse entity-node-id) ".")
-		      "0"))
-		))
-       (cond (access-type
-	      (let ((server (assoc "server" params)))
-		(setq access-type (cdr access-type))
-		(if server
-		    (format "%s %s ([%s] %s)"
-			    num subj access-type (cdr server))
-		(let ((site (cdr (assoc "site" params)))
-		      (dir (cdr (assoc "directory" params)))
-		      )
-		  (format "%s %s ([%s] %s:%s)"
-			  num subj access-type site dir)
-		  )))
-	    )
-	   (t
-	    (let ((media-type (mime-entity-media-type entity))
-		  (media-subtype (mime-entity-media-subtype entity))
-		  (charset (cdr (assoc "charset" params)))
-		  (encoding (mime-entity-encoding entity)))
-	      (concat
-	       num " " subj
-	       (let ((rest
-		      (format " <%s/%s%s%s>"
-			      media-type media-subtype
-			      (if charset
-				  (concat "; " charset)
-				"")
-			      (if encoding
-				  (concat " (" encoding ")")
-				""))))
-		 (if (>= (+ (current-column)(length rest))(window-width))
-		     "\n\t")
-		 rest)))
-	    )))
-     (function mime-preview-play-current-entity))
-    ))
-
-
-;;; @@ entity-header
-;;;
-
-;;; @@@ predicate function
-;;;
-
-(defvar mime-view-childrens-header-showing-Content-Type-list
-  '("message/rfc822" "message/news"))
-
-(defun mime-view-header-visible-p (entity message-info)
-  "Return non-nil if header of ENTITY is visible."
-  (let ((entity-node-id (mime-entity-node-id entity)))
-    (or (null entity-node-id)
-	(member (mime-entity-type/subtype
-		 (mime-raw-find-entity-from-node-id
-		  (cdr entity-node-id) message-info))
-		mime-view-childrens-header-showing-Content-Type-list)
-	)))
-
-;;; @@@ entity header filter
-;;;
-
-(defvar mime-view-content-header-filter-alist nil)
-
-(defun mime-view-default-content-header-filter ()
-  (mime-view-cut-header)
-  (eword-decode-header)
-  )
-
-;;; @@@ entity field cutter
-;;;
-
-(defvar mime-view-ignored-field-list
-  '(".*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-ignored-field-regexp
-  (concat "^"
-	  (apply (function regexp-or) mime-view-ignored-field-list)
-	  ":"))
-
-(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.")
-
-(defun mime-view-cut-header ()
-  (goto-char (point-min))
-  (while (re-search-forward mime-view-ignored-field-regexp nil t)
-    (let* ((beg (match-beginning 0))
-	   (end (match-end 0))
-	   (name (buffer-substring beg end))
-	   )
-      (catch 'visible
-	(let ((rest mime-view-visible-field-list))
-	  (while rest
-	    (if (string-match (car rest) name)
-		(throw 'visible nil)
-	      )
-	    (setq rest (cdr rest))))
-	(delete-region beg
-		       (save-excursion
-			 (if (re-search-forward "^\\([^ \t]\\|$\\)" nil t)
-			     (match-beginning 0)
-			   (point-max))))
-	))))
-
-
-;;; @@ entity-body
-;;;
-
-;;; @@@ predicate function
-;;;
-
-(defvar mime-preview-condition nil
-  "Condition-tree about how to display entity.")
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . octet-stream)
-			   (encoding . nil)
-			   (body . visible)))
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . octet-stream)
-			   (encoding . "7bit")
-			   (body . visible)))
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . octet-stream)
-			   (encoding . "8bit")
-			   (body . visible)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . pgp)
-			   (body . visible)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . x-latex)
-			   (body . visible)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . x-selection)
-			   (body . visible)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . application)(subtype . x-comment)
-			   (body . visible)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . message)(subtype . delivery-status)
-			   (body . visible)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((body . visible)
-			   (body-presentation-method . with-filter)
-			   (body-filter . mime-preview-filter-for-text/plain)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . nil)
-			   (body . visible)
-			   (body-presentation-method . with-filter)
-			   (body-filter . mime-preview-filter-for-text/plain)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . text)(subtype . enriched)
-			   (body . visible)
-			   (body-presentation-method . with-filter)
-			   (body-filter
-			    . mime-preview-filter-for-text/enriched)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . text)(subtype . richtext)
-			   (body . visible)
-			   (body-presentation-method . with-filter)
-			   (body-filter
-			    . mime-preview-filter-for-text/richtext)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . text)(subtype . t)
-			   (body . visible)
-			   (body-presentation-method . with-filter)
-			   (body-filter . mime-preview-filter-for-text/plain)))
-
-(ctree-set-calist-strictly
- 'mime-preview-condition '((type . message)(subtype . partial)
-			   (body-presentation-method
-			    . mime-view-insert-message/partial-button)))
-
-(defun mime-view-body-visible-p (entity message-info)
-  "Return non-nil if body of ENTITY is visible."
-  (ctree-match-calist mime-preview-condition
-		      (list* (cons 'type (mime-entity-media-type entity))
-			     (cons 'subtype (mime-entity-media-subtype entity))
-			     (cons 'encoding (mime-entity-encoding entity))
-			     (cons 'major-mode major-mode)
-			     (mime-entity-parameters entity))))
-
-
-;;; @@@ entity filter
-;;;
-
-(autoload 'mime-preview-filter-for-text/plain "mime-text")
-(autoload 'mime-preview-filter-for-text/enriched "mime-text")
-(autoload 'mime-preview-filter-for-text/richtext "mime-text")
-
-(defvar mime-text-decoder-alist
-  '((mime-show-message-mode	. mime-text-decode-buffer)
-    (mime-temp-message-mode	. mime-text-decode-buffer)
-    (t				. mime-text-decode-buffer-maybe)
-    )
-  "Alist of major-mode vs. mime-text-decoder.
-Each element looks like (SYMBOL . FUNCTION).  SYMBOL is major-mode or
-t.  t means default.
-
-Specification of FUNCTION is described in DOC-string of variable
-`mime-text-decoder'.
-
-This value is overridden by buffer local variable `mime-text-decoder'
-if it is not nil.")
-
-
-(defvar mime-view-announcement-for-message/partial
-  (if (and (>= emacs-major-version 19) window-system)
-      "\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `v' key in this buffer          ]]
-\[[ or click here by mouse button-2.             ]]"
-    "\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `v' key in this buffer.         ]]"
-    ))
-
-(defun mime-view-insert-message/partial-button (&optional situation)
-  (save-restriction
-    (goto-char (point-max))
-    (if (not (search-backward "\n\n" nil t))
-	(insert "\n")
-      )
-    (goto-char (point-max))
-    (narrow-to-region (point-max)(point-max))
-    (insert mime-view-announcement-for-message/partial)
-    (mime-add-button (point-min)(point-max)
-		     #'mime-preview-play-current-entity)
-    ))
-
-
-;;; @@ entity separator
-;;;
-
-(defun mime-view-entity-separator-visible-p (entity message-info)
-  "Return non-nil if separator is needed for ENTITY."
-  (and (not (mime-view-header-visible-p entity message-info))
-       (not (mime-view-body-visible-p entity message-info))))
-
-
-;;; @ acting-condition
-;;;
-
-(defvar mime-acting-condition
-  '(((type . text)(subtype . plain)
-     (method "tm-plain" nil 'file "" 'encoding 'mode 'name)
-     (mode "play" "print")
-     )
-    ((type . text)(subtype . html)
-     (method "tm-html" nil 'file "" 'encoding 'mode 'name)
-     (mode . "play")
-     )
-    ((type . text)(subtype . x-rot13-47)
-     (method . mime-method-to-display-caesar)
-     (mode . "play")
-     )
-    ((type . text)(subtype . x-rot13-47-48)
-     (method . mime-method-to-display-caesar)
-     (mode . "play")
-     )
-
-    ((type . audio)(subtype . basic)
-     (method "tm-au"    nil 'file "" 'encoding 'mode 'name)
-     (mode . "play")
-     )
-    
-    ((type . image)
-     (method "tm-image" nil 'file "" 'encoding 'mode 'name)
-     (mode "play" "print")
-     )
-    
-    ((type . video)(subtype . mpeg)
-     (method "tm-mpeg"  nil 'file "" 'encoding 'mode 'name)
-     (mode . "play")
-     )
-    
-    ((type . application)(subtype . postscript)
-     (method "tm-ps" nil 'file "" 'encoding 'mode 'name)
-     (mode "play" "print")
-     )
-    ((type . application)(subtype . octet-stream)
-     (method . mime-method-to-save)(mode "play" "print")
-     )
-
-    ((type . message)(subtype . external-body)
-     ("access-type" . "anon-ftp")
-     (method . mime-method-to-display-message/external-ftp)
-     )
-    ((type . message)(subtype . rfc822)
-     (method . mime-method-to-display-message/rfc822)
-     (mode . "play")
-     )
-    ((type . message)(subtype . partial)
-     (method . mime-method-to-store-message/partial)
-     (mode . "play")
-     )
-    
-    ((method "metamail" t "-m" "tm" "-x" "-d" "-z" "-e" 'file)
-     (mode . "play")
-     )
-    ((method . mime-method-to-save)(mode . "extract"))
-    ))
-
-
-;;; @ quitting method
-;;;
-
-(defvar mime-preview-quitting-method-alist
-  '((mime-show-message-mode
-     . mime-preview-quitting-method-for-mime-show-message-mode))
-  "Alist of major-mode vs. quitting-method of mime-view.")
-
-(defvar mime-view-over-to-previous-method-alist nil)
-(defvar mime-view-over-to-next-method-alist nil)
-
-(defvar mime-view-show-summary-method nil
-  "Alist of major-mode vs. show-summary-method.")
-
-
-;;; @ following method
-;;;
-
-(defvar mime-view-following-method-alist nil
-  "Alist of major-mode vs. following-method of mime-view.")
-
-(defvar mime-view-following-required-fields-list
-  '("From"))
-
-
-;;; @ X-Face
-;;;
-
-;; hack from Gnus 5.0.4.
-
-(defvar mime-view-x-face-to-pbm-command
-  "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm")
-
-(defvar mime-view-x-face-command
-  (concat mime-view-x-face-to-pbm-command
-	  " | xv -quit -")
-  "String to be executed to display an X-Face field.
-The command will be executed in a sub-shell asynchronously.
-The compressed face will be piped to this command.")
-
-(defun mime-view-x-face-function ()
-  "Function to display X-Face field. You can redefine to customize."
-  ;; 1995/10/12 (c.f. tm-eng:130)
-  ;;	fixed by Eric Ding <ericding@San-Jose.ate.slb.com>
-  (save-restriction
-    (narrow-to-region (point-min) (re-search-forward "^$" nil t))
-    ;; end
-    (goto-char (point-min))
-    (if (re-search-forward "^X-Face:[ \t]*" nil t)
-	(let ((beg (match-end 0))
-	      (end (std11-field-end))
-	      )
-	  (call-process-region beg end "sh" nil 0 nil
-			       "-c" mime-view-x-face-command)
-	  ))))
-
-
-;;; @ miscellaneous
-;;;
-
-(defvar mime-view-uuencode-encoding-name-list '("x-uue" "x-uuencode"))
-
-(defvar mime-raw-buffer-coding-system-alist
-  `((t . ,(mime-charset-to-coding-system default-mime-charset)))
-  "Alist of major-mode vs. corresponding coding-system of `mime-raw-buffer'.")
-
-
-;;; @ buffer setup
-;;;
-
-(defvar mime-view-redisplay nil)
-
-(defun mime-view-setup-buffers (&optional ctl encoding ibuf obuf)
-  (if ibuf
-      (progn
-	(get-buffer ibuf)
-	(set-buffer ibuf)
-	))
-  (or mime-view-redisplay
-      (setq mime-raw-message-info (mime-parse-message ctl encoding))
-      )
-  (let* ((message-info mime-raw-message-info)
-	 (pcl (mime-raw-flatten-message-info message-info))
-	 (the-buf (current-buffer))
-	 (mode major-mode)
-	 )
-    (or obuf
-	(setq obuf (concat "*Preview-" (buffer-name the-buf) "*")))
-    (set-buffer (get-buffer-create obuf))
-    (let ((inhibit-read-only t))
-      ;;(setq buffer-read-only nil)
-      (widen)
-      (erase-buffer)
-      (setq mime-raw-buffer the-buf)
-      (setq mime-preview-original-major-mode mode)
-      (setq major-mode 'mime-view-mode)
-      (setq mode-name "MIME-View")
-      (while pcl
-	(mime-view-display-entity (car pcl) message-info the-buf obuf)
-	(setq pcl (cdr pcl))
-	)
-      (set-buffer-modified-p nil)
-      )
-    (setq buffer-read-only t)
-    (set-buffer the-buf)
-    )
-  (setq mime-preview-buffer obuf)
-  )
-
-(defun mime-view-display-entity (entity message-info ibuf obuf)
-  "Display ENTITY."
-  (let* ((start (mime-entity-point-min entity))
-	 (end (mime-entity-point-max entity))
-	 (media-type (mime-entity-media-type entity))
-	 (media-subtype (mime-entity-media-subtype entity))
-	 (ctype (if media-type
-		    (if media-subtype
-			(format "%s/%s" media-type media-subtype)
-		      (symbol-name media-type)
-		      )))
-	 (params (mime-entity-parameters entity))
-	 (encoding (mime-entity-encoding entity))
-	 (entity-node-id (mime-entity-node-id entity))
-	 end-of-header e nb ne subj)
-    (set-buffer ibuf)
-    (goto-char start)
-    (setq end-of-header (if (re-search-forward "^$" nil t)
-			    (1+ (match-end 0))
-			  end))
-    (if (> end-of-header end)
-	(setq end-of-header end)
-      )
-    (save-restriction
-      (narrow-to-region start end)
-      (setq subj
-	    (eword-decode-string
-	     (mime-raw-get-subject params encoding)))
-      )
-    (set-buffer obuf)
-    (setq nb (point))
-    (narrow-to-region nb nb)
-    (if (mime-view-entity-button-visible-p entity message-info)
-	(mime-view-insert-entity-button entity message-info subj)
-      )
-    (if (mime-view-header-visible-p entity message-info)
-	(save-restriction
-	  (narrow-to-region (point)(point))
-	  (insert-buffer-substring mime-raw-buffer start end-of-header)
-	  (let ((f (cdr (assq mime-preview-original-major-mode
-			      mime-view-content-header-filter-alist))))
-	    (if (functionp f)
-		(funcall f)
-	      (mime-view-default-content-header-filter)
-	      ))
-	  (run-hooks 'mime-view-content-header-filter-hook)
-	  ))
-    (if (and (mime-root-entity-p entity)
-	     (member
-	      ctype mime-view-content-button-visible-ctype-list))
-	(save-excursion
-	  (goto-char (point-max))
-	  (mime-view-insert-entity-button entity message-info subj)
-	  ))
-    (let* ((situation
-	    (ctree-match-calist mime-preview-condition
-				(list* (cons 'type       media-type)
-				       (cons 'subtype    media-subtype)
-				       (cons 'encoding   encoding)
-				       (cons 'major-mode major-mode)
-				       params)))
-	   (body-presentation-method
-	    (cdr (assq 'body-presentation-method situation))))
-      (cond ((eq body-presentation-method 'with-filter)
-	     (let ((body-filter (cdr (assq 'body-filter situation))))
-	       (save-restriction
-		 (narrow-to-region (point-max)(point-max))
-		 (insert-buffer-substring mime-raw-buffer end-of-header end)
-		 (funcall body-filter situation)
-		 )))
-	    ((functionp body-presentation-method)
-	     (funcall body-presentation-method situation)
-	     )
-	    ((and (null entity-node-id)
-		  (null (mime-entity-children message-info)))
-	     (goto-char (point-max))
-	     (mime-view-insert-entity-button entity message-info subj)
-	     ))
-      (when (mime-view-entity-separator-visible-p entity message-info)
-	(goto-char (point-max))
-	(insert "\n"))
-      )
-    (setq ne (point-max))
-    (widen)
-    (put-text-property nb ne 'mime-view-raw-buffer ibuf)
-    (put-text-property nb ne 'mime-view-entity entity)
-    (goto-char ne)
-    ))
-
-(defun mime-raw-get-uu-filename (param &optional encoding)
-  (if (member (or encoding
-		  (cdr (assq 'encoding param))
-		  )
-	      mime-view-uuencode-encoding-name-list)
-      (save-excursion
-	(or (if (re-search-forward "^begin [0-9]+ " nil t)
-		(if (looking-at ".+$")
-		    (buffer-substring (match-beginning 0)(match-end 0))
-		  ))
-	    ""))
-    ))
-
-(defun mime-raw-get-subject (param &optional encoding)
-  (or (std11-find-field-body '("Content-Description" "Subject"))
-      (let (ret)
-	(if (or (and (setq ret (mime/Content-Disposition))
-		     (setq ret (assoc "filename" (cdr ret)))
-		     )
-		(setq ret (assoc "name" param))
-		(setq ret (assoc "x-name" param))
-		)
-	    (std11-strip-quoted-string (cdr ret))
-	  ))
-      (mime-raw-get-uu-filename param encoding)
-      ""))
-
-
-;;; @ MIME viewer mode
-;;;
-
-(defconst mime-view-menu-title "MIME-View")
-(defconst mime-view-menu-list
-  '((up		 "Move to upper entity"    mime-preview-move-to-upper)
-    (previous	 "Move to previous entity" mime-preview-move-to-previous)
-    (next	 "Move to next entity"	   mime-preview-move-to-next)
-    (scroll-down "Scroll-down"             mime-preview-scroll-down-entity)
-    (scroll-up	 "Scroll-up"               mime-preview-scroll-up-entity)
-    (play	 "Play current entity"     mime-preview-play-current-entity)
-    (extract	 "Extract current entity"  mime-preview-extract-current-entity)
-    (print	 "Print current entity"    mime-preview-print-current-entity)
-    (x-face	 "Show X Face"             mime-preview-display-x-face)
-    )
-  "Menu for MIME Viewer")
-
-(cond (running-xemacs
-       (defvar mime-view-xemacs-popup-menu
-	 (cons mime-view-menu-title
-	       (mapcar (function
-			(lambda (item)
-			  (vector (nth 1 item)(nth 2 item) t)
-			  ))
-		       mime-view-menu-list)))
-       (defun mime-view-xemacs-popup-menu (event)
-	 "Popup the menu in the MIME Viewer buffer"
-	 (interactive "e")
-	 (select-window (event-window event))
-	 (set-buffer (event-buffer event))
-	 (popup-menu 'mime-view-xemacs-popup-menu))
-       (defvar mouse-button-2 'button2)
-       )
-      (t
-       (defvar mouse-button-2 [mouse-2])
-       ))
-
-(defun mime-view-define-keymap (&optional default)
-  (let ((mime-view-mode-map (if (keymapp default)
-				(copy-keymap default)
-			      (make-sparse-keymap)
-			      )))
-    (define-key mime-view-mode-map
-      "u"        (function mime-preview-move-to-upper))
-    (define-key mime-view-mode-map
-      "p"        (function mime-preview-move-to-previous))
-    (define-key mime-view-mode-map
-      "n"        (function mime-preview-move-to-next))
-    (define-key mime-view-mode-map
-      "\e\t"     (function mime-preview-move-to-previous))
-    (define-key mime-view-mode-map
-      "\t"       (function mime-preview-move-to-next))
-    (define-key mime-view-mode-map
-      " "        (function mime-preview-scroll-up-entity))
-    (define-key mime-view-mode-map
-      "\M- "     (function mime-preview-scroll-down-entity))
-    (define-key mime-view-mode-map
-      "\177"     (function mime-preview-scroll-down-entity))
-    (define-key mime-view-mode-map
-      "\C-m"     (function mime-preview-next-line-entity))
-    (define-key mime-view-mode-map
-      "\C-\M-m"  (function mime-preview-previous-line-entity))
-    (define-key mime-view-mode-map
-      "v"        (function mime-preview-play-current-entity))
-    (define-key mime-view-mode-map
-      "e"        (function mime-preview-extract-current-entity))
-    (define-key mime-view-mode-map
-      "\C-c\C-p" (function mime-preview-print-current-entity))
-    (define-key mime-view-mode-map
-      "a"        (function mime-preview-follow-current-entity))
-    (define-key mime-view-mode-map
-      "q"        (function mime-preview-quit))
-    (define-key mime-view-mode-map
-      "h"        (function mime-preview-show-summary))
-    (define-key mime-view-mode-map
-      "\C-c\C-x" (function mime-preview-kill-buffer))
-    ;; (define-key mime-view-mode-map
-    ;;   "<"        (function beginning-of-buffer))
-    ;; (define-key mime-view-mode-map
-    ;;   ">"        (function end-of-buffer))
-    (define-key mime-view-mode-map
-      "?"        (function describe-mode))
-    (define-key mime-view-mode-map
-      [tab] (function mime-preview-move-to-next))
-    (define-key mime-view-mode-map
-      [delete] (function mime-preview-scroll-down-entity))
-    (define-key mime-view-mode-map
-      [backspace] (function mime-preview-scroll-down-entity))
-    (if (functionp default)
-	(cond (running-xemacs
-	       (set-keymap-default-binding mime-view-mode-map default)
-	       )
-	      (t
-	       (setq mime-view-mode-map
-		     (append mime-view-mode-map (list (cons t default))))
-	       )))
-    (if mouse-button-2
-	(define-key mime-view-mode-map
-	  mouse-button-2 (function mime-button-dispatcher))
-      )
-    (cond (running-xemacs
-	   (define-key mime-view-mode-map
-	     mouse-button-3 (function mime-view-xemacs-popup-menu))
-	   )
-	  ((>= emacs-major-version 19)
-	   (define-key mime-view-mode-map [menu-bar mime-view]
-	     (cons mime-view-menu-title
-		   (make-sparse-keymap mime-view-menu-title)))
-	   (mapcar (function
-		    (lambda (item)
-		      (define-key mime-view-mode-map
-			(vector 'menu-bar 'mime-view (car item))
-			(cons (nth 1 item)(nth 2 item))
-			)
-		      ))
-		   (reverse mime-view-menu-list)
-		   )
-	   ))
-    (use-local-map mime-view-mode-map)
-    (run-hooks 'mime-view-define-keymap-hook)
-    ))
-
-(defsubst mime-maybe-hide-echo-buffer ()
-  "Clear mime-echo buffer and delete window for it."
-  (let ((buf (get-buffer mime-echo-buffer-name)))
-    (if buf
-	(save-excursion
-	  (set-buffer buf)
-	  (erase-buffer)
-	  (let ((win (get-buffer-window buf)))
-	    (if win
-		(delete-window win)
-	      ))
-	  (bury-buffer buf)
-	  ))))
-
-(defun mime-view-mode (&optional mother ctl encoding ibuf obuf
-				 default-keymap-or-function)
-  "Major mode for viewing MIME message.
-
-Here is a list of the standard keys for mime-view-mode.
-
-key		feature
----		-------
-
-u		Move to upper content
-p or M-TAB	Move to previous content
-n or TAB	Move to next content
-SPC		Scroll up or move to next content
-M-SPC or DEL	Scroll down or move to previous content
-RET		Move to next line
-M-RET		Move to previous line
-v		Decode current content as `play mode'
-e		Decode current content as `extract mode'
-C-c C-p		Decode current content as `print mode'
-a		Followup to current content.
-x		Display X-Face
-q		Quit
-button-2	Move to point under the mouse cursor
-        	and decode current content as `play mode'
-"
-  (interactive)
-  (mime-maybe-hide-echo-buffer)
-  (let ((ret (mime-view-setup-buffers ctl encoding ibuf obuf))
-	(win-conf (current-window-configuration))
-	)
-    (prog1
-	(switch-to-buffer ret)
-      (setq mime-preview-original-window-configuration win-conf)
-      (if mother
-	  (progn
-	    (setq mime-mother-buffer mother)
-	    ))
-      (mime-view-define-keymap default-keymap-or-function)
-      (let ((point
-	     (next-single-property-change (point-min) 'mime-view-entity)))
-	(if point
-	    (goto-char point)
-	  (goto-char (point-min))
-	  (search-forward "\n\n" nil t)
-	  ))
-      (run-hooks 'mime-view-mode-hook)
-      )))
-
-
-;;; @@ playing
-;;;
-
-(autoload 'mime-preview-play-current-entity "mime-play"
-  "Play current entity." t)
-
-(defun mime-preview-extract-current-entity ()
-  "Extract current entity into file (maybe).
-It decodes current entity to call internal or external method as
-\"extract\" mode.  The method is selected from variable
-`mime-acting-condition'."
-  (interactive)
-  (mime-preview-play-current-entity "extract")
-  )
-
-(defun mime-preview-print-current-entity ()
-  "Print current entity (maybe).
-It decodes current entity to call internal or external method as
-\"print\" mode.  The method is selected from variable
-`mime-acting-condition'."
-  (interactive)
-  (mime-preview-play-current-entity "print")
-  )
-
-
-;;; @@ following
-;;;
-
-(defun mime-preview-original-major-mode ()
-  "Return major-mode of original buffer.
-If a current buffer has mime-mother-buffer, return original major-mode
-of the mother-buffer."
-  (if mime-mother-buffer
-      (save-excursion
-	(set-buffer mime-mother-buffer)
-	(mime-preview-original-major-mode)
-	)
-    mime-preview-original-major-mode))
-
-(defun mime-preview-follow-current-entity ()
-  "Write follow message to current entity.
-It calls following-method selected from variable
-`mime-view-following-method-alist'."
-  (interactive)
-  (let ((message-info (get-text-property (point-min) 'mime-view-entity))
-	entity)
-    (while (null (setq entity
-		       (get-text-property (point) 'mime-view-entity)))
-      (backward-char)
-      )
-    (let* ((p-beg
-	    (previous-single-property-change (point) 'mime-view-entity))
-	   p-end
-	   (entity-node-id (mime-entity-node-id entity))
-	   (len (length entity-node-id))
-	   )
-      (cond ((null p-beg)
-	     (setq p-beg
-		   (if (eq (next-single-property-change (point-min)
-							'mime-view-entity)
-			   (point))
-		       (point)
-		     (point-min)))
-	     )
-	    ((eq (next-single-property-change p-beg 'mime-view-entity)
-		 (point))
-	     (setq p-beg (point))
-	     ))
-      (setq p-end (next-single-property-change p-beg 'mime-view-entity))
-      (cond ((null p-end)
-	     (setq p-end (point-max))
-	     )
-	    ((null entity-node-id)
-	     (setq p-end (point-max))
-	     )
-	    (t
-	     (save-excursion
-	       (goto-char p-end)
-	       (catch 'tag
-		 (let (e)
-		   (while (setq e
-				(next-single-property-change
-				 (point) 'mime-view-entity))
-		     (goto-char e)
-		     (let ((rc (mime-entity-node-id
-				(get-text-property (point)
-						   'mime-view-entity))))
-		       (or (equal entity-node-id
-				  (nthcdr (- (length rc) len) rc))
-			   (throw 'tag nil)
-			   ))
-		     (setq p-end e)
-		     ))
-		 (setq p-end (point-max))
-		 ))
-	     ))
-      (let* ((mode (mime-preview-original-major-mode))
-	     (new-name
-	      (format "%s-%s" (buffer-name) (reverse entity-node-id)))
-	     new-buf
-	     (the-buf (current-buffer))
-	     (a-buf mime-raw-buffer)
-	     fields)
-	(save-excursion
-	  (set-buffer (setq new-buf (get-buffer-create new-name)))
-	  (erase-buffer)
-	  (insert-buffer-substring the-buf p-beg p-end)
-	  (goto-char (point-min))
-	  (if (mime-view-header-visible-p entity message-info)
-	      (delete-region (goto-char (point-min))
-			     (if (re-search-forward "^$" nil t)
-				 (match-end 0)
-			       (point-min)))
-	    )
-	  (goto-char (point-min))
-	  (insert "\n")
-	  (goto-char (point-min))
-	  (let ((entity-node-id (mime-entity-node-id entity)) ci str)
-	    (while (progn
-		     (setq
-		      str
-		      (save-excursion
-			(set-buffer a-buf)
-			(setq
-			 ci
-			 (mime-raw-find-entity-from-node-id entity-node-id))
-			(save-restriction
-			  (narrow-to-region
-			   (mime-entity-point-min ci)
-			   (mime-entity-point-max ci)
-			   )
-			  (std11-header-string-except
-			   (concat "^"
-				   (apply (function regexp-or) fields)
-				   ":") ""))))
-		     (if (and
-			  (eq (mime-entity-media-type ci) 'message)
-			  (eq (mime-entity-media-subtype ci) 'rfc822))
-			 nil
-		       (if str
-			   (insert str)
-			 )
-		       entity-node-id))
-	      (setq fields (std11-collect-field-names)
-		    entity-node-id (cdr entity-node-id))
-	      )
-	    )
-	  (let ((rest mime-view-following-required-fields-list))
-	    (while rest
-	      (let ((field-name (car rest)))
-		(or (std11-field-body field-name)
-		    (insert
-		     (format
-		      (concat field-name
-			      ": "
-			      (save-excursion
-				(set-buffer the-buf)
-				(set-buffer mime-mother-buffer)
-				(set-buffer mime-raw-buffer)
-				(std11-field-body field-name)
-				)
-			      "\n")))
-		    ))
-	      (setq rest (cdr rest))
-	      ))
-	  (eword-decode-header)
-	  )
-	(let ((f (cdr (assq mode mime-view-following-method-alist))))
-	  (if (functionp f)
-	      (funcall f new-buf)
-	    (message
-	     (format
-	      "Sorry, following method for %s is not implemented yet."
-	      mode))
-	    ))
-	))))
-
-
-;;; @@ X-Face
-;;;
-
-(defun mime-preview-display-x-face ()
-  (interactive)
-  (save-window-excursion
-    (set-buffer mime-raw-buffer)
-    (mime-view-x-face-function)
-    ))
-
-
-;;; @@ moving
-;;;
-
-(defun mime-preview-move-to-upper ()
-  "Move to upper entity.
-If there is no upper entity, call function `mime-preview-quit'."
-  (interactive)
-  (let (cinfo)
-    (while (null (setq cinfo
-		       (get-text-property (point) 'mime-view-entity)))
-      (backward-char)
-      )
-    (let ((r (mime-raw-find-entity-from-node-id
-	      (cdr (mime-entity-node-id cinfo))
-	      (get-text-property 1 'mime-view-entity)))
-	  point)
-      (catch 'tag
-	(while (setq point (previous-single-property-change
-			    (point) 'mime-view-entity))
-	  (goto-char point)
-	  (if (eq r (get-text-property (point) 'mime-view-entity))
-	      (throw 'tag t)
-	    )
-	  )
-	(mime-preview-quit)
-	))))
-
-(defun mime-preview-move-to-previous ()
-  "Move to previous entity.
-If there is no previous entity, it calls function registered in
-variable `mime-view-over-to-previous-method-alist'."
-  (interactive)
-  (while (null (get-text-property (point) 'mime-view-entity))
-    (backward-char)
-    )
-  (let ((point
-	 (previous-single-property-change (point) 'mime-view-entity)))
-    (if point
-	(goto-char point)
-      (let ((f (assq mime-preview-original-major-mode
-		     mime-view-over-to-previous-method-alist)))
-	(if f
-	    (funcall (cdr f))
-	  ))
-      )))
-
-(defun mime-preview-move-to-next ()
-  "Move to next entity.
-If there is no previous entity, it calls function registered in
-variable `mime-view-over-to-next-method-alist'."
-  (interactive)
-  (let ((point (next-single-property-change (point) 'mime-view-entity)))
-    (if point
-	(goto-char point)
-      (let ((f (assq mime-preview-original-major-mode
-		     mime-view-over-to-next-method-alist)))
-	(if f
-	    (funcall (cdr f))
-	  ))
-      )))
-
-(defun mime-preview-scroll-up-entity (&optional h)
-  "Scroll up current entity.
-If reached to (point-max), it calls function registered in variable
-`mime-view-over-to-next-method-alist'."
-  (interactive)
-  (or h
-      (setq h (1- (window-height)))
-      )
-  (if (= (point) (point-max))
-      (let ((f (assq mime-preview-original-major-mode
-                     mime-view-over-to-next-method-alist)))
-        (if f
-            (funcall (cdr f))
-          ))
-    (let ((point
-	   (or (next-single-property-change (point) 'mime-view-entity)
-	       (point-max))))
-      (forward-line h)
-      (if (> (point) point)
-          (goto-char point)
-        )
-      )))
-
-(defun mime-preview-scroll-down-entity (&optional h)
-  "Scroll down current entity.
-If reached to (point-min), it calls function registered in variable
-`mime-view-over-to-previous-method-alist'."
-  (interactive)
-  (or h
-      (setq h (1- (window-height)))
-      )
-  (if (= (point) (point-min))
-      (let ((f (assq mime-preview-original-major-mode
-                     mime-view-over-to-previous-method-alist)))
-        (if f
-            (funcall (cdr f))
-          ))
-    (let (point)
-      (save-excursion
-	(catch 'tag
-	  (while (> (point) 1)
-	    (if (setq point
-		      (previous-single-property-change (point)
-						       'mime-view-entity))
-		(throw 'tag t)
-	      )
-	    (backward-char)
-	    )
-	  (setq point (point-min))
-	  ))
-      (forward-line (- h))
-      (if (< (point) point)
-          (goto-char point)
-        ))))
-
-(defun mime-preview-next-line-entity ()
-  (interactive)
-  (mime-preview-scroll-up-entity 1)
-  )
-
-(defun mime-preview-previous-line-entity ()
-  (interactive)
-  (mime-preview-scroll-down-entity 1)
-  )
-
-
-;;; @@ quitting
-;;;
-
-(defun mime-preview-quit ()
-  "Quit from MIME-preview buffer.
-It calls function registered in variable
-`mime-preview-quitting-method-alist'."
-  (interactive)
-  (let ((r (assq mime-preview-original-major-mode
-		 mime-preview-quitting-method-alist)))
-    (if r
-	(funcall (cdr r))
-      )))
-
-(defun mime-preview-show-summary ()
-  "Show summary.
-It calls function registered in variable
-`mime-view-show-summary-method'."
-  (interactive)
-  (let ((r (assq mime-preview-original-major-mode
-		 mime-view-show-summary-method)))
-    (if r
-	(funcall (cdr r))
-      )))
-
-(defun mime-preview-kill-buffer ()
-  (interactive)
-  (kill-buffer (current-buffer))
-  )
-
-
-;;; @ end
-;;;
-
-(provide 'mime-view)
-
-(run-hooks 'mime-view-load-hook)
-
-;;; mime-view.el ends here
diff --git a/semi-setup.el b/semi-setup.el
deleted file mode 100644
index f095424..0000000
--- a/semi-setup.el
+++ /dev/null
@@ -1,130 +0,0 @@
-;;; semi-setup.el --- setup file for MIME-View.
-
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
-
-;; This file is part of SEMI (Setting for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime-def)
-(require 'path-util)
-
-
-;; for image/* and X-Face
-(defvar mime-setup-enable-inline-image
-  (and window-system
-       (or running-xemacs
-	   (and (featurep 'mule)(module-installed-p 'bitmap))
-	   ))
-  "*If it is non-nil, semi-setup sets up to use mime-image.")
-
-(if mime-setup-enable-inline-image
-    (call-after-loaded 'mime-view
-		       (function
-			(lambda ()
-			  (require 'mime-image)
-			  )))
-  )
-
-
-(defvar mime-setup-enable-pgp
-  (module-installed-p 'mailcrypt)
-  "*If it is non-nil, semi-setup sets uf to use mime-pgp.")
-
-;; for PGP
-(if mime-setup-enable-pgp
-    (call-after-loaded 'mime-view
-		       (function
-			(lambda ()
-			  (require 'mime-pgp)
-			  )))
-  )
-
-
-;;; @ for mime-edit
-;;;
-
-(defun mime-setup-decode-message-header ()
-  (save-excursion
-    (save-restriction
-      (goto-char (point-min))
-      (narrow-to-region
-       (point-min)
-       (if (re-search-forward
-	    (concat "^" (regexp-quote mail-header-separator) "$")
-	    nil t)
-	   (match-beginning 0)
-	 (point-max)
-	 ))
-      (eword-decode-header)
-      (set-buffer-modified-p nil)
-      )))
-
-(add-hook 'mime-edit-mode-hook 'mime-setup-decode-message-header)
-
-
-;;; @@ variables
-;;;
-
-(defvar mime-setup-use-signature t
-  "If it is not nil, mime-setup sets up to use signature.el.")
-
-(defvar mime-setup-default-signature-key "\C-c\C-s"
-  "*Key to insert signature.")
-
-(defvar mime-setup-signature-key-alist '((mail-mode . "\C-c\C-w"))
-  "Alist of major-mode vs. key to insert signature.")
-
-
-;;; @@ for signature
-;;;
-
-(defun mime-setup-set-signature-key ()
-  (let ((keymap (current-local-map)))
-    (if keymap
-	(let ((key
-	       (or (cdr (assq major-mode mime-setup-signature-key-alist))
-		   mime-setup-default-signature-key)))
-	  (define-key keymap key (function insert-signature))
-	  ))))
-
-(if mime-setup-use-signature
-    (progn
-      (autoload 'insert-signature "signature" "Insert signature" t)
-      (add-hook 'mime-edit-mode-hook 'mime-setup-set-signature-key)
-      (setq gnus-signature-file nil)
-      (setq mail-signature nil)
-      (setq message-signature nil)
-      ))
-
-
-;;; @ for mu-cite
-;;;
-
-(add-hook 'mu-cite/pre-cite-hook 'eword-decode-header)
-
-
-;;; @ end
-;;;
-
-(provide 'semi-setup)
-
-;;; semi-setup.el ends here
diff --git a/signature.el b/signature.el
deleted file mode 100644
index f06f53c..0000000
--- a/signature.el
+++ /dev/null
@@ -1,159 +0,0 @@
-;;; signature.el --- a signature utility for GNU Emacs
-
-;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;         Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Created: 1994/7/11
-;; Version: $Id: signature.el,v 7.16 1997/09/24 23:17:38 shuhei-k Exp $
-;; Keywords: mail, news, signature
-
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'std11)
-
-
-;;; @ valiables
-;;;
-
-(defvar signature-insert-at-eof nil
-  "*If non-nil, insert signature at the end of file.")
-
-(defvar signature-delete-blank-lines-at-eof nil
-  "*If non-nil, signature-insert-at-eof deletes blank lines at the end
-of file.")
-
-(defvar signature-load-hook nil
-  "*List of functions called after signature.el is loaded.")
-
-(defvar signature-separator "-- \n"
-  "*String to separate contents and signature.
-It is inserted when signature is inserted at end of file.")
-
-(defvar signature-file-name "~/.signature"
-  "*Name of file containing the user's signature.")
-
-(defvar signature-file-alist nil
-  "*Alist of the form:
-    (((FIELD . PATTERN) . FILENAME)
-     ...)
-PATTERN is a string or list of string. If PATTERN matches the contents of
-FIELD, the contents of FILENAME is inserted.")
-
-(defvar signature-file-prefix nil
-  "*String containing optional prefix for the signature file names")
-
-(defvar signature-insert-hook nil
-  "*List of functions called before inserting a signature.")
-
-(defvar signature-use-bbdb nil
-  "*If non-nil, Register sigtype to BBDB.")
-
-(autoload 'signature/get-sigtype-from-bbdb "mime-bbdb")
-
-(defun signature/get-sigtype-interactively (&optional default)
-  (read-file-name "Insert your signature: "
-                  (or default (concat signature-file-name "-"))
-                  (or default signature-file-name)
-                  nil))
-
-(defun signature/get-signature-file-name ()
-  (save-excursion
-    (save-restriction
-      (narrow-to-region
-       (goto-char (point-min))
-       (if (re-search-forward
-            (concat "^" (regexp-quote mail-header-separator) "$")
-            nil t)
-           (match-beginning 0)
-         (point-max)
-         ))
-      (catch 'found
-        (let ((alist signature-file-alist) cell field value)
-          (while alist
-            (setq cell  (car alist)
-                  field (std11-field-body (car (car cell)))
-                  value (cdr (car cell)))
-            (cond ((functionp value)
-		   (let ((name (apply value field (cdr cell))))
-		     (if name
-			 (throw 'found
-				(concat signature-file-prefix name))
-		       )))
-		  ((stringp field)
-		   (cond ((consp value)
-			  (while value
-			    (if (string-match (car value) field)
-				(throw 'found
-				       (concat
-					signature-file-prefix (cdr cell)))
-			      (setq value (cdr value))
-			      )))
-			 ((stringp value)
-			  (if (string-match value field)
-			      (throw 'found
-				     (concat
-				      signature-file-prefix (cdr cell)))
-			    )))))
-            (setq alist (cdr alist))
-            ))
-        signature-file-name))))
-
-(defun insert-signature (&optional arg)
-  "Insert the file named by signature-file-name.
-It is inserted at the end of file if signature-insert-at-eof is non-nil,
-and otherwise at the current point.  A prefix argument enables user to
-specify a file named <signature-file-name>-DISTRIBUTION interactively."
-  (interactive "P")
-  (let ((signature-file-name
-         (expand-file-name
-          (or (and signature-use-bbdb
-                   (signature/get-sigtype-from-bbdb arg))
-              (and arg
-                   (signature/get-sigtype-interactively))
-              (signature/get-signature-file-name))
-          )))
-    (or (file-readable-p signature-file-name)
-        (error "Cannot open signature file: %s" signature-file-name))
-    (if signature-insert-at-eof
-        (progn
-          (goto-char (point-max))
-          (or (bolp) (insert "\n"))
-          (if signature-delete-blank-lines-at-eof (delete-blank-lines))
-          ))
-    (run-hooks 'signature-insert-hook)
-    (if (= (point)(point-max))
-	(insert signature-separator)
-      )
-    (insert-file-contents signature-file-name)
-    (force-mode-line-update)
-    signature-file-name))
-
-
-;;; @ end
-;;;
-
-(provide 'signature)
-
-(run-hooks 'signature-load-hook)
-
-;;; signature.el ends here