\e$B>K;RBN\e(B AKEMI 1.12.1
-\e$B?e>=BN\e(B
+\e$B?e>=BN\e(B AKEMI 1.13.1
\e$BA04cK<\e(B
\e$B3QKl\e(B
\e$BFz:L\e(B
+1999-02-18 Tanaka Akira <akr@jaist.ac.jp>
+
+ * Sync up with semi-1_13_2.
+
+ * semi-def.el (mime-user-interface-product): Bump up to
+ AKEMI 1.13.1.
+
1999-02-17 Tanaka Akira <akr@jaist.ac.jp>
* mime-edit.el (mime-edit-define-charset): Check `mime-charset-comment'
* mime-view.el (mime-display-text/x-vcard): New function.
(mime-preview-condition): Set up for 'mime-preview-text/x-vcard.
+\f
+1999-01-27 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI: Version 1.13.2 (Mikawa) released.
+
+1999-01-26 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * README.en: Notice that 1.12.5 or later of FLIM is required.
+
+1999-01-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-preview-play-current-entity): Add autoload
+ cookie.
+ (mime-play-entity): Likewise.
+
+ * mime-view.el (mime-display-message): Add autoload cookie; add
+ DOC-string.
+ (mime-view-buffer): Add autoload cookie.
+
+1999-01-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-reduce-acting-situation-examples): New
+ implementation.
+
+1999-01-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-view-caesar): Select window which displays
+ current-buffer if it is not selected <to fix problem with mouse
+ operations>.
+
+1999-01-26 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * mime-edit.el (mime-edit-decode-single-part-in-buffer): Limit the
+ search bound for the end of "Content-Transfer-Encoding" field.
+
+1999-01-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-view-caesar): New implementation.
+
+1999-01-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-view-caesar): Don't expect called in
+ raw-buffer; use `mime-insert-entity'.
+
+1999-01-25 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-w3.el (mime-preview-text/html): Display err if error occurs
+ in `w3-region'.
+
+ * mime-w3.el (mime-preview-text/html): Guard from error of
+ `w3-region'.
+
+\f
+1999-01-24 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI: Version 1.13.1 (Kaga-Kasama) released.
+
+1999-01-24 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TODO (Don't expect raw-buffer): New item.
+ (lazy generating of situations from mime-entity information): New
+ item.
+
+ * TODO (Don't use filter-model): finished.
+
+ * TODO (multipart/related support): virtually finished.
+
+1999-01-24 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * Delete README.ja until it is fixed.
+
+ * mime-w3.el (url-cid): Use `mime-insert-entity-content'.
+
+ * README.ja, README.en (Required environment): Require FLIM
+ 1.12.4.
+
+ * mime-w3.el (mime-w3-message-structure): New variable.
+ (mime-preview-text/html): Set up `mime-w3-message-structure'.
+ (url-cid): New function; set up as registered-protocol of url.
+
+1999-01-23 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * README.ja: Modify title.
+
+ * README.ja: Add notice about translation.
+
+ * README.ja, README.en (Required environment): Require FLIM
+ 1.12.3; delete description about enriched.el because anything
+ older than Emacs 19.28 are not supported.
+
+ * mime-pgp.el (mime-view-application/pgp): Don't expect called in
+ raw-buffer; use `mime-insert-entity'.
+
+ * mime-play.el (mime-view-message/rfc822): Use
+ `mime-insert-entity'.
+
+1999-01-22 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * NEWS (Function `mime-play-entity'): Sync with latest
+ specification.
+
+ * mime-pgp.el (mime-verify-multipart/signed): Modify for interface
+ change of `mime-play-entity'.
+
+ * mime-play.el (mime-preview-play-current-entity): Modify for
+ interface change of `mime-play-entity'.
+ (mime-play-entity): Change interface; abolish optional arguments
+ `mode' and `ignore-example'.
+ (mime-detect-content): Modify for interface change of
+ `mime-play-entity'.
+
+ * mime-view.el (mime-entity-situation): Add new optional argument
+ `situation'; it is preferred to attributes of entity.
+
+1999-01-22 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-view.el (mime-view-version): Don't use `eval-when-compile'
+ to avoid to break product-code-name.
+
+ * mime-edit.el (mime-edit-version): Don't use `eval-when-compile'
+ to avoid to break product-code-name.
+
+\f
+1999-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI: Version 1.13.0 (Matt\e-Dò)\e-A released.
+
+1999-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-view-message/rfc822): Don't expect called in
+ raw-buffer.
+
+1999-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * NEWS (Function `mime-play-entity'): Add description about
+ interface change of `mime-play-entity'.
+
+ * mime-play.el (mime-play-entity): Change interface.
+
+1999-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * NEWS (Changes in SEMI 1.13): New section.
+
+ * NEWS (Changes in SEMI 1.12): New section.
+
+1999-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-pgp.el (mime-view-application/pgp): Don't expect called in
+ raw-buffer.
+ (mime-verify-application/pgp-signature): Likewise.
+
+ * mime-play.el: Abolish variable
+ `mime-preview-after-decoded-position'.
+ (mime-preview-play-current-entity): Use `mime-play-entity' simply;
+ don't switch to raw-buffer.
+ (mime-play-entity): renamed from `mime-raw-play-entity'; don't
+ expect called in raw-buffer.
+ (mime-activate-mailcap-method): Don't expect called in raw-buffer.
+ (mime-show-echo-buffer): Permit to run in preview-buffer.
+
+\f
+1999-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI: Version 1.12.1 ([JR] Nonoichi) released.
+
+ * mime-play.el (mime-detect-content): Use `mime-entity-content'
+ not to refer to buffer directly.
+
1999-01-15 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* mime-view.el: Must require `emu'.
\f
1998-07-08 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * REMI: Version 1.8.3 (Ecch\e.D\8eþ-Nakagawa) released.
+ * REMI: Version 1.8.3 (Ecch\e-Dþ-Nakagawa)\e-A released.
* mime-play.el (mime-delq-null-situation): Add new optional
argument `ignored-value'.
\f
1998-07-08 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * REMI: Version 1.8.2 (N\8eòmachi) released.
+ * REMI: Version 1.8.2 (N\e-Dòmachi)\e-A released.
1998-07-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
\f
1998-06-28 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * REMI: Version 1.8.0 (Ecch\8eþ-Kokubu) released.
+ * REMI: Version 1.8.0 (Ecch\e-Dþ-Kokubu)\e-A released.
1998-06-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
\f
1998-06-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.5.0 (Nishi-Ny\8eþzen) released.
+ * SEMI: Version 1.5.0 (Nishi-Ny\e-Dþzen)\e-A released.
* README.en (Required environment): Modify for FLIM 1.3.0.
\f
1998-06-01 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.4.6 (Ny\8eþzen) released.
+ * SEMI: Version 1.4.6 (Ny\e-Dþzen)\e-A released.
1998-05-28 MORIOKA Tomohiko <morioka@jaist.ac.jp>
\f
1998-05-15 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.4.4 (Ecch\8eþ-Miyazaki) released.
+ * SEMI: Version 1.4.4 (Ecch\e-Dþ-Miyazaki)\e-A released.
* mime-play.el (mime-mailcap-method-filename-alist): New variable.
(mime-mailcap-method-sentinel): New function.
\f
1998-05-06 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.4.1 (\8eÒmi) released.
+ * SEMI: Version 1.4.1 (\e-DÒmi)\e-A released.
* README.en (Required environment): Modify for FLIM 1.2.0.
\f
1998-04-25 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.3.2 (N\8eò) was released.
+ * SEMI: Version 1.3.2 (N\e-Dò)\e-A was released.
* mime-edit.el (mime-edit-mode-entity-prefix): New variable.
(mime-edit-mode-entity-map): New variable.
\f
1998-03-13 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.0.2 (Nonoichi-K\8eòdaimae) was released.
+ * SEMI: Version 1.0.2 (Nonoichi-K\e-Dòdaimae)\e-A was released.
1998-03-12 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* mime-file.el: Rename `mime-article/extract-file' ->
`mime-extract-current-entity'.
-1998-03-03 Fran
\e.A
\8eçois Pinard <pinard@iro.umontreal.ca>
+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
\f
1998-02-25 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.0.0 (Nukaj\e.D\8eþtaku-mae) was released.
+ * SEMI: Version 1.0.0 (Nukaj\e-Dþtaku-mae)\e-A was released.
* SEMI-ELS: Remove mime-tar.el.
\f
1997-11-16 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 0.116 (D\8eòh\8eòji) was released.
+ * SEMI: Version 0.116 (D\e-Dòhòji)\e-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
\e.A
\8eçois Pinard <pinard@iro.umontreal.ca>
+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])
#
PACKAGE = semi
-API = 1.12
-RELEASE = 0
+API = 1.13
+RELEASE = 2
TAR = tar
RM = /bin/rm -f
$(RM) /tmp/$(PACKAGE)-$(VERSION)/ftp.in
cd /tmp; $(TAR) cvzf $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
cd /tmp; $(RM) -r $(PACKAGE)-$(VERSION)
- sed "s/VERSION/$(VERSION)/" < ftp.in | sed "s/API/$(API)/" > ftp
+ sed "s/VERSION/$(VERSION)/" < ftp.in | sed "s/API/$(API)/" \
+ | sed "s/PACKAGE/$(PACKAGE)/" > ftp
release:
-$(RM) $(ARC_DIR)/$(PACKAGE)-$(VERSION).tar.gz
SEMI NEWS --- history of major-changes.
-Copyright (C) 1998 Free Software Foundation, Inc.
+Copyright (C) 1998,1999 Free Software Foundation, Inc.
+* Changes in SEMI 1.13
+
+** Function `mime-play-entity'
+
+Function `mime-play-entity' was renamed from `mime-raw-play-entity'
+and changed interface.
+
+Current interface is:
+
+ mime-play-entity (entity &optional situation ignored-method)
+
+Please use `situation' if you would like to specify `mode' and
+`ignore-examples'.
+
+
+** Now acting-method must not expect to run in raw-buffer
+
+Function `mime-play-entity' was changed to permit to run in any buffer
+(may be called in preview-buffer). So each acting-method is called in
+any buffer.
+
+
+\f
+* Changes in SEMI 1.12
+
+There are no user-visible changes.
+
+** New function `eliminate-top-spaces'
+
+Now mime-edit has it.
+
+\f
* Changes in SEMI 1.11
** New function `mime-edit-decode-message-in-buffer'
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.
- SEMI requires APEL (9.11 or later) and FLIM (1.12.0 or later)
+ SEMI requires APEL (9.11 or later) and FLIM (1.12.5 or later)
package. Please install them before installing it. APEL package is
available at:
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
============
+++ /dev/null
-[SEMI \e$B$N3K%Q%C%1!<%8$N\e(B README (\e$BF|K\8lHG\e(B)]
-
-SEMI \e$B$H$O!)\e(B
-============
-
- SEMI \e$B$O\e(B GNU Emacs \e$B$K\e(B MIME \e$B5!G=$rDs6!$9$k%i%$%V%i%j!<$G$9!#\e(BMIME \e$B$O%a%C\e(B
- \e$B%;!<%8$K\e(B (ASCII) plain text \e$B0J30$NFbMF$d%X%C%@!<$r4^$a$i$l$k$h$&$K$9\e(B
- \e$B$k$?$a$KDs0F$5$l$F$$$k\e(B internet standard \e$B$G$9!#\e(B
-
- RFC 2045 : Internet Message Bodies
- RFC 2046 : Media Types
- RFC 2047 : Message Header Extensions
- RFC 2048 : MIME Registration Procedures
- RFC 2049 : MIME Conformance
-
- SEMI \e$B$O0J2<$N5!G=$,$"$j$^$9!#\e(B
-
- - MIME \e$B%a%C%;!<%81\Mw\e(B (mime-view-mode) (RFC 2045 .. 2049)
- - MIME \e$B%a%C%;!<%8:n@.\e(B (mime-edit-mode) (RFC 2045 .. 2049)
-
- MIME \e$B%a%C%;!<%81\Mw$H:n@.$O0J2<$N5!G=$bDs6!$7$F$$$^$9\e(B:
-
- - Content-Disposition \e$B%U%#!<%k%I$K$h$k%U%!%$%kL>$N07$$\e(B (RFC
- - 1806)
- - PGP/MIME \e$B0BA4$J\e(B Multipart (RFC 2015)
- - application/pgp (draft-kazu-pgp-mime-00.txt; obsolete)
- - text/richtext (RFC 1521; obsolete; \e$B1\Mw$N$_\e(B)
- - text/enriched (RFC 1896)
- - mailcap \e$B$K$h$k30ItJ}K!@_Dj\e(B (RFC 1524)
-
- \e$B$3$N%Q%C%1!<%8$O\e(B MUA \e$B$N$?$a$N\e(B MIME \e$B3HD%$r4^$s$G$$$J$$$3$H$KCm0U$7$F\e(B
- \e$B$/$@$5$$!#$=$l$i$OJL$N%Q%C%1!<%8$H$7$F%j%j!<%9$5$l$^$9!#\e(B
-
-
-\e$BI,MW$J4D6-\e(B
-==========
-
- SEMI \e$B$O\e(B mule \e$B5!G=$D$-$N\e(B XEmacs 20.2 \e$B0J9_$H\e(B Emacs 20 \e$B$r%5%]!<%H$7$^$9!#\e(B
-
- SEMI \e$B$O\e(B Emacs 19.28 \e$B$d\e(B XEmacs 19.14 \e$B0JA0$O%5%]!<%H$7$^$;$s!#\e(BSEMI \e$B$O\e(B
- Emacs 19.29 \e$B$+$i\e(B Emacs 19.34\e$B!"\e(BXEmacs 19.15 \e$B$+$i\e(B mule \e$B5!G=$N$J$$\e(B
- XEmacs 20.2 \e$B$^$G$O%5%]!<%H$7$^$;$s$,!"\e(BSEMI \e$B$O$=$l$i$GF0:n$9$k$+$b$7\e(B
- \e$B$l$^$;$s!#\e(B
-
- SEMI \e$B$O\e(B APEL (9.11 \e$B0J9_\e(B) \e$B$H\e(B FLIM (1.12.0 \e$B0J9_\e(B) \e$B$rI,MW$H$7$^$9!#\e(BSEMI
- \e$B$r%$%s%9%H!<%k$9$kA0$K$^$:$=$l$i$r%$%s%9%H!<%k$7$F$/$@$5$$!#\e(BAPEL \e$B%Q%C\e(B
- \e$B%1!<%8$O0J2<$N$H$3$m$G<hF@2DG=$G$9\e(B:
-
- ftp://ftp.jaist.ac.jp/pub/GNU/elisp/apel/
-
- FLIM \e$B%Q%C%1!<%8$O0J2<$N$H$3$m$G<hF@2DG=$G$9!#\e(B
-
- ftp://ftp.jaist.ac.jp/pub/GNU/elisp/flim/
-
- PGP/MIME \e$B$H\e(B application/pgp \e$B$O\e(B mailcrypt \e$B$+\e(B tiny-pgp \e$B%Q%C%1!<%8$rI,\e(B
- \e$BMW$H$7$^$9!#\e(B
-
- \e$B%Q%C%1!<%8\e(B enriched.el \e$B$O\e(B text/enriched \e$B$r:n@.$9$k$?$a$KI,MW$G$9$N$G!"\e(B
- Emacs 19.28 \e$B0JA0\e(B (\e$B8x<0HG$N\e(B MULE 2.3 \e$B$r4^$`\e(B) \e$B$G$O!"\e(Btext/enriched \e$B$N\e(B
- WYSIWYG \e$B:n@.$O;HMQ$G$-$^$;$s!#\e(B
-
-\e$B%$%s%9%H!<%k\e(B
-============
-
-(a) \e$BE83+$7$?>l=j$G<B9T\e(B
-
- \e$BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$/$J$$$J$i!"0J2<$N$3$H$@$1$r$d$C\e(B
- \e$B$F$/$@$5$$\e(B:
-
- % make
-
- emacs \e$B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"\e(B
-
- % make EMACS=xemacs
-
- `EMACS=...' \e$B$,>JN,$5$l$k$H!"\e(BEmacs=emacs \e$B$,;H$o$l$^$9!#\e(B
-
-(b) make install
-
- \e$BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$$$J$i!"0J2<$N$3$H$r$7$F$/$@$5$$\e(B:
-
- % make install
-
- emacs \e$B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"\e(B
-
- % make install EMACS=xemacs
-
- `EMACS=...' \e$B$,>JN,$5$l$k$H!"\e(BEmacs=emacs \e$B$,;H$o$l$^$9!#\e(B
-
- Emacs Lisp \e$B%W%m%0%i%`$H%7%'%k%9%/%j%W%H$N$?$a$N%G%#%l%/%H%j!<LZ$N@\\e(B
- \e$BF,<-\e(B (prefix) \e$B$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"\e(B
-
- % make install PREFIX=~/
-
- `PREFIX=...' \e$B$,>JN,$5$l$k$H!";XDj$5$l$?\e(B emacs \e$B%3%^%s%I$N%G%#%l%/%H%j!<\e(B
- \e$BLZ$N@\F,<-$,;HMQ$5$l$^$9\e(B (\e$B$*$=$i$/\e(B /usr/local \e$B$G$9\e(B)\e$B!#\e(B
-
- \e$BNc$($P!"\e(BPREFIX=/usr/local \e$B$H\e(B Emacs 19.34 \e$B$,;XDj$5$l$l$P!"0J2<$N%G%#\e(B
- \e$B%l%/%H%j!<LZ$,:n@.$5$l$^$9!#\e(B
-
- /usr/local/share/emacs/20.2/site-lisp/ --- emu
- /usr/local/share/emacs/site-lisp/apel/ --- APEL
- /usr/local/share/emacs/site-lisp/flim/ --- FLIM
- /usr/local/share/emacs/site-lisp/semi/ --- SEMI
-
- site-lisp \e$B%G%#%l%/%H%j!<$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"\e(B:
-
- % make install LISPDIR=~/share/emacs/lisp
-
- `LISPDIR=...' \e$B$,>JN,$5$l$k$H!";XDj$5$l$?\e(B emacs \e$B$N%3%^%s%I$N\e(B
- site-lisp \e$B%G%#%l%/%H%j!<$,;H$o$l$^$9\e(B (\e$B$*$=$i$/\e(B
- /usr/local/share/emacs/site-lisp \e$B$+\e(B /usr/local/lib/xemacs/site-lisp)
- \e$B$G$9!#\e(B
-
- emu \e$B%b%8%e!<%k\e(B (APEL \e$B%Q%C%1!<%8$KF~$C$F$$$^$9\e(B) \e$B$,I8=`$G$J$$%G%#%l%/\e(B
- \e$B%H%j!<$K%$%s%9%H!<%k$5$l$F$$$k>l9g$O!"$=$l$i$N$"$k>l=j$r;XDj$9$kI,MW\e(B
- \e$B$,$"$j$^$9!#Nc$($P!"\e(B:
-
- % make install VERSION_SPECIFIC_LISPDIR=~/elisp
-
-(c) XEmacs \e$B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k\e(B
-
- XEmacs \e$B$N%Q%C%1!<%8%G%#%l%/%H%j!<$K%$%s%9%H!<%k$9$k>l9g$O!"0J2<$N$3\e(B
- \e$B$H$r$7$F$/$@$5$$\e(B:
-
- % make install-package
-
- emacs \e$B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"\e(B
-
- % make install-package XEMACS=xemacs-21
-
- `XEMACS=...' \e$B$,>JN,$5$l$k$H!"\e(BXEMACS=xemacs \e$B$,;HMQ$5$l$^$9!#\e(B
-
- \e$B%Q%C%1!<%8$N%G%#%l%/%H%j!<$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P\e(B:
-
- % make install PACKAGEDIR=~/.xemacs
-
- `PACKAGEDIR=...' \e$B$,>JN,$5$l$k$H!"B8:_$9$k%Q%C%1!<%8%G%#%l%/%H%j!<$N\e(B
- \e$B:G=i$N$b$N$,;H$o$l$^$9!#\e(B
-
- XEmacs \e$B$N%Q%C%1!<%8%7%9%F%`$O\e(B XEmacs 21.0 \e$B$+$=$l0J9_$rMW5a$9$k$3$H$K\e(B
- \e$BCm0U$7$F$/$@$5$$!#\e(B
-
-(a,b,c)
-
- \e$BB>$N>JN,2DG=$J@_Dj$r%U%!%$%k\e(B ${archive}/SEMI-CFG \e$B$rJT=8$9$k$3$H$G;X\e(B
- \e$BDj$G$-$^$9!#\e(B${archive}/README.ja \e$B$H\e(B ${archive}/SEMI/CFG \e$B$N%3%a%s%H$r\e(B
- \e$BFI$s$G$/$@$5$$!#\e(B
-
-\e$B=i4|2=\e(B
-==============
-
-(a) load-path
-
- Emacs \e$B$+\e(B Mule \e$B$r;H$C$F$$$k$J$i!"\e(BFLIM \e$B$N%G%#%l%/%H%j!<$r\e(B
- load-path \e$B$KDI2C$7$F$/$@$5$$!#=i4|@_Dj$G%$%s%9%H!<%k$7$?$J$i!"<!$N$h\e(B
- \e$B$&$K\e(B subdirs.el \e$B$r=q$/$3$H$,$G$-$^$9!#Nc\e(B:
-
- --------------------------------------------------------------------
- (normal-top-level-add-to-load-path
- '("apel" "flim" "semi"))
- --------------------------------------------------------------------
-
- XEmacs \e$B$r;H$C$F$$$k$J$i!"\e(Bload-path \e$B$r@_Dj$9$kI,MW$O$"$j$^$;$s!#\e(B
-
-(b) mime-setup
-
- \e$B0J2<$N$b$N$r\e(B ~/.emacs \e$B$KF~$l$F$/$@$5$$!#\e(B
-
- (load "mime-setup")
-
-
-\e$B@bL@J8=q\e(B
-=============
-
- \e$B=i$a$K!"\e(B${archive}/README.en \e$B$rFI$s$G$/$@$5$$!#\e(B
-
- RFC 822, 1524, 1806, 1847, 1896, 2015, 2045, 2046, 2047, 2048, 2049
- \e$B$O\e(B anonymous ftp \e$B$G0J2<$N$H$3$m$+$i<hF@2DG=$G$9!#\e(B
-
- ftp://ftp.merit.edu/internet/documents/rfc/
-
-
-\e$B%a!<%j%s%0%j%9%H\e(B
-===========
-
- \e$B%P%0Js9p$d2~A1$NDs0F$r=q$$$?$H$-$O!"@'Hs\e(B tm \e$B%a!<%j%s%0%j%9%H$KAw$C$F\e(B
- \e$B$/$@$5$$\e(B:
-
- bug-tm-en@chamonix.jaist.ac.jp (\e$B1Q8l\e(B)
- bug-tm-ja@chamonix.jaist.ac.jp (\e$BF|K\8l\e(B)
-
- tm ML \e$B$rDL$7$F!"\e(BSEMI\e$B$N%P%0$rJs9p$7$?$j!"\e(BSEMI \e$B$N:G?7$N%j%j!<%9$r<hF@\e(B
- \e$B$7$?$j!"\e(BSEMI \e$B$N>-Mh$N3HD%$N5DO@$r$7$?$j$9$k$3$H$,$G$-$^$9!#\e(Btm ML \e$B$K\e(B
- \e$B;22C$9$k$K$O!"6u$NEE;R%a!<%k$r\e(B
-
- tm-en-help@chamonix.jaist.ac.jp (\e$B1Q8l\e(B)
- tm-ja-help@chamonix.jaist.ac.jp (\e$BF|K\8l\e(B)
-
- \e$B$KAw$C$F$/$@$5$$!#\e(B
-
- morioka@jaist.ac.jp \e$B$N$h$&$J!":n<T$KD>@\%a!<%k$rAw$i$J$$$h$&$KCm0U$7\e(B
- \e$B$F$/$@$5$$!#$=$l$O!"H/@8$7$?LdBj$OB>$N4D6-$G$b5/$3$C$F$$$k$O$:$@$+$i\e(B
- \e$B$G$9\e(B (\e$B$b$7$=$&$G$J$1$l$P!"$=$l$O@_Dj$NLdBj$G!"\e(BSEMI \e$B$N%P%0$G$O$"$j$^\e(B
- \e$B$;$s\e(B)\e$B!#\e(B tm \e$B%a!<%j%s%0%j%9%H$G5DO@$9$Y$-$G$9!#$H$K$+$/!":n<T$X$ND>@\\e(B
- \e$B$N%a!<%k$OH?1~$,$J$$$+$b$7$l$^$;$s!#%a!<%k$O\e(B tm \e$B%a!<%j%s%0%j%9%H$XAw$C\e(B
- \e$B$F$/$@$5$$!#\e(B
-
-
-CVS \e$B$K$h$k3+H/\e(B
-=====================
-
- CVS \e$B$K$h$k3+H/$K;22C$7$?$$$H$-$O!"%"%+%&%s%HL>$H\e(B UNIX \e$BMM<0$G0E9f2=$5\e(B
- \e$B$l$?%Q%9%o!<%I$r\e(B
-
- cvs@chamonix.jaist.ac.jp
-
- \e$B$KAw$C$F$/$@$5$$!#3+H/$K;22C$5$l$k$3$H$r4|BT$7$F$$$^$9!#\e(B
-
-
-\e$B:n<T\e(B
-=======
-
-\e$B:,K\ItJ,$N:n<T\e(B
-
- MORIOKA Tomohiko <morioka@jaist.ac.jp>
- (the author of mime-view and various parts of SEMI)
- UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
- (the author of mime.el of emacs-mime-tools. mime.el is the
- origin of mime-edit.el of SEMI)
-
-\e$BB>$N:n<T\e(B
-
- Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
- (a major author of signature.el and a lot of codes)
- MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
- (anonymous ftp codes of mime-play.el)
- OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
- (a major author of mime-partial.el and signature.el)
-
- Steinar Bang <sb@metis.no>
- Steven L. Baur <steve@miranova.com>
- Kevin Broadey <KevinB@bartley.demon.co.uk>
- Alastair Burt <burt@dfki.uni-kl.de>
- Eric Ding <ericding@San-Jose.ate.slb.com>
- Thierry Emery <Thierry.Emery@aar.alcatel-alsthom.fr>
- Simon Josefsson <jas@pdc.kth.se>
- Jens Lautenbacher <jtl@tkm.physik.uni-karlsruhe.de>
- Carsten Leonhardt <leo@arioch.tng.oche.de>
- Pekka Marjola <marjola@bilbo.ntc.nokia.com>
- Hisashi Miyashita <himi@bird.scphys.kyoto-u.ac.jp>
- Kazuhiro Ohta <ohta@ele.cst.nihon-u.ac.jp>
- Alexandre Oliva <oliva@dcc.unicamp.br>
- Fran
\e,Ag
\e(Bois Pinard <pinard@iro.umontreal.ca>
- Artur Pioro <artur@flugor.if.uj.edu.pl>
- Dan Rich <drich@morpheus.corp.sgi.com>
- (contribute to evolve mime-image.el with XEmacs)
- Katsumi Yamaoka <yamaoka@jpl.org>
** dynamic configuration for 'mime-preview-condition
-** multipart/related support
+** Don't expect raw-buffer
-** Don't use filter-model
-
- tomo (major developer of SEMI) and akr (major developer of
-FLIM-FLAM) discussed about Emacs 20.3 problem related with SEMI and
-FLIM. They found essential problem with Emacs 20.3 are:
-
- - Emacs 20.3 separates string-type to unibyte-string and
- multibyte-string. Emacs 20.3 has enough APIs to treat them.
-
- - Buffer has mode about interpretation of contents. Each mode is
- designed to save semantics as characters. Namely buffer contains
- unibyte-characters or multibyte-characters. One buffer can not
- contain both representations.
-
- - {decode|encode}-coding-{region|string} run in byte world. So it
- is not harmonized with other API.
-
- - It seems easy to write code in one mode or one world
- (unibyte-string or multibyte-string). However it seems not easy
- to write inter-mode program, such as SEMI.
-
- - Byte <-> byte conversion, such as base64, quoted-printable, must
- be run only with unibyte-mode.
-
- - Byte <-> character conversion, such as
- {decode|encode}-coding-region, should not be defined in single
- buffer. Instead of them, decoder should read from unibyte buffer
- and output to multibyte buffer. Similarly, encoder should read
- from multibyte buffer and output to unibyte buffer.
- `insert-buffer-substring' like API may be suitable. Anyway Emacs
- introduces multiple representations, so it should be redesigned
- based on multiple representation world model.
-
- Anyway FLIM should introduce new APIs based on inter-representation
-world model. Conventional APIs should be implemented based on new
-APIs.
-
- SEMI should abolish filter model and introduce new methods to
-display inline data. These methods should use new FLIM APIs based on
-inter-representation world model.
+** lazy generating of situations from mime-entity information
* MIME-Edit
1.10.2 Higashi-Kanazawa \e$(BEl6bBt\e(B
1.11.0 Kanazawa \e$(B6bBt\e(B ; <=> \e$(BKLN&E4F;\e(B \e$(BKLE46bBt\e(B
1.12.0 Nishi-Kanazawa \e$(B@>6bBt\e(B ; <=> \e$(BKLN&E4F;\e(B \e$(B?7@>6bBt\e(B
-1.12.1 [JR] Nonoichi \e$(BLn!9;T\e(B
+1.12.1 [JR] Nonoichi [JR] \e$(BLn!9;T\e(B
+1.13.0 Matt\e-Dò\e-A \e$(B>>G$\e(B
+1.13.1 Kaga-Kasama \e$(B2C2l3^4V\e(B
+1.13.2 Mikawa \e$(BH~@n\e(B
+------ Komaiko \e$(B>.Iq;R\e(B
+------ Terai \e$(B;{0f\e(B
+------ Meih\e-Dò\e-A \e$(BL@Jv\e(B
+------ Komatsu \e$(B>.>>\e(B
: : :
------- Tsuruga \e$(BFX2l\e(B ; = JR \e$(B>.IM@~\e(B
------- Shin-Hikida \e$(B?7I%ED\e(B
1.11.0 Okitsu \e$(B6=DE\e(B
1.12.0 Shimizu \e$(B@6?e\e(B
1.12.1 Kusanagi \e$(BApFe\e(B
------- Shizuoka \e$(B@E2,\e(B
------- Abekawa \e$(B0BG\@n\e(B
------- Mochimune \e$(BMQ=!\e(B
+1.13.0 Shizuoka \e$(B@E2,\e(B
+1.13.1 Abekawa \e$(B0BG\@n\e(B
+1.13.2 Mochimune \e$(BMQ=!\e(B
------ Yaizu \e$(B>FDE\e(B
------ Nishi-Yaizu \e$(B@>>FDE\e(B
------ Fijieda \e$(BF#;^\e(B
------ Kanaya \e$(B6bC+\e(B ; = \e$(BBg0f@nE4F;\e(B
------ Kikugawa \e$(B5F@n\e(B
------ Kakegawa \e$(B3]@n\e(B ; = \e$(BE7N5IML>8PE4F;\e(B
+------ Fukuroi \e$(BB^0f\e(B
+------ Iwata \e$(BHXED\e(B
+------ Toyodach\e-Dò\e-A \e$(BK-EDD.\e(B
+------ Tenry\e-Dþgawa\e-A \e$(BE7N5@n\e(B
+------ Hamamatsu \e$(BIM>>\e(B ; = \e$(B1s=#E4F;\e(B
+------ Takatsuka \e$(B9bDM\e(B
+------ Maisaka \e$(BIq:e\e(B
+------ Bentenjima \e$(BJ[E7Eg\e(B
+------ Araimachi \e$(B?75oD.\e(B
+------ Wasizu \e$(BOIDE\e(B
+------ Shinjohara \e$(B?7=j86\e(B ; = \e$(BE7N5IML>8PE4F;\e(B
+------ Futagawa \e$(BFs2O\e(B
+------ Toyohashi \e$(BK-66\e(B ; = JR \e$(BHSED@~\e(B
: : :
------ Kanayama \e$(B6b;3\e(B ; =\e$(B!J\e(BJR \e$(BCf1{K\@~!K\e(B
------ Ot\e-Dòbashi\e-A \e$(BHxF,66\e(B
;;; mime-edit.el --- Simple MIME Composer for GNU Emacs
-;; Copyright (C) 1993,1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1993,94,95,96,97,98,99 Free Software Foundation, Inc.
;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
(eval-and-compile
(defconst mime-edit-version
- (eval-when-compile
- (concat
- (mime-product-name mime-user-interface-product) " "
- (mapconcat #'number-to-string
- (mime-product-version mime-user-interface-product) ".")
- " - \"" (mime-product-code-name mime-user-interface-product) "\"")))
- )
+ (concat
+ (mime-product-name mime-user-interface-product) " "
+ (mapconcat #'number-to-string
+ (mime-product-version mime-user-interface-product) ".")
+ " - \"" (mime-product-code-name mime-user-interface-product) "\"")))
;;; @ variables
"^Content-Transfer-Encoding:" limit t)
(let ((beg (match-beginning 0))
(hbeg (match-end 0))
- (end (std11-field-end)))
+ (end (std11-field-end limit)))
(setq encoding
(downcase
(eliminate-top-spaces
;;; mime-pgp.el --- mime-view internal methods for PGP.
-;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998,1999 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/12/7
(defun mime-verify-multipart/signed (entity situation)
"Internal method to verify multipart/signed."
- (mime-raw-play-entity
+ (mime-play-entity
(nth 1 (mime-entity-children entity)) ; entity-info of signature
- (cdr (assq 'mode situation)) ; play-mode
+ (list (assq 'mode situation)) ; play-mode
))
;;; It is based on draft-kazu-pgp-mime-00.txt (PGP-kazu).
(defun mime-view-application/pgp (entity situation)
- (let* ((p-win (or (get-buffer-window mime-preview-buffer)
+ (let* ((p-win (or (get-buffer-window (current-buffer))
(get-largest-window)))
(new-name
(format "%s-%s" (buffer-name) (mime-entity-number entity)))
- (the-buf (current-buffer))
- (mother mime-preview-buffer)
+ (mother (current-buffer))
representation-type)
(set-buffer (get-buffer-create new-name))
(erase-buffer)
- (insert-buffer-substring
- the-buf (mime-entity-point-min entity) (mime-entity-point-max entity))
+ (mime-insert-entity entity)
(cond ((progn
(goto-char (point-min))
(re-search-forward "^-+BEGIN PGP SIGNED MESSAGE-+$" nil t))
(defun mime-verify-application/pgp-signature (entity situation)
"Internal method to check PGP/MIME signature."
- (let* ((start (mime-entity-point-min entity))
- (end (mime-entity-point-max entity))
- (encoding (cdr (assq 'encoding situation)))
- (entity-node-id (mime-raw-point-to-entity-node-id start))
+ (let* ((entity-node-id (mime-entity-node-id entity))
(mother (mime-entity-parent entity))
(knum (car entity-node-id))
(onum (if (> knum 0)
)
(mime-write-entity orig-entity 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)
+ (mime-write-entity-content entity sig-file)
(or (mime-pgp-check-signature mime-echo-buffer-name orig-file)
(let (pgp-id)
(save-excursion
;;; mime-play.el --- Playback processing module for mime-view.el
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998,1999 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
(add-hook 'kill-emacs-hook 'mime-save-acting-situation-examples)
(defun mime-reduce-acting-situation-examples ()
- (let* ((rest mime-acting-situation-example-list)
- (min-example (car rest))
- (min-score (cdr min-example)))
- (while rest
- (let* ((example (car rest))
- (score (cdr example)))
- (cond ((< score min-score)
- (setq min-score score
- min-example example)
- )
- ((= score min-score)
- (if (<= (length (car example))(length (car min-example)))
- (setq min-example example)
- ))
- ))
- (setq rest (cdr rest)))
- (setq mime-acting-situation-example-list
- (delq min-example mime-acting-situation-example-list))
- (setq min-example (car min-example))
- (let ((examples mime-acting-situation-example-list)
- (max-score 0)
- max-examples)
- (while examples
- (let* ((ret (mime-compare-situation-with-example min-example
- (caar examples)))
- (ret-score (car ret)))
- (cond ((> ret-score max-score)
- (setq max-score ret-score
- max-examples (list (cdr ret)))
+ (let ((len (length mime-acting-situation-example-list))
+ i ir ic j jr jc ret
+ dest d-i d-j
+ (max-sim 0) sim
+ min-det-ret det-ret
+ min-det-org det-org
+ min-freq freq)
+ (setq i 0
+ ir mime-acting-situation-example-list)
+ (while (< i len)
+ (setq ic (car ir)
+ j 0
+ jr mime-acting-situation-example-list)
+ (while (< j len)
+ (unless (= i j)
+ (setq jc (car jr))
+ (setq ret (mime-compare-situation-with-example (car ic)(car jc))
+ sim (car ret)
+ det-ret (+ (length (car ic))(length (car jc)))
+ det-org (length (cdr ret))
+ freq (+ (cdr ic)(cdr jc)))
+ (cond ((< max-sim sim)
+ (setq max-sim sim
+ min-det-ret det-ret
+ min-det-org det-org
+ min-freq freq
+ d-i i
+ d-j j
+ dest (cons (cdr ret) freq))
)
- ((= ret-score max-score)
- (setq max-examples (cons (cdr ret) max-examples))
- )))
- (setq examples (cdr examples)))
- (while max-examples
- (let* ((example (car max-examples))
- (cell (assoc example mime-acting-situation-example-list)))
- (if cell
- (setcdr cell (1+ (cdr cell)))
- (setq mime-acting-situation-example-list
- (cons (cons example 0)
- mime-acting-situation-example-list))
- ))
- (setq max-examples (cdr max-examples))
- ))))
+ ((= max-sim sim)
+ (cond ((> min-det-ret det-ret)
+ (setq min-det-ret det-ret
+ min-det-org det-org
+ min-freq freq
+ d-i i
+ d-j j
+ dest (cons (cdr ret) freq))
+ )
+ ((= min-det-ret det-ret)
+ (cond ((> min-det-org det-org)
+ (setq min-det-org det-org
+ min-freq freq
+ d-i i
+ d-j j
+ dest (cons (cdr ret) freq))
+ )
+ ((= min-det-org det-org)
+ (cond ((> min-freq freq)
+ (setq min-freq freq
+ d-i i
+ d-j j
+ dest (cons (cdr ret) freq))
+ ))
+ ))
+ ))
+ ))
+ )
+ (setq jr (cdr jr)
+ j (1+ j)))
+ (setq ir (cdr ir)
+ i (1+ i)))
+ (if (> d-i d-j)
+ (setq i d-i
+ d-i d-j
+ d-j i))
+ (setq jr (nthcdr (1- d-j) mime-acting-situation-example-list))
+ (setcdr jr (cddr jr))
+ (if (= d-i 0)
+ (setq mime-acting-situation-example-list
+ (cdr mime-acting-situation-example-list))
+ (setq ir (nthcdr (1- d-i) mime-acting-situation-example-list))
+ (setcdr ir (cddr ir))
+ )
+ (if (setq ir (assoc (car dest) mime-acting-situation-example-list))
+ (setcdr ir (+ (cdr ir)(cdr dest)))
+ (setq mime-acting-situation-example-list
+ (cons dest mime-acting-situation-example-list))
+ )))
;;; @ content decoder
;;;
-(defvar mime-preview-after-decoded-position nil)
-
+;;;###autoload
(defun mime-preview-play-current-entity (&optional ignore-examples mode)
"Play current entity.
It decodes current entity to call internal or external method. The
(interactive "P")
(let ((entity (get-text-property (point) 'mime-view-entity)))
(if entity
- (let ((the-buf (current-buffer))
- (raw-buffer (mime-entity-buffer entity)))
- (setq mime-preview-after-decoded-position (point))
- (set-buffer raw-buffer)
- (mime-raw-play-entity entity (or mode "play") nil ignore-examples)
- (when (eq (current-buffer) raw-buffer)
- (set-buffer the-buf)
- (goto-char mime-preview-after-decoded-position)
- )))))
+ (let ((situation (list (cons 'mode (or mode "play")))))
+ (if ignore-examples
+ (setq situation
+ (cons (cons 'ignore-examples ignore-examples)
+ situation)))
+ (mime-play-entity entity situation)
+ ))))
(defun mime-sort-situation (situation)
(sort situation
(cons match example)
))
-(defun mime-raw-play-entity (entity &optional mode situation ignore-examples
- ignored-method)
+;;;###autoload
+(defun mime-play-entity (entity &optional situation ignored-method)
"Play entity specified by ENTITY.
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 (method ret)
- (or situation
- (setq situation (mime-entity-situation entity)))
- (if mode
- (setq situation (cons (cons 'mode mode) situation))
- )
- (if ignore-examples
- (or (assq 'ignore-examples situation)
- (setq situation
- (cons (cons 'ignore-examples ignore-examples) situation)))
- )
(setq ret
(mime-delq-null-situation
- (ctree-find-calist mime-acting-condition situation
+ (ctree-find-calist mime-acting-condition
+ (mime-entity-situation entity situation)
mime-view-find-every-acting-situation)
'method ignored-method))
- (or ignore-examples
+ (or (assq 'ignore-examples situation)
(if (cdr ret)
(let ((rest ret)
(max-score 0)
(defvar mime-mailcap-method-filename-alist nil)
(defun mime-activate-mailcap-method (entity situation)
- (save-excursion
- (save-restriction
- (let ((start (mime-entity-point-min entity))
- (end (mime-entity-point-max entity)))
- (narrow-to-region start end)
- (goto-char start)
- (let ((method (cdr (assoc 'method situation)))
- (name (mime-entity-safe-filename entity)))
- (setq name
- (if (and name (not (string= name "")))
- (expand-file-name name temporary-file-directory)
- (make-temp-name
- (expand-file-name "EMI" temporary-file-directory))
- ))
- (mime-write-entity-content entity name)
- (message "External method is starting...")
- (let ((process
- (let ((command
- (mailcap-format-command
- method
- (cons (cons 'filename name) situation))))
- (start-process command mime-echo-buffer-name
- shell-file-name shell-command-switch command)
- )))
- (set-alist 'mime-mailcap-method-filename-alist process name)
- (set-process-sentinel process 'mime-mailcap-method-sentinel)
- )
- )))))
+ (let ((method (cdr (assoc 'method situation)))
+ (name (mime-entity-safe-filename entity)))
+ (setq name
+ (if (and name (not (string= name "")))
+ (expand-file-name name temporary-file-directory)
+ (make-temp-name
+ (expand-file-name "EMI" temporary-file-directory))
+ ))
+ (mime-write-entity-content entity name)
+ (message "External method is starting...")
+ (let ((process
+ (let ((command
+ (mailcap-format-command
+ method
+ (cons (cons 'filename name) situation))))
+ (start-process command mime-echo-buffer-name
+ shell-file-name shell-command-switch command)
+ )))
+ (set-alist 'mime-mailcap-method-filename-alist process name)
+ (set-process-sentinel process 'mime-mailcap-method-sentinel)
+ )
+ ))
(defun mime-mailcap-method-sentinel (process event)
(let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
(condition-case nil
(setq win (get-buffer-window bbdb-buffer-name))
(error nil)))
- (select-window (get-buffer-window mime-preview-buffer))
+ (select-window (get-buffer-window (or mime-preview-buffer
+ (current-buffer))))
(setq win (split-window-vertically
(- (window-height)
(if (functionp mime-echo-window-height)
(defun mime-detect-content (entity situation)
(let (type subtype)
- (let ((mdata (save-excursion
- ;;(set-buffer (mime-entity-buffer entity))
- (let* ((start (mime-entity-body-start entity))
- (end (progn
- (goto-char start)
- (end-of-line)
- (point))))
- (mime-decode-string (buffer-substring start end)
- (mime-entity-encoding entity))
- )))
+ (let ((mdata (mime-entity-content entity))
(rest mime-magic-type-alist))
(while (not (let ((cell (car rest)))
(if cell
t)))
(setq rest (cdr rest))))
(if type
- (mime-raw-play-entity
- entity nil
+ (mime-play-entity
+ entity
(put-alist 'type type
(put-alist 'subtype subtype
(del-alist 'method
(copy-alist situation))))
- (cdr (assq 'ignore-examples situation))
'mime-detect-content)
))
)
(defun mime-view-message/rfc822 (entity situation)
(let* ((new-name
(format "%s-%s" (buffer-name) (mime-entity-number entity)))
- (mother mime-preview-buffer)
+ (mother (current-buffer))
(children (car (mime-entity-children entity))))
(set-buffer (get-buffer-create new-name))
(erase-buffer)
- (insert-buffer-substring (mime-entity-buffer children)
- (mime-entity-point-min children)
- (mime-entity-point-max children))
+ (mime-insert-entity children)
(setq mime-message-structure children)
(setq major-mode 'mime-show-message-mode)
(mime-view-buffer (current-buffer) nil mother
(defun mime-view-caesar (entity situation)
"Internal method for mime-view to display ROT13-47-48 message."
- (let* ((new-name (format "%s-%s" (buffer-name)
- (mime-entity-number entity)))
- (mother mime-preview-buffer))
- (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)
+ (let ((buf (get-buffer-create
+ (format "%s-%s" (buffer-name) (mime-entity-number entity)))))
+ (with-current-buffer buf
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (let ((enable-character-translation nil))
+ (mime-insert-text-content entity))
+ (mule-caesar-region (point-min) (point-max))
+ (let ((str (buffer-string))
+ (status (make-vector 9 nil))
+ (table
+ (catch 'tbl
+ (let ((i 0) e)
+ (while (and (< i (length translation-table-vector))
+ (setq e (aref translation-table-vector i)))
+ (if (eq (cdr e) standard-translation-table-for-decode)
+ (throw 'tbl i))
+ (setq i (1+ i)))
+ nil))))
+ (when table
+ (aset status 0 table)
+ (delete-region (point-min) (point-max))
+ (insert (ccl-execute-on-string
+ 'translate-string
+ status
+ str))))
+ (set-buffer-modified-p nil)
)
- (setq buffer-read-only nil)
- (erase-buffer)
- (let ((enable-character-translation nil))
- (mime-insert-text-content entity))
- (mule-caesar-region (point-min) (point-max))
- (let ((str (buffer-string))
- (status (make-vector 9 nil))
- (table
- (catch 'tbl
- (let ((i 0) e)
- (while (and (< i (length translation-table-vector))
- (setq e (aref translation-table-vector i)))
- (if (eq (cdr e) standard-translation-table-for-decode)
- (throw 'tbl i))
- (setq i (1+ i)))
- nil))))
- (when table
- (aset status 0 table)
- (delete-region (point-min) (point-max))
- (insert (ccl-execute-on-string
- 'translate-string
- status
- str))))
- (set-buffer-modified-p nil)
- (set-buffer mother)
- (view-buffer new-name)
+ (let ((win (get-buffer-window (current-buffer))))
+ (or (eq (selected-window) win)
+ (select-window (or win (get-largest-window)))
+ ))
+ (view-buffer buf)
+ (goto-char (point-min))
))
;;;
(defconst mime-view-version
- (eval-when-compile
- (concat (mime-product-name mime-user-interface-product) " MIME-View "
- (mapconcat #'number-to-string
- (mime-product-version mime-user-interface-product) ".")
- " (" (mime-product-code-name mime-user-interface-product) ")")))
+ (concat (mime-product-name mime-user-interface-product) " MIME-View "
+ (mapconcat #'number-to-string
+ (mime-product-version mime-user-interface-product) ".")
+ " (" (mime-product-code-name mime-user-interface-product) ")"))
;;; @ variables
;;; @ entity information
;;;
-(defun mime-entity-situation (entity)
+(defun mime-entity-situation (entity &optional situation)
"Return situation of ENTITY."
- (append (or (mime-entity-content-type entity)
- (make-mime-content-type 'text 'plain))
- (let ((d (mime-entity-content-disposition entity)))
- (cons (cons 'disposition-type
- (mime-content-disposition-type d))
- (mapcar (function
- (lambda (param)
- (let ((name (car param)))
- (cons (cond ((string= name "filename")
- 'filename)
- ((string= name "creation-date")
- 'creation-date)
- ((string= name "modification-date")
- 'modification-date)
- ((string= name "read-date")
- 'read-date)
- ((string= name "size")
- 'size)
- (t (cons 'disposition (car param))))
- (cdr param)))))
- (mime-content-disposition-parameters d))
- ))
- (list (cons 'encoding (mime-entity-encoding entity))
- (cons 'major-mode
- (save-excursion
- (set-buffer (mime-entity-buffer entity))
- major-mode)))
- ))
+ (let (rest param name)
+ ;; Content-Type
+ (unless (assq 'type situation)
+ (setq rest (or (mime-entity-content-type entity)
+ (make-mime-content-type 'text 'plain))
+ situation (cons (car rest) situation)
+ rest (cdr rest))
+ )
+ (unless (assq 'subtype situation)
+ (or rest
+ (setq rest (or (cdr (mime-entity-content-type entity))
+ '((subtype . plain)))))
+ (setq situation (cons (car rest) situation)
+ rest (cdr rest))
+ )
+ (while rest
+ (setq param (car rest))
+ (or (assoc (car param) situation)
+ (setq situation (cons param situation)))
+ (setq rest (cdr rest)))
+
+ ;; Content-Disposition
+ (setq rest nil)
+ (unless (assq 'disposition-type situation)
+ (setq rest (mime-entity-content-disposition entity))
+ (if rest
+ (setq situation (cons (cons 'disposition-type
+ (mime-content-disposition-type rest))
+ situation)
+ rest (mime-content-disposition-parameters rest))
+ ))
+ (while rest
+ (setq param (car rest)
+ name (car param))
+ (if (cond ((string= name "filename")
+ (if (assq 'filename situation)
+ nil
+ (setq name 'filename)))
+ ((string= name "creation-date")
+ (if (assq 'creation-date situation)
+ nil
+ (setq name 'creation-date)))
+ ((string= name "modification-date")
+ (if (assq 'modification-date situation)
+ nil
+ (setq name 'modification-date)))
+ ((string= name "read-date")
+ (if (assq 'read-date situation)
+ nil
+ (setq name 'read-date)))
+ ((string= name "size")
+ (if (assq 'size situation)
+ nil
+ (setq name 'size)))
+ (t (setq name (cons 'disposition name))
+ (if (assoc name situation)
+ nil
+ name)))
+ (setq situation
+ (cons (cons name (cdr param))
+ situation)))
+ (setq rest (cdr rest)))
+
+ ;; Content-Transfer-Encoding
+ (or (assq 'encoding situation)
+ (setq situation
+ (cons (cons 'encoding (or (mime-entity-encoding entity)
+ "7bit"))
+ situation)))
+ ;; major-mode
+ (or (assq 'major-mode situation)
+ (setq situation
+ (cons (cons 'major-mode
+ (with-current-buffer (mime-entity-buffer entity)
+ major-mode))
+ situation)))
+
+ situation))
(defun mime-view-entity-title (entity)
(or (mime-read-field 'Content-Description entity)
(defvar mime-view-redisplay nil)
+;;;###autoload
(defun mime-display-message (message &optional preview-buffer
mother default-keymap-or-function)
+ "View MESSAGE in MIME-View mode.
+
+Optional argument PREVIEW-BUFFER specifies the buffer of the
+presentation. It must be either nil or a name of preview buffer.
+
+Optional argument MOTHER specifies mother-buffer of the preview-buffer.
+
+Optional argument DEFAULT-KEYMAP-OR-FUNCTION is nil, keymap or
+function. If it is a keymap, keymap of MIME-View mode will be added
+to it. If it is a function, it will be bound as default binding of
+keymap of MIME-View mode."
(mime-maybe-hide-echo-buffer)
(let ((win-conf (current-window-configuration))
(raw-buffer (mime-entity-buffer message)))
)))))
)))
+;;;###autoload
(defun mime-view-buffer (&optional raw-buffer preview-buffer mother
default-keymap-or-function
representation-type)
;;; mime-w3.el --- mime-view content filter for text
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998,1999 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: HTML, MIME, multimedia, mail, news
))
(cons 'progn body)))
+(defvar mime-w3-message-structure nil)
+
(defun mime-preview-text/html (entity situation)
+ (setq mime-w3-message-structure
+ (with-current-buffer (mime-entity-buffer entity)
+ mime-message-structure))
(goto-char (point-max))
(let ((p (point)))
(insert "\n")
(narrow-to-region p p)
(mime-insert-text-content entity)
(run-hooks 'mime-text-decode-hook)
- (w3-region p (point-max))
+ (condition-case err
+ (w3-region p (point-max))
+ (error (message (format "%s" err))))
(mime-put-keymap-region p (point-max) w3-mode-map)
))))
+(defun url-cid (url &optional proxy-info)
+ (let ((entity
+ (mime-find-entity-from-content-id (mime-uri-parse-cid url)
+ mime-w3-message-structure)))
+ (when entity
+ (mime-insert-entity-content entity)
+ (setq url-current-mime-type (mime-entity-type/subtype entity))
+ )))
+
+(url-register-protocol "cid"
+ 'url-cid
+ 'url-identity-expander)
+
;;; @ end
;;;
;;; semi-def.el --- definition module for SEMI
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: definition, MIME, multimedia, mail, news
(require 'custom)
-(defconst mime-user-interface-product ["AKEMI" (1 12 1) "\e$B>K;RBN\e(B"]
+(defconst mime-user-interface-product ["AKEMI" (1 13 1) "\e$B?e>=BN\e(B"]
"Product name, version number and code name of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
projects / elisp / semi.git / commitdiff