+1997-01-30 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu: Version 7.37.5 was released.
+ * tm: Version 7.102 was released.
+ * gnus-mime: Version 0.14 was released.
+ * tm-vm: Version 8.4 was released.
+
+Thu Jan 30 11:40:09 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * README.en (PROBLEMS): Internal quoted-printable encoder seems to
+ work fine.
+ (TODO): modified.
+
+Thu Jan 30 08:47:51 1997 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * mime-setup.el.in (mime-editor/split-message-sender-alist): Set
+ split-message-sender for mail-mode.
+
+1997-01-30 Carsten Leonhardt <leo@arioch.tng.oche.de>
+
+ * tm-edit.el (mime-editor/exit): fix problem of removing
+ menu-items when there's no menubar support in
+ XEmacs. (cf. [bug-tm-en:1169])
+
+Wed Jan 29 15:18:53 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-pgp.el (pgp-snarf-keys-function): New variable.
+ (mime-article/add-pgp-keys): Use variable
+ `pgp-snarf-keys-function'.
+
+ Use autoload instead of "(require 'mailcrypt)".
+
+ * tm-pgp.el (pgp-fetch-key-function): New variable.
+ (mime-article/check-pgp-signature): Use variable
+ `pgp-fetch-key-function'.
+
+ * tm-pgp.el (mime-article/check-pgp-signature): Use macro
+ `as-binary-output-file'.
+
+ * tm-pgp.el (pgp-verify-function): New variable.
+ (pgp-decrypt-function): New variable.
+ (mime-article/view-application/pgp): Use variable
+ `pgp-verify-function' and `pgp-decrypt-function'.
+
+\f
+1997-01-21 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu: Version 7.37.4 was released.
+ * tl: Version 7.61.16 was released.
+ * MU: Version 0.39.1 was released.
+ * tm: Version 7.101 was released.
+
+Tue Jan 21 07:23:27 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-ELS: tm-edit-tipgp.el was separated from tm-oomori package.
+
+Tue Jan 21 06:23:24 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * README.en (PROBLEMS): New section.
+
+Tue Jan 21 06:17:18 1997 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-ew-d.el (mime-eword/decode-region): Use
+ mime/encoded-word-regexp.
+ (mime/decode-encoded-word): Put `tm:warning-face' to invalid
+ encoded-text.
+ (mime/decode-encoded-text): Would decode invalid encoded-text.
+
+ * tm-def.el (tm:warning-face): New variable.
+
+Sat Jan 18 18:04:39 1997 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-def.el (base64-token-regexp): padding character (`=') was
+ removed.
+
+Fri Jan 17 04:26:29 1997 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-ew-d.el (mime-eword/decode-region): Regexp was simplified to
+ avoid backtracking.
+
+Tue Jan 14 12:30:01 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime/editor-mode): Use Spanish as a sample instead
+ of Japanese.
+
+Tue Jan 14 08:57:44 1997 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-ew-d.el (mime/decode-encoded-text): If `must-unfold' is
+ non-nil, replace TAB with SPACE to avoid treating TAB as a NOV
+ separator.
+
+Fri Jan 10 06:32:24 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * doc/tm-ja.sgml: sync with tm-en.sgml 3.3.
+
+ * doc/tm-en.sgml (tm-MUA): tm-vm_en was renamed to tm-vm-en.
+
+ * doc/tm-en.sgml (Introduction): Add link for tm-vm-en.
+
+Fri Jan 10 02:09:55 1997 Alexandre Oliva <oliva@dcc.unicamp.br>
+
+ * Makefile: for several architectures (cf. [tm-en:1114])
+
+Tue Jan 7 05:44:39 1997 Joe Nuspl <nuspl@nvwls.cc.purdue.edu>
+
+ * tm-ew-d.el: Must require tl-str. (cf. [xemacs-beta:998])
+
+\f
+Wed Jan 1 11:07:09 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.61.17 was released.
+ * MEL: Version 6.2.1 was released.
+ * tm: Version 7.100.3 was released.
+ * tm-mh-e: Version 7.73.1 was released.
+ * tm-gnus: Version 7.28.1 was released.
+ * gnus-mime: Version 0.12.3 was released.
+
+Wed Dec 28 13:57:22 1996 Martin Buchholz <mrb@Eng.Sun.COM>
+
+ * TM-CFG: Use variable `default-directory' instead of `(getenv
+ "PWD")'. (cf. [tm-en:1084])
+
+ * Makefile: A makefile command like `cd some-dir; do-something' is
+ generally better written as: `cd some-dir && do-something' since
+ if the cd fails (usually because of a coding or file-system error)
+ the do-something is not executed in the wrong
+ directory. (cf. [tm-en:1084])
+
+\f
Fri Dec 27 20:39:43 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm: Version 7.100.2 was released.
#
-# $Id: Makefile,v 7.43 1996/12/25 19:18:43 morioka Exp morioka $
+# $Id: Makefile,v 7.45 1997/01/10 15:42:29 morioka Exp morioka $
#
-VERSION = 7.100.2
+VERSION = 7.102
SHELL = /bin/sh
MAKE = make
cd doc; $(MAKE) ps
-install: $(UTILS) methods install-elc
+install: $(UTILS) methods install-elc install-execs
+
+execs: $(UTILS)
+
+install-execs:
$(EMACS) $(FLAGS) -l TM-MK -f install-execs $(PREFIX) $(EXEC_PREFIX)
clean:
-$(RM) $(GOMI)
- -cd doc; $(MAKE) clean
- -cd gnus; $(MAKE) clean
- -cd mh-e; $(MAKE) clean
- cd ../mel; PWD=`pwd` $(MAKE) clean
+ -cd doc && $(MAKE) clean
+ -cd gnus && $(MAKE) clean
+ -cd mh-e && $(MAKE) clean
+ cd ../mel && $(MAKE) clean
oomori:
[README for tm (English Version)]
by MORIOKA Tomohiko <morioka@jaist.ac.jp>
and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-$Id: README.en,v 7.26 1996/12/27 12:11:29 morioka Exp $
+$Id: README.en,v 7.28 1997/01/30 11:40:09 morioka Exp $
1 What's tm?
ftp://ftp.nisiq.net/pub/gnu/emacs-lisp/tm/ (US)
-10 TODO
+10 PROBLEMS
-- better identification calculus system as successor of atype system
+- Window configuration is broken after combining partial messages or
+ playing other internal methods.
+- Automatic combining method for message/partial is not implemented
+ for RMAIL.
+
+
+11 TODO
+
+- better method selecting system as successor of atype system
- development of internal method for message/external-body based on
tm-ftp
- better automatic MIME preview support
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-CFG,v 7.27 1996/12/16 15:12:55 morioka Exp $
+;;; $Id: TM-CFG,v 7.28 1997/01/01 06:52:52 morioka Exp morioka $
;;;
(defvar default-load-path load-path)
(setq load-path (append
(mapcar (function
(lambda (path)
- (expand-file-name path (getenv "PWD"))
+ (expand-file-name path default-directory)
))
'("." "../emu" "../tl" "../bitmap-mule"
"../mu" "../mel"
(setq TM_GNUS_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
(setq TM_GNUS_INSTALL_FORMAT
- "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
+ "cd gnus; make install-19 EMACS=%s TMDIR19=%s")
(setq TM_GNUS_COMPILE ".gnus-compile")
(setq MAKE "make")
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-ELS,v 7.5 1996/12/10 08:29:42 morioka Exp $
+;;; $Id: TM-ELS,v 7.6 1997/01/21 07:23:27 morioka Exp $
;;;
(setq tm-modules-to-compile
'((ange-ftp tm-ftp)
(mailcrypt tm-pgp tm-edit-mc)
(bbdb tm-bbdb)
- (tinypgpa tm-edit-tipgp)
))
(if (and (file-exists-p "tm-evs.el")
* tm-MUA for mh-e (*Note (tm-mh-e-en)::)
+ * tm-MUA for VM (*Note (tm-vm-en)::)
+
* mime/viewer-mode (*Note (tm-view-en)::)
* mime/editor-mode (*Note (tm-edit-en)::)
* *gnus-mime* (*Note (gnus-mime-en)::) for Gnus
- * *tm-vm* (*Note (tm-vm_en)::) for VM
+ * *tm-vm* (*Note (tm-vm-en)::) for VM
* *tm-rmail* for RMAIL
Tag Table:
Node: Top\7f89
Node: Introduction\7f497
-Node: Glossary\7f1167
-Node: 7bit\7f3183
-Node: 8bit\7f4132
-Node: 94-character set\7f5292
-Node: 96-character set\7f5659
-Node: 94x94-character set\7f6010
-Node: ASCII\7f6403
-Node: Base64\7f6859
-Node: binary\7f7464
-Node: cn-gb\7f7796
-Node: cn-big5\7f8249
-Node: CNS 11643\7f8834
-Node: coded character set\7f9583
-Node: code extension\7f9918
-Node: Content-Disposition\7f10207
-Node: Content-Type field\7f10652
-Node: Emacs\7f11706
-Node: encoded-word\7f11924
-Node: encapsulation\7f12344
-Node: entity\7f12642
-Node: euc-kr\7f12929
-Node: FTP\7f13430
-Node: GB 2312\7f13618
-Node: GB 8565.2\7f14076
-Node: graphic character set\7f14513
-Node: hz-gb2312\7f14737
-Node: ISO 2022\7f15576
-Node: iso-2022-cn\7f15985
-Node: iso-2022-cn-ext\7f16457
-Node: iso-2022-jp\7f17107
-Node: iso-2022-jp-2\7f17819
-Node: iso-2022-kr\7f18236
-Node: ISO 646\7f18676
-Node: ISO 8859-1\7f18966
-Node: iso-8859-1\7f19283
-Node: ISO 8859-2\7f19757
-Node: iso-8859-2\7f20077
-Node: ISO 8859-3\7f20551
-Node: ISO 8859-4\7f20871
-Node: ISO 8859-5\7f21191
-Node: iso-8859-5\7f21515
-Node: ISO 8859-6\7f21957
-Node: ISO 8859-7\7f22279
-Node: iso-8859-7\7f22600
-Node: ISO 8859-8\7f23150
-Node: ISO 8859-9\7f23472
-Node: ISO-IR-165\7f23792
-Node: JIS X0201\7f24275
-Node: JIS C6226\7f24969
-Node: JIS X0208\7f25221
-Node: JIS X0212\7f26675
-Node: koi8-r\7f26999
-Node: KS C5601\7f27467
-Node: media type\7f27885
-Node: message\7f28839
-Node: message/rfc822\7f29079
-Node: method\7f29460
-Node: MIME\7f29931
-Node: MIME charset\7f30936
-Node: MTA\7f31567
-Node: MUA\7f31774
-Node: MULE\7f31944
-Node: multipart\7f32709
-Node: multipart/alternative\7f33458
-Node: multipart/digest\7f33923
-Node: multipart/encrypted\7f34580
-Node: multipart/mixed\7f34878
-Node: multipart/parallel\7f35211
-Node: multipart/signed\7f35658
-Node: PGP\7f35934
-Node: PGP-kazu\7f36619
-Node: PGP/MIME\7f37255
-Node: Quoted-Printable\7f37880
-Node: RFC 821\7f38274
-Node: RFC 822\7f38470
-Node: RFC 934\7f38878
-Node: RFC 1036\7f39309
-Node: RFC 1153\7f39716
-Node: RFC 1557\7f39886
-Node: RFC 1922\7f40254
-Node: RFC 2045\7f40886
-Node: RFC 2046\7f41202
-Node: RFC 2048\7f41496
-Node: RFC 2049\7f41811
-Node: plain text\7f42130
-Node: Security multipart\7f42424
-Node: text/enriched\7f43052
-Node: text/plain\7f43322
-Node: tm-kernel\7f43812
-Node: tm-MUA\7f44229
-Node: us-ascii\7f44681
-Node: Setting\7f45296
-Node: mime-setup\7f45903
-Node: signature\7f46392
-Node: Notice about GNUS\7f47928
-Node: tm-setup\7f48813
-Node: setting for VM\7f49366
-Node: manual setting\7f49679
-Node: Bug report\7f50283
-Node: Acknowledgments\7f51737
-Node: Concept Index\7f52830
-Node: Variable Index\7f61554
+Node: Glossary\7f1208
+Node: 7bit\7f3224
+Node: 8bit\7f4173
+Node: 94-character set\7f5333
+Node: 96-character set\7f5700
+Node: 94x94-character set\7f6051
+Node: ASCII\7f6444
+Node: Base64\7f6900
+Node: binary\7f7505
+Node: cn-gb\7f7837
+Node: cn-big5\7f8290
+Node: CNS 11643\7f8875
+Node: coded character set\7f9624
+Node: code extension\7f9959
+Node: Content-Disposition\7f10248
+Node: Content-Type field\7f10693
+Node: Emacs\7f11747
+Node: encoded-word\7f11965
+Node: encapsulation\7f12385
+Node: entity\7f12683
+Node: euc-kr\7f12970
+Node: FTP\7f13471
+Node: GB 2312\7f13659
+Node: GB 8565.2\7f14117
+Node: graphic character set\7f14554
+Node: hz-gb2312\7f14778
+Node: ISO 2022\7f15617
+Node: iso-2022-cn\7f16026
+Node: iso-2022-cn-ext\7f16498
+Node: iso-2022-jp\7f17148
+Node: iso-2022-jp-2\7f17860
+Node: iso-2022-kr\7f18277
+Node: ISO 646\7f18717
+Node: ISO 8859-1\7f19007
+Node: iso-8859-1\7f19324
+Node: ISO 8859-2\7f19798
+Node: iso-8859-2\7f20118
+Node: ISO 8859-3\7f20592
+Node: ISO 8859-4\7f20912
+Node: ISO 8859-5\7f21232
+Node: iso-8859-5\7f21556
+Node: ISO 8859-6\7f21998
+Node: ISO 8859-7\7f22320
+Node: iso-8859-7\7f22641
+Node: ISO 8859-8\7f23191
+Node: ISO 8859-9\7f23513
+Node: ISO-IR-165\7f23833
+Node: JIS X0201\7f24316
+Node: JIS C6226\7f25010
+Node: JIS X0208\7f25262
+Node: JIS X0212\7f26716
+Node: koi8-r\7f27040
+Node: KS C5601\7f27508
+Node: media type\7f27926
+Node: message\7f28880
+Node: message/rfc822\7f29120
+Node: method\7f29501
+Node: MIME\7f29972
+Node: MIME charset\7f30977
+Node: MTA\7f31608
+Node: MUA\7f31815
+Node: MULE\7f31985
+Node: multipart\7f32750
+Node: multipart/alternative\7f33499
+Node: multipart/digest\7f33964
+Node: multipart/encrypted\7f34621
+Node: multipart/mixed\7f34919
+Node: multipart/parallel\7f35252
+Node: multipart/signed\7f35699
+Node: PGP\7f35975
+Node: PGP-kazu\7f36660
+Node: PGP/MIME\7f37296
+Node: Quoted-Printable\7f37921
+Node: RFC 821\7f38315
+Node: RFC 822\7f38511
+Node: RFC 934\7f38919
+Node: RFC 1036\7f39350
+Node: RFC 1153\7f39757
+Node: RFC 1557\7f39927
+Node: RFC 1922\7f40295
+Node: RFC 2045\7f40927
+Node: RFC 2046\7f41243
+Node: RFC 2048\7f41537
+Node: RFC 2049\7f41852
+Node: plain text\7f42171
+Node: Security multipart\7f42465
+Node: text/enriched\7f43093
+Node: text/plain\7f43363
+Node: tm-kernel\7f43853
+Node: tm-MUA\7f44270
+Node: us-ascii\7f44722
+Node: Setting\7f45337
+Node: mime-setup\7f45944
+Node: signature\7f46433
+Node: Notice about GNUS\7f47969
+Node: tm-setup\7f48854
+Node: setting for VM\7f49407
+Node: manual setting\7f49720
+Node: Bug report\7f50324
+Node: Acknowledgments\7f51778
+Node: Concept Index\7f52871
+Node: Variable Index\7f61595
\1f
End Tag Table
<!doctype sinfo system>
-<!-- $Id: tm-en.sgml,v 3.1 1996/12/25 18:56:14 morioka Exp $ -->
+<!-- $Id: tm-en.sgml,v 3.3 1997/01/10 06:28:41 morioka Exp $ -->
<head>
<title>tm 7.100 Manual (English Version)
<author>MORIOKA Tomohiko <mail>morioka@jaist.ac.jp</mail>
<li><a file="gnus-mime-en">tm-MUA for Gnus</a>
<li><a file="tm-gnus-en">tm-MUA for GNUS</a>
<li><a file="tm-mh-e-en">tm-MUA for mh-e</a>
+<li><a file="tm-vm-en">tm-MUA for VM</a>
<li><a file="tm-view-en">mime/viewer-mode</a>
<li><a file="tm-edit-en">mime/editor-mode</a>
</ul>
for <a file="mh-e">mh-e</a>
<li><a file="tm-gnus_en"><concept>tm-gnus</concept></a> for GNUS
<li><a file="gnus-mime-en"><concept>gnus-mime</concept></a> for Gnus
-<li><a file="tm-vm_en"><concept>tm-vm</concept></a> for VM
+<li><a file="tm-vm-en"><concept>tm-vm</concept></a> for VM
<li><concept>tm-rmail</concept> for RMAIL
</ul>
@item
tm-MUA for mh-e (@ref{(tm-mh-e-en)})
@item
+tm-MUA for VM (@ref{(tm-vm-en)})
+@item
mime/viewer-mode (@ref{(tm-view-en)})
@item
mime/editor-mode (@ref{(tm-edit-en)})
@item
@strong{gnus-mime} (@ref{(gnus-mime-en)}) for Gnus
@item
-@strong{tm-vm} (@ref{(tm-vm_en)}) for VM
+@strong{tm-vm} (@ref{(tm-vm-en)}) for VM
@item
@strong{tm-rmail} for RMAIL
@end itemize
* tm-MUA for Gnus (*Note (gnus-mime-ja)::)
* tm-MUA for GNUS (*Note (tm-gnus-ja)::)
* tm-MUA for mh-e (*Note (tm-mh-e-ja)::)
+ * tm-MUA for VM (*Note (tm-vm-en)::)
* mime/viewer-mode (*Note (tm-view-ja)::)
* mime/editor-mode (*Note (tm-edit-ja)::)
*tm \e$BBg@9$j\e(B package* \e$B$K$O\e(B
- * mh-e (*Note (mh-e)::) \e$BMQ$N\e(B *tm-mh-e*
- * GNUS \e$BMQ$N\e(B *tm-gnus*
+ * mh-e (*Note (mh-e)::) \e$BMQ$N\e(B
+ *tm-mh-e* (*Note (tm-mh-e-en)::)
+ * GNUS \e$BMQ$N\e(B *tm-gnus* (*Note (tm-gnus-ja)::)
* Gnus \e$BMQ$N\e(B *gnus-mime* (*Note (gnus-mime-ja)::)
- * VM \e$BMQ$N\e(B *tm-vm*
+ * VM \e$BMQ$N\e(B *tm-vm* (*Note (tm-vm-en)::)
* RMAIL \e$BMQ$N\e(B *tm-rmail*
\e$B$,4^$^$l$F$$$k!#\e(B
Tag table:
Node: Top\7f152
Node: Introduction\7f721
-Node: Glossary\7f1462
-Node: 7bit\7f4992
-Node: 8bit\7f6273
-Node: 94-character set\7f8293
-Node: 96-character set\7f8579
-Node: 94x94-character set\7f8859
-Node: ASCII\7f9176
-Node: Base64\7f9606
-Node: binary\7f10304
-Node: cn-gb\7f10859
-Node: cn-big5\7f11338
-Node: CNS 11643\7f11981
-Node: Coded character set\7f12751
-Node: Code extension\7f13084
-Node: Content-Disposition\7f13442
-Node: Content-Type field\7f13891
-Node: Emacs\7f14986
-Node: encoded-word\7f15220
-Node: encapsulation\7f15642
-Node: entity\7f15937
-Node: euc-kr\7f16228
-Node: FTP\7f16738
-Node: GB 2312\7f17023
-Node: GB 8565.2\7f17585
-Node: Graphic character set\7f18076
-Node: hz-gb2312\7f18340
-Node: ISO 2022\7f19161
-Node: iso-2022-cn\7f19791
-Node: iso-2022-cn-ext\7f20274
-Node: iso-2022-jp\7f20953
-Node: iso-2022-jp-2\7f21663
-Node: iso-2022-kr\7f22072
-Node: ISO 646\7f22505
-Node: ISO 8859-1\7f23180
-Node: iso-8859-1\7f23611
-Node: ISO 8859-2\7f24056
-Node: iso-8859-2\7f24490
-Node: ISO 8859-3\7f24929
-Node: ISO 8859-4\7f25246
-Node: ISO 8859-5\7f25563
-Node: iso-8859-5\7f25972
-Node: ISO 8859-6\7f26414
-Node: ISO 8859-7\7f26733
-Node: iso-8859-7\7f27137
-Node: ISO 8859-8\7f27687
-Node: ISO 8859-9\7f28006
-Node: ISO-IR-165\7f28323
-Node: JIS X0201\7f28845
-Node: JIS C6226\7f29748
-Node: JIS X0208\7f30040
-Node: JIS X0212\7f31939
-Node: koi8-r\7f32298
-Node: KS C5601\7f32796
-Node: media type\7f33208
-Node: message\7f34616
-Node: message/rfc822\7f34881
-Node: method\7f35189
-Node: MIME\7f35540
-Node: MIME charset\7f36764
-Node: MTA\7f37340
-Node: MUA\7f37554
-Node: MULE\7f37729
-Node: multipart\7f38592
-Node: multipart/alternative\7f39457
-Node: multipart/digest\7f39762
-Node: multipart/encrypted\7f40424
-Node: multipart/mixed\7f40754
-Node: multipart/parallel\7f41047
-Node: multipart/signed\7f41334
-Node: PGP\7f41630
-Node: PGP-kazu\7f42466
-Node: PGP/MIME\7f43872
-Node: Quoted-Printable\7f44905
-Node: RFC 821\7f45671
-Node: RFC 822\7f45951
-Node: RFC 934\7f46435
-Node: RFC 1036\7f46888
-Node: RFC 1153\7f47344
-Node: RFC 1557\7f47841
-Node: RFC 1922\7f48232
-Node: RFC 2045\7f48897
-Node: RFC 2046\7f49208
-Node: RFC 2048\7f49497
-Node: RFC 2049\7f49812
-Node: plain text\7f50126
-Node: Security multipart\7f50401
-Node: text/enriched\7f51037
-Node: text/plain\7f51479
-Node: tm-kernel\7f51984
-Node: tm-MUA\7f52489
-Node: us-ascii\7f53008
-Node: Setting\7f53674
-Node: mime-setup\7f54354
-Node: signature\7f54975
-Node: Notice about GNUS\7f56733
-Node: tm-setup\7f57885
-Node: setting for VM\7f58725
-Node: manual setting\7f59091
-Node: Bug report\7f59646
-Node: Acknowledgments\7f61258
-Node: Concept Index\7f62898
-Node: Variable Index\7f72297
+Node: Glossary\7f1502
+Node: 7bit\7f5032
+Node: 8bit\7f6313
+Node: 94-character set\7f8333
+Node: 96-character set\7f8619
+Node: 94x94-character set\7f8899
+Node: ASCII\7f9216
+Node: Base64\7f9646
+Node: binary\7f10344
+Node: cn-gb\7f10899
+Node: cn-big5\7f11378
+Node: CNS 11643\7f12021
+Node: Coded character set\7f12791
+Node: Code extension\7f13124
+Node: Content-Disposition\7f13482
+Node: Content-Type field\7f13931
+Node: Emacs\7f15026
+Node: encoded-word\7f15260
+Node: encapsulation\7f15682
+Node: entity\7f15977
+Node: euc-kr\7f16268
+Node: FTP\7f16778
+Node: GB 2312\7f17063
+Node: GB 8565.2\7f17625
+Node: Graphic character set\7f18116
+Node: hz-gb2312\7f18380
+Node: ISO 2022\7f19201
+Node: iso-2022-cn\7f19831
+Node: iso-2022-cn-ext\7f20314
+Node: iso-2022-jp\7f20993
+Node: iso-2022-jp-2\7f21703
+Node: iso-2022-kr\7f22112
+Node: ISO 646\7f22545
+Node: ISO 8859-1\7f23220
+Node: iso-8859-1\7f23651
+Node: ISO 8859-2\7f24096
+Node: iso-8859-2\7f24530
+Node: ISO 8859-3\7f24969
+Node: ISO 8859-4\7f25286
+Node: ISO 8859-5\7f25603
+Node: iso-8859-5\7f26012
+Node: ISO 8859-6\7f26454
+Node: ISO 8859-7\7f26773
+Node: iso-8859-7\7f27177
+Node: ISO 8859-8\7f27727
+Node: ISO 8859-9\7f28046
+Node: ISO-IR-165\7f28363
+Node: JIS X0201\7f28885
+Node: JIS C6226\7f29788
+Node: JIS X0208\7f30080
+Node: JIS X0212\7f31979
+Node: koi8-r\7f32338
+Node: KS C5601\7f32836
+Node: media type\7f33248
+Node: message\7f34656
+Node: message/rfc822\7f34921
+Node: method\7f35229
+Node: MIME\7f35580
+Node: MIME charset\7f36804
+Node: MTA\7f37380
+Node: MUA\7f37594
+Node: MULE\7f37769
+Node: multipart\7f38632
+Node: multipart/alternative\7f39497
+Node: multipart/digest\7f39802
+Node: multipart/encrypted\7f40464
+Node: multipart/mixed\7f40794
+Node: multipart/parallel\7f41087
+Node: multipart/signed\7f41374
+Node: PGP\7f41670
+Node: PGP-kazu\7f42506
+Node: PGP/MIME\7f43912
+Node: Quoted-Printable\7f44945
+Node: RFC 821\7f45711
+Node: RFC 822\7f45991
+Node: RFC 934\7f46475
+Node: RFC 1036\7f46928
+Node: RFC 1153\7f47384
+Node: RFC 1557\7f47881
+Node: RFC 1922\7f48272
+Node: RFC 2045\7f48937
+Node: RFC 2046\7f49248
+Node: RFC 2048\7f49537
+Node: RFC 2049\7f49852
+Node: plain text\7f50166
+Node: Security multipart\7f50441
+Node: text/enriched\7f51077
+Node: text/plain\7f51519
+Node: tm-kernel\7f52024
+Node: tm-MUA\7f52529
+Node: us-ascii\7f53121
+Node: Setting\7f53787
+Node: mime-setup\7f54467
+Node: signature\7f55088
+Node: Notice about GNUS\7f56846
+Node: tm-setup\7f57998
+Node: setting for VM\7f58838
+Node: manual setting\7f59204
+Node: Bug report\7f59759
+Node: Acknowledgments\7f61371
+Node: Concept Index\7f63011
+Node: Variable Index\7f72410
\1f
End tag table
<!doctype sinfo system>
-<!-- $Id: tm-ja.sgml,v 7.5 1996/12/25 18:38:38 morioka Exp $ -->
+<!-- $Id: tm-ja.sgml,v 7.6 1997/01/10 06:32:24 morioka Exp $ -->
<head>
<title>tm 7.100 Manual\e$B!JF|K\8lHG!K\e(B
<author>\e$B<i2,\e(B \e$BCNI'\e(B <mail>morioka@jaist.ac.jp</mail>
<li><a file="gnus-mime-ja">tm-MUA for Gnus</a>
<li><a file="tm-gnus-ja">tm-MUA for GNUS</a>
<li><a file="tm-mh-e-ja">tm-MUA for mh-e</a>
+<li><a file="tm-vm-en">tm-MUA for VM</a>
<li><a file="tm-view-ja">mime/viewer-mode</a>
<li><a file="tm-edit-ja">mime/editor-mode</a>
</ul>
<concept>tm \e$BBg@9$j\e(B package</concept> \e$B$K$O\e(B
<ul>
-<li><a file="mh-e">mh-e</a> \e$BMQ$N\e(B <concept>tm-mh-e</concept>
-<li>GNUS \e$BMQ$N\e(B <concept>tm-gnus</concept>
+<li><a file="mh-e">mh-e</a> \e$BMQ$N\e(B
+ <a file="tm-mh-e-en"><concept>tm-mh-e</concept></a>
+<li>GNUS
\e$BMQ$N
\e(B <a file="tm-gnus-ja"><concept>tm-gnus</concept></a>
<li>Gnus
\e$BMQ$N
\e(B <a file="gnus-mime-ja"><concept>gnus-mime</concept></a>
-<li>VM \e$BMQ$N\e(B <concept>tm-vm</concept>
+<li>VM
\e$BMQ$N
\e(B <a file="tm-vm-en"><concept>tm-vm</concept></a>
<li>RMAIL \e$BMQ$N\e(B <concept>tm-rmail</concept>
</ul>
@item
tm-MUA for mh-e (@ref{(tm-mh-e-ja)})
@item
+tm-MUA for VM (@ref{(tm-vm-en)})
+@item
mime/viewer-mode (@ref{(tm-view-ja)})
@item
mime/editor-mode (@ref{(tm-edit-ja)})
@itemize @bullet
@item
-mh-e (@ref{(mh-e)}) \e$BMQ$N\e(B @strong{tm-mh-e}
+mh-e (@ref{(mh-e)}) \e$BMQ$N\e(B
+ @strong{tm-mh-e} (@ref{(tm-mh-e-en)})
@item
-GNUS \e$BMQ$N\e(B @strong{tm-gnus}
+GNUS \e$BMQ$N\e(B @strong{tm-gnus} (@ref{(tm-gnus-ja)})
@item
Gnus \e$BMQ$N\e(B @strong{gnus-mime} (@ref{(gnus-mime-ja)})
@item
-VM \e$BMQ$N\e(B @strong{tm-vm}
+VM \e$BMQ$N\e(B @strong{tm-vm} (@ref{(tm-vm-en)})
@item
RMAIL \e$BMQ$N\e(B @strong{tm-rmail}
@end itemize
-Fri Dec 27 20:14:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+1997-01-22 Steve Carney <carney@gvc.dec.com>
- * tm-au: rearrangement.
+ * tm-au: modified to support Digital Unix.
+
+Fri Jan 10 14:53:36 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-plain, tm-html, tm-file, tm-au: Add header.
+
+Tue Jan 7 04:07:20 1997 Martin Buchholz <mrb@Eng.Sun.COM>
+
+ * tmdecode, tm-ps, tm-plain, tm-html, tm-mpeg, tm-image, tm-file,
+ tm-au: avoid to lost submodules.
Fri Dec 27 13:57:36 1996 Chris Felaco <felaco@GPW058.ED.RAY.COM>
#!/bin/sh -
#
-# $Id: tm-au,v 3.4 1996/12/27 20:14:12 morioka Exp $
+# $Id: tm-au,v 4.1 1997/01/27 15:52:59 morioka Exp $
#
+# Copyright 1994,1995,1996,1997 Free Software Foundation, Inc.
+
+# 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.
+
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
echo "$2; $3 ->"
tmdecode $3 $1 $filename
if [ "$AUDIOSERVER" = "" ]; then
- if [ `uname` = "IRIX" ]; then
- sfplay $filename
- else
- cat $filename > /dev/audio
- fi
+ case "`uname`" in
+ IRIX ) sfplay $filename ;;
+ OSF1 ) decsound -play $filename ;;
+ * ) cat $filename > /dev/audio ;;
+ esac
else
- autool -v 40 $filename
+ autool -v 40 $filename
fi
+
trap 'rm -f $filename' 0 1 2 3 13 15
;;
"extract")
#!/bin/sh -
#
-# $Id: tm-file,v 3.0 1995/12/18 11:39:26 morioka Exp $
+# $Id: tm-file,v 4.0 1997/01/10 14:50:32 morioka Exp $
#
+# Copyright 1994,1995,1996,1997 Free Software Foundation, Inc.
+
+# 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.
+
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
#!/bin/sh
#
-# $Id: tm-html,v 4.1 1996/08/08 15:58:28 morioka Exp $
+# $Id: tm-html,v 5.0 1997/01/10 14:51:59 morioka Exp $
#
+# Copyright 1994,1995,1996,1997 Free Software Foundation, Inc.
+
+# 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.
+
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
#!/bin/sh -
#
-# $Id: tm-image,v 1.1 1996/09/21 15:12:12 morioka Exp $
+# $Id: tm-image,v 2.0 1997/01/10 14:42:48 morioka Exp $
#
# Copyright 1994, 1995, 1996 Free Software Foundation, Inc.
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
+
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
export TM_TMP_DIR
#!/bin/sh -
#
-# $Id: tm-mpeg,v 1.1 1996/09/21 15:14:49 morioka Exp $
+# $Id: tm-mpeg,v 2.0 1997/01/10 14:43:13 morioka Exp $
#
# Copyright 1994, 1995, 1996 Free Software Foundation, Inc.
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
+
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
export TM_TMP_DIR
#!/bin/sh -
#
-# $Id: tm-plain,v 3.0 1995/12/18 11:37:12 morioka Exp $
+# $Id: tm-plain,v 4.0 1997/01/10 14:53:36 morioka Exp $
#
+# Copyright 1994,1995,1996,1997 Free Software Foundation, Inc.
+
+# 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.
+
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
echo "$2; $3 ->"
tmdecode "$3" "$1" /dev/stdout | lpr
;;
-esac
\ No newline at end of file
+esac
#!/bin/sh -
#
-# $Id: tm-ps,v 1.1 1996/09/21 15:07:41 morioka Exp $
+# $Id: tm-ps,v 2.0 1997/01/10 14:46:10 morioka Exp $
#
# Copyright 1994, 1995, 1996 Free Software Foundation, Inc.
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
+
if [ "$TM_TMP_DIR" = "" ]; then
TM_TMP_DIR=/tmp
export TM_TMP_DIR
#!/bin/sh -
#
-# $Id: tmdecode,v 4.0 1996/09/21 15:08:47 morioka Exp $
+# $Id: tmdecode,v 4.1 1997/01/10 14:47:06 morioka Exp $
#
# Copyright 1994, 1995, 1996 Free Software Foundation, Inc.
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
+PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
+
trap 'rm -f $2' 0 1 2 3 13 15
case "$3" in
;;; mime-setup.el --- setup file for tm viewer and composer.
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: mime-setup.el.in,v 7.29 1996/11/05 02:53:26 shuhei-k Exp $
+;; $Id: mime-setup.el.in,v 7.31 1997/01/30 09:10:29 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;; This file is part of tm (Tools for MIME).
(add-hook 'mu-cite/pre-cite-hook 'mime/decode-message-header)
-;;; @ for RMAIL and VM
+;;; @ for mail-mode, RMAIL and VM
;;;
(add-hook 'mail-setup-hook 'mime/decode-message-header)
(add-hook 'mail-setup-hook 'mime/editor-mode 'append)
(add-hook 'mail-send-hook 'mime-editor/maybe-translate)
-
+(set-alist 'mime-editor/split-message-sender-alist
+ 'mail-mode (function
+ (lambda ()
+ (interactive)
+ (funcall send-mail-function)
+ )))
;;; @ for mh-e
;;;
;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: tm-def.el,v 7.67 1996/12/27 20:39:43 morioka Exp $
+;; Version: $Id: tm-def.el,v 7.69 1997/01/21 06:13:15 shuhei-k Exp $
;; Keywords: mail, news, MIME, multimedia, definition
;; This file is part of tm (Tools for MIME).
(defvar tm:mouse-face 'highlight
"Face used for MIME-preview buffer mouse highlighting. [tm-def.el]")
+(defvar tm:warning-face nil
+ "Face used for invalid encoded-word.")
+
(defun tm:add-button (from to func &optional data)
"Create a button between FROM and TO with callback FUNC and data DATA."
(and tm:button-face
;;; @@ Base64
;;;
-(defconst base64-token-regexp "[A-Za-z0-9+/=]")
+(defconst base64-token-regexp "[A-Za-z0-9+/]")
(defconst base64-token-padding-regexp "[A-Za-z0-9+/=]")
(defconst mime/B-encoded-text-regexp
;;; tm-edit.el --- Simple MIME Composer for GNU Emacs
-;; Copyright (C) 1993 .. 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1993,1994,1995,1996,1997 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
-;; Version: $Revision: 7.100 $
+;; Version: $Revision: 7.102 $
;; Keywords: mail, news, MIME, multimedia, multilingual
;; This file is part of tm (Tools for MIME).
;; 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] or `ISO-2022-INT-1'. Mule is required
-;; for reading the such messages.
+;; `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
;; This is also a plain text. But, it is explicitly specified as is.
;;
;;--[[text/plain; charset=ISO-2022-JP]]
-;; \e$B$3$l$O\e(B charset \e$B$r\e(B ISO-2022-JP \e$B$K;XDj$7$?F|K\8l$N\e(B plain \e$B%F%-%9%H$G$9\e(B.
+;; \e$(B$3$l$O\e(B charset \e$(B$r\e(B ISO-2022-JP \e$(B$K;XDj$7$?F|K\8l$N\e(B plain \e$(B%F%-%9%H$G$9\e(B.
;;
;;--[[text/richtext]]
;; <center>This is a richtext.</center>
;;;
(defconst mime-editor/RCS-ID
- "$Id: tm-edit.el,v 7.100 1996/12/25 17:10:58 morioka Exp $")
+ "$Id: tm-edit.el,v 7.102 1997/01/30 11:31:36 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
--[[text/plain]]
This is also a plain text. But, it is explicitly specified as
is.
- --[[text/plain; charset=ISO-2022-JP]]
- \e$B$3$l$O\e(B charset \e$B$r\e(B ISO-2022-JP \e$B$K;XDj$7$?F|K\8l$N\e(B plain \e$B%F%-%9\e(B
- \e$B%H$G$9\e(B.
- --[[text/richtext]]
- <center>This is a richtext.</center>
- --[[image/gif][base64]]^M...image encoded in base64 here...
- --[[audio/basic][base64]]^M...audio encoded in base64 here...
+ --[[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-prefix
;; Restore previous state.
(setq mime/editor-mode-flag nil)
(cond (running-xemacs
- (delete-menu-item (list mime-editor/menu-title)))
+ (if (featurep 'menubar)
+ (delete-menu-item (list mime-editor/menu-title))))
(t
(use-local-map mime/editor-mode-old-local-map)))
;;; tm-ew-d.el --- RFC 2047 based encoded-word decoder for GNU Emacs
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: ENAMI Tsugutomo <enami@sys.ptg.sony.co.jp>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; 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)
-;; Version: $Revision: 7.34 $
+;; Version: $Revision: 7.39 $
;; Keywords: encoded-word, MIME, multilingual, header, mail, news
;; This file is part of tm (Tools for MIME).
(require 'std11)
(require 'mel)
(require 'tm-def)
+(require 'tl-str)
;;; @ version
;;;
(defconst tm-ew-d/RCS-ID
- "$Id: tm-ew-d.el,v 7.34 1996/12/04 04:49:14 morioka Exp $")
+ "$Id: tm-ew-d.el,v 7.39 1997/01/21 06:17:18 shuhei-k Exp $")
(defconst mime/eword-decoder-version (get-version-string tm-ew-d/RCS-ID))
(mime/unfolding)
)
(goto-char (point-min))
- (while (re-search-forward "\\?=\\(\n*\\s +\\)+=\\?" nil t)
- (replace-match "?==?")
+ (while (re-search-forward (concat "\\(" mime/encoded-word-regexp "\\)"
+ "\\(\n?[ \t]\\)+"
+ "\\(" mime/encoded-word-regexp "\\)")
+ nil t)
+ (replace-match "\\1\\6")
+ (goto-char (point-min))
)
- (goto-char (point-min))
(let (charset encoding text)
(while (re-search-forward mime/encoded-word-regexp nil t)
(insert (mime/decode-encoded-word
))
(condition-case err
(mime/decode-encoded-text charset encoding text must-unfold)
- (error nil))
- ))
+ (error
+ (and (tl:add-text-properties 0 (length word)
+ (and tm:warning-face
+ (list 'face tm:warning-face))
+ word)
+ word)))
+ ))
word))
(let ((cs (mime-charset-to-coding-system charset)))
(if cs
(let ((dest
- (cond ((and (string-equal "B" encoding)
- (string-match mime/B-encoded-text-regexp string))
- (base64-decode-string string))
- ((and (string-equal "Q" encoding)
- (string-match mime/Q-encoded-text-regexp string))
- (q-encoding-decode-string string))
- (t (message "Invalid encoded-word %s" encoding)
- nil))))
+ (cond
+ ((string-equal "B" encoding)
+ (if (and (string-match mime/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 mime/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)
- (if (eq chr ?\n)
- ""
- (char-to-string chr)
- )
+ (cond
+ ((eq chr ?\n) "")
+ ((eq chr ?\t) " ")
+ (t (char-to-string chr)))
))
(std11-unfold-string dest)
"")
;;; tm-pgp.el --- tm-view internal methods for PGP.
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/12/7
-;; Version: $Id: tm-pgp.el,v 7.24 1996/10/18 04:47:02 morioka Exp $
+;; Version: $Id: tm-pgp.el,v 7.28 1997/01/29 15:18:53 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, PGP, security
;; This file is part of tm (Tools for MIME).
;; This module is based on 2 drafts about PGP MIME integration:
-;; - draft-elkins-pem-pgp-04.txt
-;; ``MIME Security with Pretty Good Privacy (PGP)''
+;; - RFC 2015: "MIME Security with Pretty Good Privacy (PGP)"
;; by Michael Elkins <elkins@aero.org> (1996/6)
;;
-;; - draft-kazu-pgp-mime-00.txt
-;; ``PGP MIME Integration''
-;; by Kazuhiko Yamamoto <kazu@is.aist-nara.ac.jp> (1995/10)
+;; - draft-kazu-pgp-mime-00.txt: "PGP MIME Integration"
+;; by Kazuhiko Yamamoto <kazu@is.aist-nara.ac.jp>
+;; (1995/10; expired)
;;
-;; These drafts may be contrary to each other. You should decide
-;; which you support.
+;; These drafts may be contrary to each other. You should decide
+;; which you support. (Maybe you should use PGP/MIME)
;;; Code:
-(require 'mailcrypt)
(require 'tm-play)
+(defvar pgp-verify-function
+ 'mc-verify "*PGP verify function.")
+
+(defvar pgp-decrypt-function
+ 'mc-decrypt "*PGP decrypt function.")
+
+(defvar pgp-fetch-key-function
+ 'mc-pgp-fetch-key "*PGP fetch key function.")
+
+(defvar pgp-snarf-keys-function
+ 'mc-snarf-keys "*PGP snarf keys function.")
+
+(autoload pgp-verify-function "mc-toplev")
+(autoload pgp-decrypt-function "mc-toplev")
+(autoload pgp-fetch-key-function "mc-toplev")
+(autoload pgp-snarf-keys-function "mc-toplev")
+
;;; @ internal method for application/pgp
;;;
(new-name (format "%s-%s" (buffer-name) cnum))
(mother mime::article/preview-buffer)
(mode major-mode)
- code-converter str)
- (setq str (buffer-substring beg end))
+ code-converter
+ (str (buffer-substring beg end))
+ )
(switch-to-buffer new-name)
(erase-buffer)
(insert str)
(goto-char (point-min))
(re-search-forward "^-+BEGIN PGP SIGNED MESSAGE-+$" nil t)
)
- (mc-verify)
+ (funcall pgp-verify-function)
(goto-char (point-min))
(delete-region
(point-min)
(goto-char (point-min))
(re-search-forward "^-+BEGIN PGP MESSAGE-+$" nil t)
)
- (as-binary-process (mc-decrypt))
+ (as-binary-process (funcall pgp-decrypt-function))
(goto-char (point-min))
(delete-region (point-min)
(and
;;; @ Internal method for application/pgp-signature
;;;
-;;; It is based on draft-elkins-pem-pgp-02.txt
+;;; It is based on RFC 2015.
(defvar tm-pgp::default-language 'en
"*Symbol of language for pgp.
(while (re-search-forward "\n" nil t)
(replace-match "\r\n")
)
- (let ((mc-flag nil) ; for Mule
- (file-coding-system *noconv*)
- kanji-flag ; for NEmacs
- (emx-binary-mode t) ; for OS/2
- jka-compr-compression-info-list ; for jka-compr
- jam-zcat-filename-list ; for jam-zcat
- require-final-newline)
- (write-file orig-file)
- )
+ (as-binary-output-file (write-file orig-file))
(kill-buffer (current-buffer))
)
(save-excursion
(set-buffer (setq kbuf (get-buffer-create mime/temp-buffer-name)))
(insert str)
(mime-decode-region (point-min)(point-max) encoding)
- (let ((mc-flag nil) ; for Mule
- (file-coding-system *noconv*)
- kanji-flag ; for NEmacs
- (emx-binary-mode t) ; for OS/2
- jka-compr-compression-info-list ; for jka-compr
- jam-zcat-filename-list ; for jam-zcat
- require-final-newline)
- (write-file sig-file)
- )
- ;;(get-buffer-create mime/output-buffer-name)
+ (as-binary-output-file (write-file sig-file))
(or (mime::article/call-pgp-to-check-signature
mime/output-buffer-name orig-file)
(let (pgp-id)
(format "Key %s not found; attempt to fetch? " pgp-id))
)
(progn
- (mc-pgp-fetch-key (cons nil pgp-id))
+ (funcall pgp-fetch-key-function (cons nil pgp-id))
(mime::article/call-pgp-to-check-signature
mime/output-buffer-name orig-file)
))
;;; @ Internal method for application/pgp-encrypted
;;;
-;;; It is based on draft-elkins-pem-pgp-02.txt
+;;; It is based on RFC 2015.
(defun mime-article/decrypt-pgp (beg end cal)
(let* ((cnum (mime-article/point-content-number beg))
;;; @ Internal method for application/pgp-keys
;;;
-;;; It is based on draft-elkins-pem-pgp-02.txt
-
-(autoload 'mc-snarf-keys "mc-toplev")
+;;; It is based on RFC 2015.
(defun mime-article/add-pgp-keys (beg end cal)
(let* ((cnum (mime-article/point-content-number beg))
(delete-region (point-min) (match-end 0))
)
(mime-decode-region (point-min)(point-max) encoding)
- (mc-snarf-keys)
+ (funcall pgp-snarf-keys-function)
(kill-buffer (current-buffer))
))
projects / elisp / tm.git / commitdiff