+Wed May 8 12:48:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.22.2 was released.
+ * tm: Version 7.57 was released.
+ * tm/gnus: Version 7.55 was released.
+
+Tue May 7 06:28:36 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-rich.el: Version dependent code was moved to emu.el.
+
+Sun May 5 16:40:31 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime-editor/normalize-body): call function
+ `enriched-encode' for text/enriched part.
+
+ * tm-edit.el (mime-editor/process-multipart-1): didn't refer
+ variable `mime-editor/encrypting-type'.
+
+ * tm-edit.el: Function `mime-editor/process-pgp-kazu' was
+ abolished.
+ (mime-editor/sign-pgp-kazu): New function.
+ (mime-editor/encrypt-pgp-kazu): New function.
+ (mime-editor/process-multipart-1): Use function
+ `mime-editor/sign-pgp-kazu' and `mime-editor/encrypt-pgp-kazu'.
+
+Sat May 4 09:08:49 1996 Hiroshi Ueno <zodiac@ibm.net>
+
+ * TM-CFG (TM_GNUS_COMPILE, MAKE): New variable.
+
+ * inst-tm (compile-tm): Use variable `TM_GNUS_COMPILE' and `MAKE'.
+
+Sat May 4 04:58:37 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-ew-e.el (tm-eword::encode-string-1): fixed (cf.[tm-ja:1818])
+
+Mon Apr 29 13:42:15 1996 Kevin Broadey <KevinB@bartley.demon.co.uk>
+
+ * tm-view.el (mime-viewer/make-preview-buffer): fixed
+ (cf.[tm-en:480])
+
+\f
Mon Apr 29 02:29:21 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.22.1 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.56.tar.gz
+TARFILE = tm7.57.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-CFG,v 4.0 1996/04/21 18:10:08 morioka Exp morioka $
+;;; $Id: TM-CFG,v 5.0 1996/05/05 11:13:35 morioka Exp morioka $
;;;
(setq load-path (append
;; Please specify install path prefix.
;;(setq PREFIX "~/") ; install to you home directory
-(setq PREFIX "/usr/local/") ; install to shared directory
-;;(setq PREFIX "/lab/local/")
+;;(setq PREFIX "/usr/local/") ; install to shared directory
+(setq PREFIX "/lab/local/")
;; Please specify tm package prefix [optional]
(setq TM_PACKAGE_PREFIX "")
(setq TM_GNUS_INSTALL_FORMAT
"cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
+(setq TM_GNUS_COMPILE ".gnus-compile")
+(setq MAKE "make")
(setq el-file-mode (+ (* 64 6)(* 8 4) 4))
--- /dev/null
+@c $Id: tm-edit-en.texi,v 3.0 1996/05/08 12:43:50 morioka Exp $
+
+@node tm-edit, encoded-word, tm-view, Top
+@comment node-name, next, previous, up
+@chapter tm-edit
+@cindex tm-edit
+
+tm-edit is a general MIME viewer for GNU Emacs.
+
+tm-edit is based on mime.el by UMEDA Masanobu
+<umerin@@mse.kyutech.ac.jp>, who is famous as the author of GNUS.
+tm-edit expands following points from mime.el:
+
+@itemize @bullet
+@item based on RFC 1521/1522
+@item Content-Disposition field (RFC 1806) supports
+@item multi-part in multi-part
+@item PGP
+@item strength automatic specification for parameter of file type
+@end itemize
+
+
+@menu
+* mime/editor-mode::
+* single-part operations::
+* enclosure operation::
+* other operations of mime/editor-mode::
+@end menu
+
+
+@node mime/editor-mode, single-part operations, tm-edit, tm-edit
+@comment node-name, next, previous, up
+@section mime/editor-mode
+@cindex mime/editor-mode
+
+@emph{mime/editor-mode} is a minor mode to compose MIME message.
+In this mode, @emph{tag} represents various kinds of data, you can
+edit multi-part message.
+
+There are 2 kinds of @emph{tag}s:
+
+@itemize @bullet
+@item single-part tag
+@item multi-part tag
+@end itemize
+
+single-part tag represents single part, this form is following:
+
+@example
+ --[[TYPE/SUBTYPE;PARAMETERS][ENCODING]
+ OPTIONAL-FIELDS]
+@end example
+
+TYPE/SUBTYPE and PARAMETERS indicates type/subtype and parameters of
+Content-Type field. TYPE/SUBTYPE is required, PARAMETERS is optional.
+
+ENCODING indicates Content-Transfer-Encoding field. It is optional too.
+
+OPTIONAL-FIELDS is to represent another fields except Content-Type
+field and Content-Transfer-Encoding field.
+
+multi-part tags represent multi part. They consist of a pair of
+@emph{multi-part beginning tag} and @emph{multi-part ending tag}.
+
+@emph{multi-part beginning tag}'s form is following:
+
+@example
+ --<<TYPE>>-@{
+@end example
+
+@emph{multi-part ending tag}'s form is following:
+
+@example
+ --@}-<<TYPE>>
+@end example
+
+A region from multi-part beginning tag to multi-part ending tag is
+called as @emph{enclosure}.
+
+
+@node single-part operations, enclosure operation, mime/editor-mode, tm-edit
+@comment node-name, next, previous, up
+@section single-part operations
+@cindex single-part
+
+Operations to make single-part are following:
+
+@table @kbd
+@item @key{C-c C-x C-t}
+Insert single-part tag indicates text part.
+
+@item @key{C-c C-x C-i}
+Insert file as a MIME attachment.
+
+@item @key{C-c C-x C-e}
+Insert external part.
+
+@item @key{C-c C-x C-v}
+Record audio input until @key{C-g} is pressed, and insert as a audio
+part. (It requires /dev/audio in default.)
+
+@item @key{C-c C-x C-y}
+Insert current (mail or news) message. (It is MUA depended.)
+
+@item @key{C-c C-x C-m}
+Insert mail message. (It is MUA depended.)
+
+@item @key{C-c C-x C-w, C-c C-x C-s}
+Insert signature.
+
+@item @key{C-c C-x C-k}
+Insert PGP public key. (It requires Mailcrypt package.)
+
+@item @key{C-c C-x t}
+Insert any single-part tag.
+@end table
+
+
+@node enclosure operation, other operations of mime/editor-mode, single-part operations, tm-edit
+@comment node-name, next, previous, up
+@section enclosure operations
+@cindex multi-part
+@cindex enclosure
+
+Operations to make enclosure are following:
+
+@table @kbd
+@item @key{C-c C-x a}
+Enclose specified region as multipart/alternative.
+
+@item @key{C-c C-x p}
+Enclose specified region as multipart/parallel.
+
+@item @key{C-c C-x m}
+Enclose specified region as multipart/mixed.
+
+@item @key{C-c C-x d}
+Enclose specified region as multipart/digest.
+
+@item @key{C-c C-x s}
+Digital-sign to specified region. (*1)
+
+@item @key{C-c C-x e}
+Encrypt to specified region. (*1)
+@end table
+
+@b{[Notice]}
+@enumerate
+@item
+It requires Mailcrypt package and pgp package. In addition, please set
+symbol @code{pgp-elkins} or @code{pgp-kazu} to
+variable @code{mime-editor/signing-type} and
+@code{mime-editor/encrypting-type}.
+
+@code{pgp-elkins} indicates draft-elkins-pem-pgp-02.txt,
+@code{pgp-kazu} indicates draft-kazu-pgp-mime-00.txt.
+@end enumerate
+
+
+@node other operations of mime/editor-mode, , enclosure operation, tm-edit
+@comment node-name, next, previous, up
+@section Another operation in mime/editor-mode.
+
+There are another operations in mime/editor-mode.
+
+@table @kbd
+@item @key{C-c C-c}
+Send current editing message.
+
+@item @key{C-c C-x C-p}
+Preview current editing message.
+
+@item @key{C-c C-x C-z}
+Exit mime/editor-mode. (@key{M-x mime/edit-again} is available to
+reedit.)
+
+@item @key{C-c C-x ?}
+Display help message.
+
+@item @key{M-x mime-editor/set-split}
+Set current editing message to enable automatic splitting or not.
+Form of automatic split messages is message/partial.
+
+@item @key{M-x mime-editor/set-sign}
+Set current editing message to digital-sign or not. (*1)
+
+@item @key{M-x mime-editor/set-encrypt}
+Set current editing message to encrypt or not. (*1)
+@end table
+
+@b{[Notice]}
+@enumerate
+@item
+It requires Mailcrypt package and pgp package. In addition, please set
+symbol @code{pgp-elkins} or @code{pgp-kazu} to
+variable @code{mime-editor/signing-type} and
+@code{mime-editor/encrypting-type}.
+
+@code{pgp-elkins} indicates draft-elkins-pem-pgp-02.txt,
+@code{pgp-kazu} indicates draft-kazu-pgp-mime-00.txt.
+@end enumerate
@titlepage
@title tm Manual (English Version)
@author by MORIOKA Tomohiko
-@code{$Id: tm_en.texi,v 7.14 1996/04/24 12:57:47 morioka Exp $}
+@code{$Id: tm_en.texi,v 7.15 1996/05/08 12:42:01 morioka Exp $}
@end titlepage
@include tm-view=en.texi
-@include tm-edit=en.texi
+@include tm-edit-en.texi
@include tm-ew=en.texi
@titlepage
@title{tm Manual¡ÊÆüËܸìÈÇ¡Ë}
@author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm_ja.texi,v 7.8 1996/04/24 12:56:59 morioka Exp $}
+@code{$Id: tm_ja.texi,v 7.11 1996/05/08 12:30:47 morioka Exp morioka $}
@end titlepage
@menu
* Introduction:: ¤Ï¤¸¤á¤Ë
-* Emacs-Versions:: Emacs ¤Î¼ïÎàÊ̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â
* Setting:: ÀßÄê
* tm-MUA:: mh-e, GNUS, RMAIL, VM ¤Ê¤É³Æ¼ï MUA ¤Î³ÈÄ¥
@end menu
-@node Introduction, Emacs-Versions, Top, Top
+@node Introduction, Setting, Top, Top
@comment node-name, next, previous, up
@chapter tm ¤È¤Ï
@cindex tm ¤È¤Ï
@item @strong{mime-setup:} MIME ´Ø·¸Á´È̤ÎÀßÄê module
@end itemize
-@menu
-* tm-view::
-* tm-mh-e:(tm-mh-e_ja.info).
-* tm-gnus:(tm-gnus_ja.info).
-* tm-rmail:(tm-rmail_ja.info).
-* tm-vm:(tm-vm_ja.info).
-* chain-mail:(tm-cmail_ja.info).
-@end menu
-
-
-@node Emacs-Versions, Setting, Introduction, Top
-@comment node-name, next, previous, up
-@chapter Emacs ¤Î¼ïÎàÊ̤ε¡Ç½¤ª¤è¤ÓÀ©¸Â
-@cindex emacs variants
-@cindex charset
-
-@section original GNU Emacs 18 and Epoch
-@cindex Original Emacs 18
-@cindex Epoch
-
-Æ°ºî¤ÏÊݾڤ·¤Þ¤»¤ó¡£¤·¤«¤·¤Ê¤¬¤é¡¢US-ASCII ¤ÎÈϰϤǤÏÆ°ºî¤¹¤ë¤È»×¤ï¤ì
-¤Þ¤¹¡£
-
-
-@section NEmacs, NEpoch
-@cindex Emacs 18
-@cindex NEmacs
-@cindex NEpoch
-
-ISO-2022-JP, US-ASCII ¤¬»È¤¨¤Þ¤¹¡£
-
-
-@section original GNU Emacs 19
-@cindex Original Emacs 19
-
-US-ASCII ¤ª¤è¤Ó ISO-8859-1 ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-
-¤Þ¤¿¡¢X window ¾å¤ÎÆÈΩ¤·¤¿ window ¤È¤·¤ÆÆ°ºî¤µ¤»¤ë¾ì¹ç¡¢tm-rich ¤Ë¤è
-¤ë multi face ɽ¼¨¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£
-
-
-@section Mule
-@cindex Mule
-@cindex Emacs 18
-@cindex Emacs 19
-
-ISO-2022-JP, US-ASCII, ISO-8859-1..9, ISO-2022-CN, ISO-2022-KR, EUC-KR
-¤Ê¤É¤Î¿¤¯¤Î charset ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Þ¤¿¡¢´Ø¿ô
-mime/set-charset-and-encoding ¤ÇÄɲá¦Êѹ¹¤¬¤Ç¤¤Þ¤¹¡£
-
-¤Þ¤¿¡¢Mule 2.* ¤ò X window ¾å¤ÎÆÈΩ¤·¤¿ window ¤È¤·¤ÆÆ°ºî¤µ¤»¤ë¾ì¹ç¡¢
-tm-rich ¤Ë¤è¤ë multi face ɽ¼¨¤¬¹Ô¤Ê¤¨¤Þ¤¹¡£
-
-
-@section XEmacs
-@cindex XEmacs
-
-US-ASCII ¤ª¤è¤Ó ISO-8859-1 ¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£
-
-¾ÍèŪ¤Ë¤Ï¡¢inline image ¤Îɽ¼¨¤¬¥µ¥Ý¡¼¥È¤µ¤ì¤ëͽÄê¤Ç¤¹¡£
-
-@node Setting, tm-MUA, Emacs-Versions, Top
+@node Setting, tm-MUA, Introduction, Top
@comment node-name, next, previous, up
@chapter ÀßÄê
@cindex ÀßÄê
MIME message ¤Î±ÜÍ÷¤ÎÀßÄê¤Î¤ß¤ò¹Ô¤Ê¤¤¤Þ¤¹¡£
@menu
-* mime-setup.el:: ÉáÄ̤ÎÀßÄê
-* tm-setup.el:: tm-edit ¤ò»È¤¤¤¿¤¯¤Ê¤¤¾ì¹ç
+* mime-setup:: ÉáÄ̤ÎÀßÄê
+* tm-setup:: tm-edit ¤ò»È¤¤¤¿¤¯¤Ê¤¤¾ì¹ç
* setting for VM:: VM ¤ÎÀßÄê
* manual setting:: ÀßÄê file ¤ò»È¤ï¤Ê¤¤¾ì¹ç
@end menu
-@node mime-setup.el, tm-setup.el, Setting, Setting
+@node mime-setup, tm-setup, Setting, Setting
@comment node-name, next, previous, up
@section mime-setup.el
@cindex mime-setup.el
¤Ë¤è¤Ã¤Æ GNUS ¤Îɸ½à¤ËÌ᤹¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-@node tm-setup.el, setting for VM, mime-setup.el, Setting
+@node tm-setup, setting for VM, mime-setup, Setting
@comment node-name, next, previous, up
@section tm-setup.el
@cindex tm-setup.el
¤ê¤Þ¤»¤ó¡£
-@node setting for VM, manual setting, tm-setup.el, Setting
+@node setting for VM, manual setting, tm-setup, Setting
@comment node-name, next, previous, up
@section vm
+Wed May 8 12:47:38 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.55 was released.
+
+Tue May 7 18:19:39 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el: Mule support part was divided between Mule and
+ XEmacs 20.0 with Mule.
+
+ * mk-tgnus (install-tm-gnus): version condition was modified.
+
+\f
Mon Apr 29 01:55:32 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.54 was released.
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: mk-tgnus,v 2.1 1996/02/08 01:30:10 morioka Exp morioka $
+;;; $Id: mk-tgnus,v 3.0 1996/05/07 17:38:25 morioka Exp $
;;;
(setq load-path
(if (not (file-exists-p path))
(make-directory path t)
)
- (cond ((< (string-to-int emacs-version) 19)
+ (cond (running-emacs-18
(install-el-files path
"tm-gnus.el"
"tm-gnus3.el" "tm-gnus4.el"
;;"tm-gnus.elc"
"tm-gnus3.elc" "tm-gnus4.elc")
)
- ((<= emacs-minor-version 29)
+ ((or (and running-emacs-19
+ (<= emacs-minor-version 29))
+ (and running-xemacs-19
+ (<= emacs-minor-version 13))
+ )
(install-el-files path
"tm-gnus.el"
"tm-sgnus.el" "tm-gnus4.el"
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.54 $
+;;; Version: $Revision: 7.55 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.54 1996/04/29 01:55:32 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.55 1996/05/07 18:19:39 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
(setq gnus-decode-encoded-word-method
(function tm-gnus/article-decode-encoded-word))
-;; (if (boundp 'MULE)
-;; (progn
-;; (define-service-coding-system gnus-nntp-service nil *noconv*)
-;; (if (and (boundp 'nntp-server-process)
-;; (processp nntp-server-process)
-;; )
-;; (set-process-coding-system nntp-server-process *noconv* *noconv*)
-;; )
-;;
-;; (or (fboundp 'tm-gnus/original-request-article)
-;; (fset 'tm-gnus/original-request-article
-;; (symbol-function 'gnus-request-article))
-;; )
-;;
-;; (defun gnus-request-article (article group &optional buffer)
-;; (let ((file-coding-system-for-read *noconv*))
-;; (tm-gnus/original-request-article article group buffer)
-;; ))
-;;
-;; (defun tm-gnus/nnheader-find-file-noselect (&rest args)
-;; (let ((file-coding-system-for-read *noconv*))
-;; (apply (function find-file-noselect) args)
-;; ))
-;; (eval-after-load
-;; "nnheader"
-;; '(fset 'nnheader-find-file-noselect
-;; 'tm-gnus/nnheader-find-file-noselect)
-;; )
-;;
-;; (defun tm-gnus/nnmail-get-new-mail (&rest args)
-;; (let ((file-coding-system-for-read *noconv*))
-;; (apply (function tm-gnus/original-nnmail-get-new-mail) args)
-;; ))
-;; (eval-after-load
-;; "nnmail"
-;; '(progn (or (fboundp 'tm-gnus/original-nnmail-get-new-mail)
-;; (fset 'tm-gnus/original-nnmail-get-new-mail
-;; (symbol-function 'nnmail-get-new-mail))
-;; )
-;; (fset 'nnmail-get-new-mail 'tm-gnus/nnmail-get-new-mail)
-;; ))
-;; ))
-
;;; @ for MULE
;;;
cs))
(cond
- ((boundp 'MULE)
- (define-service-coding-system gnus-nntp-service nil *noconv*)
+ ((featurep 'mule)
+ (if (boundp 'MULE)
+ (define-service-coding-system gnus-nntp-service nil *noconv*)
+ )
(if (and (boundp 'nntp-server-process)
(processp nntp-server-process)
)
'nnheader
(lambda ()
(defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
- (let ((file-coding-system-for-read '*noconv*))
+ (let ((file-coding-system-for-read *noconv*))
(find-file-noselect filename nowarn rawfile)
))
(defun nnheader-insert-raw-file-contents
(filename &optional visit beg end replace)
- (let ((file-coding-system-for-read '*noconv*))
+ (let ((file-coding-system-for-read *noconv*))
(insert-file-contents filename visit beg end replace)
))
;;(fset 'nnheader-raw-write-region 'si:write-region)
)
(add-hook 'nnmail-prepare-save-mail-hook
'tm-gnus/prepare-save-mail-function)
- ;; (add-hook 'nnmbox-prepare-save-mail-hook
- ;; 'tm-gnus/prepare-save-mail-function)
- ;; (add-hook 'nnbabyl-prepare-save-mail-hook
- ;; 'tm-gnus/prepare-save-mail-function)
- ;; (add-hook 'nnml-prepare-save-mail-hook
- ;; 'tm-gnus/prepare-save-mail-function)
- ;; (add-hook 'nnmh-prepare-save-mail-hook
- ;; 'tm-gnus/prepare-save-mail-function)
- ;; (add-hook 'nnfolder-prepare-save-mail-hook
- ;; 'tm-gnus/prepare-save-mail-function)
- (gnus-set-newsgroup-default-coding-system "alt.chinese.text" '*hz*)
- (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" '*big5*)
- (gnus-set-newsgroup-default-coding-system "han" '*euc-kr*)
- (gnus-set-newsgroup-default-coding-system "relcom" '*koi8*)
+ (gnus-set-newsgroup-default-coding-system "alt.chinese.text" *hz*)
+ (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" *big5*)
+ (gnus-set-newsgroup-default-coding-system "han" *euc-kr*)
+ (gnus-set-newsgroup-default-coding-system "relcom" *koi8*)
))
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 5.0 1996/04/21 19:43:46 morioka Exp morioka $
+;;; $Id: inst-tm,v 6.0 1996/05/05 11:14:38 morioka Exp $
;;;
(load-file "TM-CFG")
(compile-el-files "mh-e/" tm-mh-e-modules)
(compile-el-files "./" '("mime-setup"))
(save-excursion
- (set-buffer (get-buffer-create ".gnus-compile"))
+ (set-buffer (get-buffer-create TM_GNUS_COMPILE))
(let ((emacs (car command-line-args)))
- (insert (format "cd gnus\nmake gnus EMACS=%s PWD=`pwd`\n" emacs))
+ (insert (format "cd gnus\n%s gnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
(cond ((string-match "XEmacs" emacs-version)
- (insert (format "make sgnus EMACS=%s PWD=`pwd`\n" emacs))
+ (insert (format "%s sgnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
)
(t (cond ((<= emacs-major-version 18)
- (insert (format "make gnus3 EMACS=%s PWD=`pwd`\n" emacs))
- (insert (format "make gnus4 EMACS=%s PWD=`pwd`\n" emacs))
+ (insert (format "%s gnus3 EMACS=%s PWD=`pwd`\n"
+ MAKE emacs))
+ (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
+ MAKE emacs))
)
((< emacs-minor-version 30)
- (insert (format "make gnus4 EMACS=%s PWD=`pwd`\n" emacs))
- (insert (format "make gnus5 EMACS=%s PWD=`pwd`\n" emacs))
+ (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
+ MAKE emacs))
+ (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
+ MAKE emacs))
)
(t
- (insert (format "make sgnus EMACS=%s PWD=`pwd`\n" emacs))
+ (insert (format "%s sgnus EMACS=%s PWD=`pwd`\n"
+ MAKE emacs))
)))))
- (write-file ".gnus-compile")
+ (write-file TM_GNUS_COMPILE)
)
)
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.53 $
+;;; Version: $Revision: 7.56 $
;;; Keywords: mail, news, MIME, multimedia, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-editor/RCS-ID
- "$Id: tm-edit.el,v 7.53 1996/04/29 01:52:53 morioka Exp $")
+ "$Id: tm-edit.el,v 7.56 1996/05/05 16:40:31 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(mime-editor/sign-pgp-elkins bb eb boundary)
)
((eq mime-editor/signing-type 'pgp-kazu)
- (mime-editor/process-pgp-kazu 'mc-sign
- bb eb boundary)
+ (mime-editor/sign-pgp-kazu bb eb boundary)
)
))
((string= type "encrypted")
- (cond ((eq mime-editor/signing-type 'pgp-elkins)
+ (cond ((eq mime-editor/encrypting-type 'pgp-elkins)
(mime-editor/encrypt-pgp-elkins bb eb boundary)
)
- ((eq mime-editor/signing-type 'pgp-kazu)
- (mime-editor/process-pgp-kazu 'mc-encrypt
- bb eb boundary)
+ ((eq mime-editor/encrypting-type 'pgp-kazu)
+ (mime-editor/encrypt-pgp-kazu bb eb boundary)
)))
(t
(setq boundary
))
boundary))))
+
+(autoload 'mc-pgp-lookup-key "mc-pgp")
+(autoload 'mc-pgp-sign-region "mc-pgp")
+(autoload 'mc-pgp-encrypt-region "mc-pgp")
+
(defun tm:mc-pgp-generic-parser (result)
(let ((ret (mc-pgp-generic-parser result)))
(if (consp ret)
(vector (car ret)(cdr ret))
)))
-(autoload 'mc-pgp-lookup-key "mc-pgp")
-
(defun tm:mc-process-region
(beg end passwd program args parser &optional buffer boundary)
(let ((obuf (current-buffer))
)
))))
-(autoload 'mc-pgp-encrypt-region "mc-pgp")
-
(defun mime-editor/encrypt-pgp-elkins (beg end boundary)
(save-excursion
(save-restriction
(insert (format "\n--%s--\n" pgp-boundary))
)))))
-(defun mime-editor/process-pgp-kazu (type beg end boundary)
+(defun mime-editor/sign-pgp-kazu (beg end boundary)
(save-excursion
(save-restriction
(narrow-to-region beg end)
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
)
(insert "\n")
- (if (null
- (progn
- (goto-char beg)
- (insert "=\n")
- (prog1
- (let ((mail-header-separator "="))
- (call-interactively type)
- )
- (goto-char beg)
- (and (search-forward "=\n")
- (replace-match ""))
- )))
+ (or (let ((program-coding-system-alist
+ (cons (cons (cons nil ".*pgp.*")
+ (cons *noconv* *noconv*))
+ program-coding-system-alist))
+ )
+ (mc-pgp-sign-region beg (point-max))
+ )
(throw 'mime-editor/error 'pgp-error)
- )
+ )
(goto-char beg)
(insert
"--[[application/pgp; format=mime][7bit]]\n")
))
))
+(defun mime-editor/encrypt-pgp-kazu (beg end boundary)
+ (save-excursion
+ (let ((from (rfc822/get-field-body "From"))
+ (to (rfc822/get-field-body "To"))
+ (cc (rfc822/get-field-body "cc"))
+ recipients)
+ (save-restriction
+ (narrow-to-region beg end)
+ (let* ((ret
+ (mime-editor/translate-region beg end boundary))
+ (ctype (car ret))
+ (encoding (nth 1 ret))
+ (parts (nth 3 ret))
+ )
+ (goto-char beg)
+ (if (and (stringp from)
+ (not (string-equal from "")))
+ (insert (format "From: %s\n" from))
+ )
+ (if (and (stringp to)
+ (not (string-equal to "")))
+ (progn
+ (insert (format "To: %s\n" to))
+ (setq recipients to)
+ ))
+ (if (and (stringp cc)
+ (not (string-equal cc "")))
+ (progn
+ (insert (format "cc: %s\n" cc))
+ (if recipients
+ (setq recipients (concat recipients "," cc))
+ (setq recipients cc)
+ )))
+ (insert (format "Content-Type: %s\n" ctype))
+ (if encoding
+ (insert (format "Content-Transfer-Encoding: %s\n" encoding))
+ )
+ (insert "\n")
+ (or (let ((program-coding-system-alist
+ (cons (cons (cons nil ".*pgp.*")
+ (cons *noconv* *noconv*))
+ program-coding-system-alist))
+ )
+ (mc-pgp-encrypt-region
+ (mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
+ beg (point-max))
+ )
+ (throw 'mime-editor/error 'pgp-error)
+ )
+ (goto-char beg)
+ (insert
+ "--[[application/pgp; format=mime][7bit]]\n")
+ ))
+ )))
+
(defun mime-editor/translate-body ()
"Encode the tagged MIME body in current buffer in MIME compliant message."
(interactive)
;; Define charset for text if necessary.
(setq charset (or charset (mime-editor/choose-charset)))
(mime-editor/define-charset charset)
- (if (string-equal contype "text/x-rot13-47")
- (save-excursion
- (forward-line)
- (set-mark (point))
- (goto-char (mime-editor/content-end))
- (tm:caesar-region)
- ))
+ (cond ((string-equal contype "text/x-rot13-47")
+ (save-excursion
+ (forward-line)
+ (set-mark (point))
+ (goto-char (mime-editor/content-end))
+ (tm:caesar-region)
+ ))
+ ((string-equal contype "text/enriched")
+ (save-excursion
+ (let ((beg (progn
+ (forward-line)
+ (point)))
+ (end (mime-editor/content-end))
+ )
+ (enriched-encode beg end)
+ (goto-char beg)
+ (if (search-forward "\n\n")
+ (delete-region beg (match-end 0))
+ )
+ ))))
;; Point is now on current tag.
;; Define encoding and encode text if necessary.
(if (null encoding) ;Encoding is not specified.
;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Revision: 7.16 $
+;;; Version: $Revision: 7.17 $
;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-ew-e/RCS-ID
- "$Id: tm-ew-e.el,v 7.16 1996/04/24 11:30:54 morioka Exp $")
+ "$Id: tm-ew-e.el,v 7.17 1996/05/04 04:58:37 morioka Exp $")
(defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
(t
(setq string (car rword))
(let* ((sl (length string))
- (p 0)
+ (p 0) np
(str "") nstr)
(while (and (< p len)
(progn
- (setq p (+ p (char-bytes (sref string p))))
- (setq nstr (substring string 0 p))
+ (setq np (+ p (char-bytes (sref string p))))
+ (setq nstr (substring string 0 np))
(setq ret (tm-eword::encoded-word-length
(cons nstr (cdr rword))
))
(setq len (+ (car ret) column))
(<= len 76)
))
- (setq str nstr))
+ (setq str nstr
+ p np))
(if (string-equal str "")
(setq string "\n "
len 1)
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-rich.el,v 7.4 1996/04/26 05:31:57 morioka Exp $
+;;; $Id: tm-rich.el,v 7.5 1996/05/07 06:28:36 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, richtext, enriched
;;;
;;; This file is part of tm (Tools for MIME).
(require 'tm-view)
-(defvar tm-rich/richtext-module
- (if (or running-emacs-19_29-or-later
- running-xemacs-20
- (and running-xemacs (>= emacs-minor-version 14)))
- 'richtext
- 'tinyrich))
-
-(require tm-rich/richtext-module)
-
;;; @ content filters for tm-view
;;;
;;; modified by Steven L. Baur <steve@miranova.com>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.56 $
+;;; Version: $Revision: 7.57 $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 7.56 1996/04/29 02:29:21 morioka Exp $")
+ "$Id: tm-view.el,v 7.57 1996/05/04 07:42:27 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(or obuf
(setq obuf (concat "*Preview-" (buffer-name the-buf) "*")))
(set-buffer (get-buffer-create obuf))
+ (setq buffer-read-only nil)
+ (widen)
(erase-buffer)
(setq mime::preview/article-buffer the-buf)
(setq mime::preview/original-major-mode mode)
projects / elisp / tm.git / commitdiff