From c012f1b28d323d9aae9f8dc3056e67c1d6a20e23 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 19 Oct 1998 00:46:24 +0000 Subject: [PATCH] WEMI 1.10.0 - "Shin-Kambara": Sync up with semi-1_10. --- ChangeLog | 36 +++++++++++++++++++++++++++++++++++- NEWS | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ VERSION | 58 +++++++++++++++++++++++++++++----------------------------- mime-edit.el | 4 ++++ mime-play.el | 4 ++-- mime-text.el | 35 ++++++----------------------------- mime-w3.el | 3 ++- semi-def.el | 2 +- 8 files changed, 128 insertions(+), 63 deletions(-) diff --git a/ChangeLog b/ChangeLog index df71b4e..ddac0e0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,37 @@ +1998-10-16 MORIOKA Tomohiko + + * mime-edit.el (mime-edit-decode-buffer): Call + `mule-caesar-region' for text/x-rot13-47-48 entity. + +1998-09-22 Shozo UEHARA + + * mime-play.el (mime-raw-play-entity): Initialize `max-escore' by + 0. + +1998-10-16 MORIOKA Tomohiko + + * NEWS (Changes in SEMI 1.10): New section. + + * NEWS (Changes in SEMI 1.9): New section. + + * NEWS (User-Agent field): New subsection. + +1998-10-16 MORIOKA Tomohiko + + * mime-play.el (mime-view-caesar): Use `mime-insert-text-content' + instead of `mime-text-insert-decoded-body'. + + * mime-w3.el (mime-preview-text/html): Use + `mime-insert-text-content' instead of + `mime-text-insert-decoded-body'. + + * mime-text.el: Abolish function `mime-text-insert-decoded-body'. + (mime-display-text/plain): Use `mime-insert-text-content' instead + of `mime-text-insert-decoded-body'. + (mime-display-text/richtext): Likewise. + (mime-display-text/enriched): Likewise. + + 1998-10-14 Katsumi Yamaoka * WEMI: Version 1.9.1 (Fujikawa) released. @@ -77,7 +111,7 @@ `mime-product-name', `mime-product-version' and `mime-product-code-name'. - * semi-def.el (mime-user-interface-product): New variable; abolish + * semi-def.el (mime-user-interface-product): New constant; abolish `mime-user-interface-version'. 1998-10-04 MORIOKA Tomohiko diff --git a/NEWS b/NEWS index febedc3..50bf1d8 100644 --- a/NEWS +++ b/NEWS @@ -1,6 +1,46 @@ SEMI NEWS --- history of major-changes. Copyright (C) 1998 Free Software Foundation, Inc. +* Changes in SEMI 1.10 + +** Function `mime-text-insert-decoded-body' was abolished + + SEMI 1.9 uses `mime-insert-text-content' of FLIM 1.11 API instead of +`mime-text-insert-decoded-body'. + + Now `mime-view-caesar' does not run `mime-text-decode-hook'. + + +* Changes in SEMI 1.9 + +** User option `mime-encoding-list' + + SEMI 1.9 requires FLIM 1.10 API. In FLIM 1.10 API, variable +`mime-file-encoding-method-alist' was abolished. If you want to use +non-standard Content-Transfer-Encoding to insert a file into sending +message, please edit new user option `mime-encoding-list' instead of +`mime-file-encoding-method-alist'. + + +** Constant `mime-user-interface-product' + + Constant `mime-user-interface-version' was renamed to +`mime-user-interface-product'. Notice that data format is changed +too. + + FLIM 1.10 API provides following macros to access a slot of the new +data format: + + mime-product-name (product) + + mime-product-version (product) + + mime-product-code-name (product) + +Please use them to get elements of the constant +`mime-user-interface-product'. + + * Changes in SEMI 1.8 ** Don't use "file" command to detect content of entity @@ -39,6 +79,15 @@ value were ignored. On the other hand, `request-partial-message-method' is required to return structure of message at current summary line. Format of it is mime-entity. + +** User-Agent field + + MIME-Edit inserts User-Agent field instaed of X-Emacs field if +`mime-edit-insert-user-agent-field' is not nil. Contents of +User-Agent is specified by mime-edit-user-agent-value'. + + X-Emacs field related features were abolished. + * Changes in SEMI 1.7 diff --git a/VERSION b/VERSION index 4d0280b..09b16cd 100644 --- a/VERSION +++ b/VERSION @@ -67,7 +67,7 @@ 1.8.6 Fukuoka $(BJ!2,(B 1.9.0 Isurugi $(B@PF0(B 1.9.1 Kurikara $(B6fMx2@Me(B ------ Tsubata $(BDEH((B +1.10.0 Tsubata $(BDEH((B ----- Morimoto $(B?9K\(B ------- Higashi-Kanazawa $(BEl6bBt(B ------- Kanazawa $(B6bBt(B ; <=> $(BKLN&E4F;(B $(BKLE46bBt(B @@ -128,46 +128,46 @@ 1.8.6 Yoshiwara $(B5H86(B ; = $(B3YFnE4F;(B 1.9.0 Fuji $(BIY;N(B ; = JR $(B?H1d@~(B 1.9.1 Fujikawa $(BIY;N@n(B ------ Shin-Kambara $(B?73w86(B ------ Kambara $(B3w86(B ------ Yui $(BM3Hf(B ------ Okitsu $(B6=DE(B ------ Shimizu $(B@6?e(B ------ Kusanagi $(BApFe(B ------ Shizuoka $(B@E2,(B ------ Abekawa $(B0BG\@n(B ------ Mochimune $(BMQ=!(B ------ Yaizu $(B>FDE(B ------ Nishi-Yaizu $(B@>>FDE(B ------ Fijieda $(BF#;^(B ------ Rokug-Dò-A $(BO;9g(B ------ Shimada $(BEgED(B ------ Kanaya $(B6bC+(B ; = $(BBg0f@nE4F;(B ------ Kikugawa $(B5F@n(B ------ Kakegawa $(B3]@n(B ; = $(BE7N5IML>8PE4F;(B +1.10.0 Shin-Kambara $(B?73w86(B +------ Kambara $(B3w86(B +------ Yui $(BM3Hf(B +------ Okitsu $(B6=DE(B +------ Shimizu $(B@6?e(B +------ Kusanagi $(BApFe(B +------ Shizuoka $(B@E2,(B +------ Abekawa $(B0BG\@n(B +------ Mochimune $(BMQ=!(B +------ Yaizu $(B>FDE(B +------ Nishi-Yaizu $(B@>>FDE(B +------ Fijieda $(BF#;^(B +------ Rokug-Dò-A $(BO;9g(B +------ Shimada $(BEgED(B +------ Kanaya $(B6bC+(B ; = $(BBg0f@nE4F;(B +------ Kikugawa $(B5F@n(B +------ Kakegawa $(B3]@n(B ; = $(BE7N5IML>8PE4F;(B : : : ------ Kanayama $(B6b;3(B ; =$(B!J(BJR $(BCf1{K\@~!K(B ------ Ot-Dòbashi-A $(BHxF,66(B ------ Nagoya $(BL>8E20(B ; = JR $(B4X@>K\@~!J!&Cf1{K\@~!K(B +------ Kanayama $(B6b;3(B ; =$(B!J(BJR $(BCf1{K\@~!K(B +------ Ot-Dòbashi-A $(BHxF,66(B +------ Nagoya $(BL>8E20(B ; = JR $(B4X@>K\@~!J!&Cf1{K\@~!K(B : : : ------ Gifu $(B4tIl(B ; = JR $(B9b;3K\@~(B +------ Gifu $(B4tIl(B ; = JR $(B9b;3K\@~(B : : : ------ Samegai $(B@C%v0f(B +------ Samegai $(B@C%v0f(B ;;------------------------------------------------------------------------- ;; West Japan Railway $(B@>F|K\N95RE4F;(B http://www.westjr.co.jp/ ;;------------------------------------------------------------------------- ------ Maibara $(BJF86(B ; = JR $(BKLN&K\@~(B +------ Maibara $(BJF86(B ; = JR $(BKLN&K\@~(B : : : ------ Kusatsu $(BApDE(B ; = JR $(BApDE@~(B +------ Kusatsu $(BApDE(B ; = JR $(BApDE@~(B : : : ------ Yamashina $(B;32J(B ; = JR $(B8P@>@~(B ------ Ky-Dòto-A $(B5~ET(B ; = JR $(BF`NI@~!&;31"K\@~(B +------ Yamashina $(B;32J(B ; = JR $(B8P@>@~(B +------ Ky-Dòto-A $(B5~ET(B ; = JR $(BF`NI@~!&;31"K\@~(B ; <=> $(B6aE4(B $(B5~ET@~!"5~ET;T8rDL6I(B $(B1(4]@~(B : : : ------ -DÒsaka-A $(BBg:e(B ; = JR $(BBg:e4D>u@~(B <=> JR $(BEl@>@~(B $(BKL?7CO(B +------ -DÒsaka-A $(BBg:e(B ; = JR $(BBg:e4D>u@~(B <=> JR $(BEl@>@~(B $(BKL?7CO(B ; <=> $(BBg:e;T8rDL6I!":e?@!":e5^(B $(BG_ED(B : : : ------ K-Dòbe-A $(B?@8M(B ; = JR $(B;3M[K\@~(B +------ K-Dòbe-A $(B?@8M(B ; = JR $(B;3M[K\@~(B [REMI version names] diff --git a/mime-edit.el b/mime-edit.el index eab91e7..ff83978 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -2689,6 +2689,10 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (match-end 0) (point-min) ))) + (if (and (eq type 'text) + (eq stype 'x-rot13-47-48)) + (mule-caesar-region he (point-max)) + ) (if (= (point-min) 1) (progn (goto-char he) diff --git a/mime-play.el b/mime-play.el index 2e921fb..11fc355 100644 --- a/mime-play.el +++ b/mime-play.el @@ -229,7 +229,7 @@ specified, play as it. Default MODE is \"play\"." (if (cdr ret) (let ((rest ret) (max-score 0) - max-escore + (max-escore 0) max-examples max-situations) (while rest @@ -705,7 +705,7 @@ It is registered to variable `mime-preview-quitting-method-alist'." ) (setq buffer-read-only nil) (erase-buffer) - (mime-text-insert-decoded-body entity) + (mime-insert-text-content entity) (mule-caesar-region (point-min) (point-max)) (set-buffer-modified-p nil) (set-buffer mother) diff --git a/mime-text.el b/mime-text.el index e107222..37ba1c6 100644 --- a/mime-text.el +++ b/mime-text.el @@ -28,39 +28,14 @@ (autoload 'widget-convert-text "wid-edit") -;;; @ code conversion -;;; - -(defun mime-text-insert-decoded-body (entity) - "Insert text body of ENTITY in SITUATION. -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." - (let ((str (mime-entity-content entity))) - (insert - (if (and (mime-entity-cooked-p entity) - (member (mime-entity-encoding entity) - '(nil "7bit" "8bit" "binary"))) - str - (decode-mime-charset-string str - (or (mime-content-type-parameter - (mime-entity-content-type entity) - "charset") - default-mime-charset) - 'CRLF) - ))) - (run-hooks 'mime-text-decode-hook) - ) - - ;;; @ content filters for mime-text ;;; (defun mime-display-text/plain (entity situation) (save-restriction (narrow-to-region (point-max)(point-max)) - (mime-text-insert-decoded-body entity) + (mime-insert-text-content entity) + (run-hooks 'mime-text-decode-hook) (goto-char (point-max)) (if (not (eq (char-after (1- (point))) ?\n)) (insert "\n") @@ -72,7 +47,8 @@ SITUATION. It must be symbol." (defun mime-display-text/richtext (entity situation) (save-restriction (narrow-to-region (point-max)(point-max)) - (mime-text-insert-decoded-body entity) + (mime-insert-text-content entity) + (run-hooks 'mime-text-decode-hook) (let ((beg (point-min))) (remove-text-properties beg (point-max) '(face nil)) (richtext-decode beg (point-max)) @@ -81,7 +57,8 @@ SITUATION. It must be symbol." (defun mime-display-text/enriched (entity situation) (save-restriction (narrow-to-region (point-max)(point-max)) - (mime-text-insert-decoded-body entity) + (mime-insert-text-content entity) + (run-hooks 'mime-text-decode-hook) (let ((beg (point-min))) (remove-text-properties beg (point-max) '(face nil)) (enriched-decode beg (point-max)) diff --git a/mime-w3.el b/mime-w3.el index fec612c..d9c1948 100644 --- a/mime-w3.el +++ b/mime-w3.el @@ -51,7 +51,8 @@ (mime-save-background-color (save-restriction (narrow-to-region p p) - (mime-text-insert-decoded-body entity) + (mime-insert-text-content entity) + (run-hooks 'mime-text-decode-hook) (w3-region p (point-max)) (mime-put-keymap-region p (point-max) w3-mode-map) )))) diff --git a/semi-def.el b/semi-def.el index aefe191..48637c3 100644 --- a/semi-def.el +++ b/semi-def.el @@ -30,7 +30,7 @@ (require 'custom) -(defconst mime-user-interface-product '["WEMI" (1 9 1) "Fujikawa"] +(defconst mime-user-interface-product '["WEMI" (1 10 0) "Shin-Kambara"] "Implementation name, version name and numbers of MIME-kernel package.") (autoload 'mule-caesar-region "mule-caesar" -- 1.7.10.4