From f23061d20744595c54bf6dbd80343a844fefa425 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 2 Mar 1998 13:37:41 +0000 Subject: [PATCH] This commit was manufactured by cvs2svn to create tag 'tm4_8_3'. --- README-eng.tex | 80 -------------- README-jp.tex | 133 ----------------------- tm-body-eng.tex | 130 ---------------------- tm-body-jp.tex | 132 ---------------------- tm-body.el | 326 ------------------------------------------------------- tm-gnus-eng.tex | 120 -------------------- tm-gnus-jp.tex | 230 --------------------------------------- tm-mh-e-eng.tex | 123 --------------------- tm-mh-e-jp.tex | 144 ------------------------ 9 files changed, 1418 deletions(-) delete mode 100644 README-eng.tex delete mode 100644 README-jp.tex delete mode 100644 tm-body-eng.tex delete mode 100644 tm-body-jp.tex delete mode 100644 tm-body.el delete mode 100644 tm-gnus-eng.tex delete mode 100644 tm-gnus-jp.tex delete mode 100644 tm-mh-e-eng.tex delete mode 100644 tm-mh-e-jp.tex diff --git a/README-eng.tex b/README-eng.tex deleted file mode 100644 index 996ebd7..0000000 --- a/README-eng.tex +++ /dev/null @@ -1,80 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{tm-$<$MUA$>$ Manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/7/22} -\maketitle -\medskip -{\baselineskip=10pt -\begin{verbatim} - tm- is a MIME tools for GNU Emacs. -\end{verbatim}} -\medskip -\medskip - -\section{Files} -\medskip -{\baselineskip=10pt -\begin{verbatim} -README-jp.ol README (Japanese) -README-eng.ol README (English) -tiny-mime.ol tiny-mime.el manual (Japanese) -tm-body.ol tm-body manual (Japanese) -tm-gnus-jp.ol tm-gnus manual (Japanese) -tm-gnus-eng.ol tm-gnus manual (English) -tm-mh-e-jp.ol tm-mh-e manual (Japanese) -tm-mh-e-eng.ol tm-mh-e manual (English) -decode-b.c Base64 decoder -methods/* methods -\end{verbatim}} -\medskip -{\baselineskip=10pt -\begin{verbatim} -tiny-mime.el Multilingual MIME header encoder/decoder -tm-body.el MIME body decoder -tm-gnus.el tm- for GNUS -tm-mh-e.el tm- for mh-e -tm-mh-e3.el tm-mh-e's module for mh-e 3.x. -tm-misc.el tm- library -tl-*.el library modules -\end{verbatim}} -\medskip -{\baselineskip=10pt -\begin{verbatim} -mime-setup.el setup program -signature.el signature selector -ol2.c Emacs outline mode to plain text converter -\end{verbatim}} -\medskip -\medskip - -\section{How to install} -\medskip -{ -\renewcommand{\theenumi}{(\arabic{enumi})} -\renewcommand{\labelenumi}{\theenumi} -\begin{enumerate} -\item Edit Makefile for your environment. -\medskip -\item Edit methods in `methods/' directory for your environment. -\medskip -\item Run `make all'. -\medskip -\item Run `make install'. -\medskip -\item Copy *.el to your emacs lisp directory. -\medskip -\medskip -\end{enumerate} -} - -\section{How to use} -\medskip -\par -Please read tm-mh-e-eng.ol and tm-gnus-eng.ol. -\end{document} diff --git a/README-jp.tex b/README-jp.tex deleted file mode 100644 index 257d669..0000000 --- a/README-jp.tex +++ /dev/null @@ -1,133 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -tm-$<$MUA$>$ ÀâÌÀ½ñ} -\author{ -\\ -} -\date{ -} -\maketitle -\medskip - -\section{tm ¤È¤Ï} -\medskip -\par -tm ¤Ï Emacs ¤Ë MIME µ¡Ç½¤òÉղᦶ¯²½¤¹¤ë¤¿¤á¤Î package ¤Ç¤¹¡£¤³¤Î -package ¤Ï°Ê²¼¤Î¤â¤Î¤ò´Þ¤ó¤Ç¤¤¤Þ¤¹¡£ -\medskip -{\list{}{\leftmargin=4ex}\item[] -\begin{itemize} -\item tiny-mime MIME header encoder/decoder -\item tm-body MIME body player -\item tm-gnus MIME extender for GNUS -\item tm-mh-e MIME extender for mh-e -\medskip -\end{itemize} -\endlist} -\par -¤Ç¤¹¡£ -\medskip -\medskip - -\section{install ¤Î»ÅÊý} -\medskip -{ -\renewcommand{\theenumi}{(\arabic{enumi})} -\renewcommand{\labelenumi}{\theenumi} -\begin{enumerate} -\item Makefile ¤Î bindir ¤ò¼«Ê¬¤Î´Ä¶­¤Ë¹ç¤ï¤»¤Æ½ñ¤­´¹¤¨¤ë¡£ -\medskip -\item methods/ °Ê²¼¤Î method ¤ò¡¢tm-body ¤ÎÀâÌÀ½ñ¤ò¸«¤Æ¡¢¼«Ê¬¤Î´Ä¶­¤Ë¹ç -¤¦¤è¤¦¤Ë½ñ¤­´¹¤¨¤ë¡£ -\medskip -\item make all ¤¹¤ë¡£ -\medskip -\item make install ¤¹¤ë¡£ -\medskip -\item *.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤¹¤ë¡£ -\medskip -\medskip -\end{enumerate} -} -\par -tm-mh-e, tm-gnus ¤ÎÀâÌÀ¤Ï¡¢tm-mh-e.ol, tm-gnus.ol ¤òÆɤó¤Ç²¼¤µ¤¤¡£ -plain2 ¤¬ install ¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢make dvi ¤ò¹Ô¤Ê¤¦¤³¤È¤Ç dvi ¤ËÊÑ´¹¤Ç -¤­¤Þ¤¹¡£ -\medskip -\medskip - -\section{¥Ð¥°Êó¹ð¤Î»ÅÊý} -\medskip -\par -tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML -$<$tm@chamonix.jaist.ac.jp$>$ ¤Ë mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ -\medskip -\par -tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ -¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£tm ML ¤Ë»²²Ã¤·¤¿¤¤Êý¤Ï -\medskip -{\list{}{\leftmargin=8ex}\item[] -\par -tm-admin@chamonix.jaist.ac.jp -\endlist} -\medskip -\par -¤Þ¤Ç mail ¤òÁ÷¤Ã¤Æ²¼¤µ¤¤¡£ÅÐÏ¿¤Ï¼êÆ°¤Ç¤¹¤Î¤Ç¡¢¤Ç¤­¤ì¤Ð¡¢¼«Á³¸À¸ì¤Ç½ñ¤¤ -¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+) -\medskip -\medskip - -\section{¤ª¤Þ¤±} -\medskip -\par -mime-setup ¤È¤¤¤¦´Ê°×ÀßÄê tool ¤òÉÕ¤±¤Þ¤·¤¿¡£.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ -¤ì¤ë¤È tm-$<$MUA$>$ ¤ÎÀßÄê¤È mime.el ¤ò»È¤Ã¤¿ encode ¤ÎÀßÄê¤ò¹Ô¤Ê¤Ã¤Æ¤¯¤ì -¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(load "mime-setup") ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -mime-setup.el ¤Ïɸ½à¤Ç¤Ï SuperCite ¤ÎÀßÄê¤â¹Ô¤Ê¤¤¤Þ¤¹¡£¤³¤ì¤ò¤ä¤á¤ë -¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq mime-setup-use-sc nil) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -mime-setup ¤Ç¤Ï signature ¤Î¼«Æ°ÀÚÂؤ¨ tool ¤âÉí°¤·¤Æ¤¤¤Þ¤¹¡£ -message header ¤Î field ¤Ë¹ç¤ï¤»¤Æ signature ¤Î¼«Æ°ÀÚÂؤò¹Ô¤Ê¤¤¤¿¤¤¾ì -¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq signature-file-alist - '( - (("Newsgroups" . "jokes") . "~/.signature-jokes") - (("Newsgroups" . ("zxr" "nzr")) . "~/.signature-sun") - (("To" . ("ishimaru" "z-suzuki")) . "~/.signature-sun") - (("To" . "tea") . "~/.signature-jokes") - (("To" . ("sim" "oku" "takuo")) . "~/.signature-formal") - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -mime-setup ¤ò»È¤¦¾ì¹ç¤Ï¡¢mime.el ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢SuperCite ¤ò»È¤¦ -¾ì¹ç¤Ï¡¢SuperCite ¤âɬÍפǤ¹¡£ -\end{document} diff --git a/tm-body-eng.tex b/tm-body-eng.tex deleted file mode 100644 index bb161bf..0000000 --- a/tm-body-eng.tex +++ /dev/null @@ -1,130 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{tm-body manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/7/22} -\maketitle -\medskip - -\section{Install} -\medskip -{\baselineskip=10pt -\begin{verbatim} - Installing method is written in README-eng.ol. Please read it and -install. -\end{verbatim}} -\medskip - -\subsection{tiny-mime.el} -\medskip -\par -Please copy tiny-mime.el to your Emacs lisp directory. -\medskip -\medskip - -\subsection{tm-body} -\medskip - -\subsubsection{$*$.el} -\medskip -\par -Please copy tm-body.el, tl-list.el and tl-header.el to your Emacs -lisp directory. -\medskip - -\subsubsection{methods} -\medskip -\par -Please edit methods for your environment, and copy to your -executable directory. -\medskip -\medskip - -\subsubsection{decode-b.c} -\medskip -\par -Please compile decode-b.c by gcc or another ANSI C. -\medskip -{\baselineskip=10pt -\begin{verbatim} - % gcc -O decode-b.c -o decode-b -\end{verbatim}} -\medskip -\par -And please copy decode-b to your executable directory. -\medskip -\par -However, if you have another decoder (e.g. mmencode in metamail), -you can replace decode-b (e.g. You can replace `decode-b $<$' by -`mmencode -b -u' in methods). -\medskip -\medskip - -\section{Customize} -\medskip -\par -You can designate methods of Content-Types if you set variable -`mime/content-decoding-method-alist' in .emacs. -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq mime/content-decoding-method-alist - '(("audio/basic" . "tm-au") - ("image/gif" . "tm-image") - ("image/jpeg" . "tm-image") - ("image/x-pic" . "tm-image") - ("video/mpeg" . "tm-mpeg") - ("application/octet-stream" . "tm-file") - ("text/x-latex" . "tm-latex") - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -Each methods are shell scripts. Arguments of methods are written in -following table. -\medskip -~\\ -\begin{center} -\begin{tabular}{|c|l|} -\hline -argument & \multicolumn{1}{|c|}{ value }\\ -\hline\hline - \$1 & temporary file name of encoded content \\ - \$2 & Content-Type (type/sub-type) \\ - \$3 & encoding \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\ - \$4 & decoding-mode \{play / extract / print\} \\ - \$5 & original file name of content \\ -\hline -\end{tabular}\\ -\end{center} -\medskip -\par -Each Content-Types are decoded by methods. Exceptionally, -message/partial is decoded by tm-body.el. -\medskip -\medskip - -\section{Limitation or bug} -\medskip -\par -In this version, message/external-body is not supported. -\medskip -\par -Attached base64 decoder `decode-b.c' is not good program, so if it -can run normally, please correct it. But It is easy because decode-b.c -is too small, so please...(\verb+^+\_\verb+^+; -\medskip -\par -Or you can use mmencode attached in metamail as decoder. -\medskip -\par -In this package, there is no Quoted-Printable decoder, so please use -mmencode. -\end{document} diff --git a/tm-body-jp.tex b/tm-body-jp.tex deleted file mode 100644 index 0d5b212..0000000 --- a/tm-body-jp.tex +++ /dev/null @@ -1,132 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -tm-body ÀâÌÀ½ñ} -\author{ -¼é²¬ ÃÎɧ\\ -} -\date{ -1994ǯ7·î14Æü} -\maketitle -\medskip - -\section{install} -\medskip -\par -README ¤Ë½¾¤Ã¤Æ install ¤ò¹Ô¤Ê¤Ã¤Æ²¼¤µ¤¤¡£ -\medskip - -\subsection{tiny-mime ¤Î install} -\medskip -\par -tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë -copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-body ¤Î install} -\medskip - -\subsubsection{$*$.el ¤ò copy ¤¹¤ë} -\medskip -\par -tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø -Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsubsection{method ¤ò copy ¤¹¤ë} -\medskip -\par -methods/ ¤ËÆþ¤Ã¤Æ¤¤¤ë¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method ¤ò¡¢¼«Ê¬¤Î -´Ä¶­¤Ë¹ç¤ï¤»¤Æ½¤Àµ¤·¡¢path ¤ÎÄ̤ä¿ directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsubsection{decode-b.c ¤ò compile ¤¹¤ë} -\medskip -\par -Base64 decoder ¤Ç¤¢¤ë decode-b.c ¤ò gcc ¤Ç compile ¤·¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} - % gcc -O decode-b.c -o decode-b -\end{verbatim}} -\medskip -\par -¤½¤·¤Æ¡¢½ÐÍè¾å¤¬¤Ã¤¿ decode-b ¤ò path ¤ÎÄ̤ä¿ directory ¤Ë copy ¤· -¤Þ¤¹¡£ -\medskip -\par -⤷¡¢Â¾¤Î decoder¡ÊÎ㤨¤Ð¡¢metamail Éí°¤Î mmencode ¤Ê¤É¡Ë¤¬¤¢¤ì¤Ð¡¢ -method Ãæ¤Î decode-b ¤ò¤½¤Î decoder ¤ÇÃÖ¤­´¹¤¨¤Æ¤â¹½¤¤¤Þ¤»¤ó¡£Î㤨¤Ð¡¢ -decode-b $<$ ¤ò mmencode -b -u ¤ÇÃÖ¤­´¹¤¨¤Æ¤ß¤Æ²¼¤µ¤¤¡£ -\medskip -\medskip - -\section{¥«¥¹¥¿¥Þ¥¤¥º} -\medskip -\par -.emacs ¤Ë°Ê²¼¤Î¤è¤¦¤Ê¤â¤Î¤òÆþ¤ì¤Æ¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë method -¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(setq mime/content-decoding-method-alist - '(("audio/basic" . "tm-au") - ("image/gif" . "tm-image") - ("image/jpeg" . "tm-image") - ("image/x-pic" . "tm-image") - ("video/mpeg" . "tm-mpeg") - ("application/octet-stream" . "tm-file") - ("text/x-latex" . "tm-latex") - )) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -³Æ method ¤Ï shell script ¤Ç½ñ¤­¤Þ¤¹¡£tm-body.el ¤«¤éÅϤµ¤ì¤ë°ú¿ô¤Ï -°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£ -\medskip -~\\ -\begin{center} -\begin{tabular}{|c|l|} -\hline -°ú¿ô & \multicolumn{1}{|c|}{ ÃÍ }\\ -\hline\hline - \$1 & decode Á°¤Î file ̾ \\ - \$2 & Content-Type (type/sub-type) \\ - \$3 & encoding \{7bit / quoted-printable / base64 / 8bit / binary / ...\}\\ - \$4 & decoding-mode \{play / extract / print\} \\ - \$5 & file ̾ \\ -\hline -\end{tabular}\\ -\end{center} -\medskip -\par -¤Þ¤¿¡¢message/partial ¤À¤±¤Ï tm-body.el ¼«¿È¤ÇÉü¸µ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\section{À©¸Â} -\medskip -\par -message/external-body ¤Ë´Ø¤·¤Æ¤Ï¸½ºß¤Î¤È¤³¤í¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤Þ¤»¤ó¡£ -\medskip -\par -Éí°¤Î BASE64 decoder ¤Ç¤¢¤ë decode-b.c ¤Ï¤¤¤¤²Ã¸º¤Êºî¤ê¤Ê¤Î¤Ç¡¢Æ°¤« -¤Ê¤«¤Ã¤¿¤é¡¢Ã»¤¤¥×¥í¥°¥é¥à¤Ê¤Î¤Ç¡¢°Õ¤òµâ¤ó¤Ç½¤Àµ¤·¤Æ²¼¤µ¤¤¡£(\verb+^+\_\verb+^+; -\medskip -\par -¤Þ¤¿¡¢metamail Éí°¤Î mmencode ¤ò»È¤Ã¤Æ decode ¤·¤Æ¤âÎɤ¤¤Ç¤·¤ç¤¦¡£ -\medskip -\par -¤Þ¤¿¡¢Quoted-Printable ¤Î decoder ¤ÏÉí°¤·¤Þ¤»¤ó¤Î¤Ç¡¢mmencode ¤ò»È¤Ã -¤Æ²¼¤µ¤¤¡£ -\end{document} diff --git a/tm-body.el b/tm-body.el deleted file mode 100644 index ad1d61d..0000000 --- a/tm-body.el +++ /dev/null @@ -1,326 +0,0 @@ -;;; -;;; $Id: tm-body.el,v 0.16 1994/08/20 12:38:07 morioka Exp $ -;;; - -(provide 'tm-body) - -(require 'tl-list) -(require 'tl-header) -(require 'tiny-mime) - -(defun replace-as-filename (str) - (let ((dest "") - (i 0)(len (length str)) - chr) - (while (< i len) - (setq chr (elt str i)) - (if (or (and (<= ?+ chr)(<= chr ?.)) - (and (<= ?0 chr)(<= chr ?:)) - (= chr ?=) - (and (<= ?@ chr)(<= chr ?\[)) - (and (<= ?\] chr)(<= chr ?_)) - (and (<= ?a chr)(<= chr ?{)) - (and (<= ?} chr)(<= chr ?~)) - ) - (setq dest (concat dest - (char-to-string chr))) - ) - (setq i (+ i 1)) - ) - dest)) - -(defconst mime/tspecials "\000-\040()<>@,;:\\\"/[\093?.=") -(defconst mime/token-regexp - (concat "[^" mime/tspecials "]*")) -(defconst mime/content-type-subtype-regexp - (concat mime/token-regexp "/" mime/token-regexp)) -(defconst mime/content-parameter-value-regexp - (concat "\\(" - message/quoted-string-regexp - "\\|[^; \t\n]\\)*")) - -(defconst mime/output-buffer-name "*MIME-out*") -(defconst mime/decoding-buffer-name "*MIME-decoding*") - -(defvar mime/content-decoding-method-alist - '(("text/plain" . "tm-plain") - ("text/x-latex" . "tm-latex") - ("audio/basic" . "tm-au") - ("image/gif" . "tm-image") - ("image/jpeg" . "tm-image") - ("image/tiff" . "tm-image") - ("image/x-tiff" . "tm-image") - ("image/x-xbm" . "tm-image") - ("image/x-pic" . "tm-image") - ("video/mpeg" . "tm-mpeg") - ("application/octet-stream" . "tm-file") - )) - -(defvar mime/use-internal-decoder nil) -;;; (setq mime/use-internal-decoder t) - -(defun mime/decode-body () - (interactive) - (if (get-buffer mime/output-buffer-name) - (kill-buffer mime/output-buffer-name)) - (save-excursion - (save-restriction - (goto-char (point-min)) - (let ((ctype (mime/Content-Type "^$")) - (encoding (mime/Content-Transfer-Encoding "^$" "7bit")) - ) - (if ctype - (cond ((equal (car ctype) "multipart/mixed") - (mime/decode-multipart/mixed ctype encoding) - ) - ((equal (car ctype) "message/partial") - (mime/decode-message/partial ctype encoding) - ) - (t - (mime/decode-content nil (car ctype) encoding - (mime/get-name ctype)) - )) - ))))) - -(defun mime/decode-multipart/mixed (ctype default-encoding) - (let ((boundary (cdr (assoc "boundary" (cdr ctype)))) - encoding b) - (if (eq (elt boundary 0) ?\") - (setq boundary - (substring boundary 1 (- (length boundary) 1)) - )) - (setq boundary (concat "^--" (regexp-quote boundary) "\\(--\\)?$")) - (while (re-search-forward boundary nil t) - (goto-char (point-min)) - (setq b (+ (match-end 0) 1)) - (goto-char b) - (and (setq ctype (mime/Content-Type)) - (setq encoding - (mime/Content-Transfer-Encoding boundary - default-encoding)) - (mime/decode-content boundary - (car ctype) encoding - (mime/get-name ctype boundary) - ) - ) - ))) - -(defun mime/decode-message/partial (ctype default-encoding) - (let ((root-dir (concat "/tmp/m-prts-" (user-login-name))) - (id (cdr (assoc "id" (cdr ctype)))) - (number (cdr (assoc "number" (cdr ctype)))) - (total (cdr (assoc "total" (cdr ctype)))) - file - (the-buf (current-buffer)) - ) - (if (not (file-exists-p root-dir)) - (shell-command (concat "mkdir " root-dir)) - ) - (setq id (replace-as-filename id)) - (setq root-dir (concat root-dir "/" id)) - (if (not (file-exists-p root-dir)) - (shell-command (concat "mkdir " root-dir)) - ) - (setq file (concat root-dir "/FULL")) - (if (not (file-exists-p file)) - (progn - (setq file (concat root-dir "/CT")) - (if (not (file-exists-p file)) - (progn - (if (get-buffer "*MIME-temp*") - (kill-buffer "*MIME-temp*") - ) - (switch-to-buffer "*MIME-temp*") - (insert (concat total "\n")) - (write-file file) - (switch-to-buffer the-buf) - )) - (re-search-forward "^$") - (goto-char (+ (match-end 0) 1)) - (setq file (concat root-dir "/" number)) - (write-region (point) - (point-max) - file) - (if (get-buffer "*MIME-temp*") - (kill-buffer "*MIME-temp*") - ) - (switch-to-buffer "*MIME-temp*") - (let ((i 1) - (max (string-to-int total)) - ) - (catch 'tag - (while (<= i max) - (setq file (concat root-dir "/" - (int-to-string i) - )) - (if (not (file-exists-p file)) - (throw 'tag nil)) - (insert-file-contents file) - (goto-char (point-max)) - (setq i (+ i 1)) - ) - (write-file (concat root-dir "/FULL")) - (mime/decode-body) - (kill-buffer "FULL") - )) - (switch-to-buffer the-buf) - ) - (progn - (find-file file) - (mime/decode-body) - (kill-buffer "FULL") - )) - )) - -(defun mime/narrow-to-content (boundary) - (if boundary - (progn - (narrow-to-region (point) - (progn - (re-search-forward boundary nil t) - (match-beginning 0) - )) - (goto-char (point-min)) - ))) - -(defun mime/get-name (ctype &optional boundary) - (save-excursion - (save-restriction - (mime/narrow-to-content boundary) - (replace-as-filename - (or (cdr (assoc "name" (cdr ctype))) - (cdr (assoc "x-name" (cdr ctype))) - (message/get-field-body "Content-Description") - "")) - ))) - -(defun mime/Content-Type (&optional boundary) - (save-excursion - (save-restriction - (mime/narrow-to-content boundary) - (if (and (re-search-forward "^Content-Type:[ \t]*" nil t) - (progn - (narrow-to-region - (point) - (and (re-search-forward ".*\\(\n[ \t].*\\)*" nil t) - (match-end 0)) - ) - (goto-char (point-min)) - (re-search-forward mime/content-type-subtype-regexp nil t) - )) - (let ((ctype - (downcase - (buffer-substring (match-beginning 0) (match-end 0)) - )) - dest attribute value) - (while (and (re-search-forward "[ \t\n]*;[ \t\n]*" nil t) - (re-search-forward mime/token-regexp nil t) - ) - (setq attribute - (downcase - (buffer-substring (match-beginning 0) (match-end 0)) - )) - (if (and (re-search-forward "=[ \t\n]*" nil t) - (re-search-forward mime/content-parameter-value-regexp - nil t) - ) - (setq dest - (put-alist attribute - (buffer-substring (match-beginning 0) - (match-end 0)) - dest)) - ) - ) - (cons ctype dest) - ))))) - -(defun mime/Content-Transfer-Encoding (&optional boundary default-encoding) - (save-excursion - (save-restriction - (mime/narrow-to-content boundary) - (or - (if (and (re-search-forward "^Content-Transfer-Encoding:[ \t]*" nil t) - (re-search-forward mime/token-regexp nil t) - ) - (downcase (buffer-substring (match-beginning 0) (match-end 0))) - ) - default-encoding) - ))) - -(defun mime/base64-decode-region (beg end &optional buf filename) - (let ((the-buf (current-buffer)) ret) - (if (null buf) - (setq buf (get-buffer-create mime/decoding-buffer-name)) - ) - (save-excursion - (save-restriction - (switch-to-buffer buf) - (erase-buffer) - (switch-to-buffer the-buf) - (narrow-to-region beg end) - (goto-char (point-min)) - (while (re-search-forward - (concat "^" - mime/Base64-encoded-text-regexp - "$") nil t) - (setq ret (mime/base64-decode-string - (buffer-substring (match-beginning 0) - (match-end 0) - ))) - (switch-to-buffer buf) - (insert ret) - (switch-to-buffer the-buf) - ))) - (if filename - (progn - (switch-to-buffer buf) - (let ((kanji-flag nil) - (mc-flag nil) - (file-coding-system - (if (featurep 'mule) *noconv*)) - ) - (write-file filename) - (kill-buffer buf) - (switch-to-buffer the-buf) - ))) - )) - -(defun mime/decode-content (boundary ctype encoding name) - (let ((method (cdr (assoc ctype mime/content-decoding-method-alist)))) - (if method - (save-excursion - (save-restriction - (re-search-forward "^$") - (goto-char (+ (match-end 0) 1)) - (let ((file (make-temp-name "/tmp/TM")) - (b (point)) e - ) - (setq e (if boundary - (and (re-search-forward boundary nil t) - (match-beginning 0)) - (point-max) - )) - (if (and (string= encoding "base64") - mime/use-internal-decoder) - (progn - (mime/base64-decode-region b e nil file) - (setq encoding "binary") - ) - (write-region b e file) - ) - (start-process method mime/output-buffer-name method file - ctype (if encoding - encoding - "7bit") - (if mime/body-decoding-mode - mime/body-decoding-mode - "decode") - (replace-as-filename name)) - )))))) - -(defun mime/show-body-decoded-result () - (interactive) - (if (get-buffer mime/output-buffer-name) - (set-window-buffer (get-largest-window) - mime/output-buffer-name) - )) diff --git a/tm-gnus-eng.tex b/tm-gnus-eng.tex deleted file mode 100644 index e4815cb..0000000 --- a/tm-gnus-eng.tex +++ /dev/null @@ -1,120 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{tm-gnus manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/7/25} -\maketitle -\medskip - -\section{Install} -\medskip - -\subsection{tiny-mime} -\medskip -\par -Please copy tiny-mime.el to your emacs lisp directory. -\medskip -\medskip - -\subsection{tm-body} -\medskip -\par -Please copy tm-body.el, tl-list.el and tl-header.el to your emacs -lisp directory. -\medskip -\medskip - -\subsection{tm-misc} -\medskip -\par -Please copy tm-misc.el and tl-hook.el to your emacs lisp directory. -\medskip -\medskip - -\subsection{tm-gnus} -\medskip -\par -Please copy tm-gnus.el to your emacs lisp directory. -\medskip -\medskip -\medskip - -\section{.emacs} -\medskip -\par -Please insert following list to .emacs. -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(if (not (fboundp 'add-hook)) - (require 'tl-hook) - ) - -(let ((le (function - (lambda () - (require 'tm-gnus) - ))) - ) - (if (boundp 'MULE) - (progn - (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize)) - (add-hook 'gnus-group-mode-hook (function gnusutil-initialize)) - (autoload 'gnusutil-initialize "gnusutil") - (autoload 'gnusutil-add-group "gnusutil") - (add-hook 'gnusutil-initialize-hook le) - ) - (progn - (add-hook 'gnus-Startup-hook le) - (add-hook 'gnus-startup-hook le) - ))) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\medskip - -\section{How to use} -\medskip -~\\ -\begin{tabular}{|c|r|} -\hline - key & function \\ -\hline\hline - M-t & toggle switch of message header decoding mode \\ -\hline - v & MIME decode message body and play \\ - e & MIME decode message body and extract to file(s)\\ -C-c p & MIME decode message body and print \\ -\hline -\end{tabular}\\ -\medskip -\medskip - -\section{How to use metamail} -\medskip -\par -In normal definition, tm-mh-e use tm-body as MIME body decoder. -However, you can use metamail. In this case, Of course, you need -metamail and metamail.el. -\medskip -\par -Please insert following list to .emacs if you want to use metamail. -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -If you use metamail, there are no decoding mode of MIME body -decoding. Therefore, functions for `v', `e', `C-c p' are equally -`metamail-buffer', and decoding is sequentially. -\end{document} diff --git a/tm-gnus-jp.tex b/tm-gnus-jp.tex deleted file mode 100644 index 06c08cd..0000000 --- a/tm-gnus-jp.tex +++ /dev/null @@ -1,230 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -tm-gnus ÀâÌÀ½ñ} -\author{ -¼é²¬ ÃÎɧ\\ -} -\date{ -1994ǯ7·î27Æü} -\maketitle -\medskip - -\section{Install} -\medskip -\par -*.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£ -tm-gnus ¤Ï¡¢tiny-mime (MIME header encoder/decoder), tm-body (MIME -body player), tm-misc (tm-$<$MUA$>$ ¶¦ÄÌ module), tm-gnus ¤Î³Æ module ¤«¤é -¤Ê¤ê¤Þ¤¹¡£³Æ module Ëè¤Î install Ë¡¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£ -\medskip -\medskip - -\subsection{tiny-mime ¤Î install} -\medskip -\par -tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë -copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-body ¤Î install} -\medskip -\par -tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø -Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-misc ¤Î install} -\medskip -\par -tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ -directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-gnus ¤Î install} -\medskip -\par -tm-gnus.el ¤È tm-gnus3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ -directory ¤Ë copy ¤·¤Þ¤¹¡£tm-gnus3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢GNUS -3 ¤¬ load ¤µ¤ì¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£ -\medskip -\medskip -\medskip - -\section{ÀßÄê} -\medskip -\par -.emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(if (not (fboundp 'add-hook)) - (require 'tl-hook) - ) - -(let ((le (function - (lambda () - (require 'tm-gnus) - ))) - ) - (if (boundp 'MULE) - (progn - (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize)) - (add-hook 'gnus-group-mode-hook (function gnusutil-initialize)) - (autoload 'gnusutil-initialize "gnusutil") - (autoload 'gnusutil-add-group "gnusutil") - (add-hook 'gnusutil-initialize-hook le) - ) - (progn - (add-hook 'gnus-Startup-hook le) - (add-hook 'gnus-startup-hook le) - ))) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -Mule ¤Ë¤ª¤±¤ë¾åµ­¤ÎÀßÄê¤Ï¡¢gnusutil ¤òÊ»ÍѤ¹¤ë¾ì¹ç¤Î¤â¤Î¤Ç¤¹¤¬¡¢ -gnusutil ¤òÊ»ÍѤ·¤Ê¤¤¾ì¹ç¤Ï (require 'tm-gnus) ¤À¤±¤Ç·ë¹½¤Ç¤¹¡£ -\medskip -\medskip - -\section{»È¤¤Êý} -\medskip -~\\ -\begin{tabular}{|c|c|} -\hline - key & µ¡Ç½ \\ -\hline\hline - M-t & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch \\ -\hline - v & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode) \\ - e & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\ -C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode) \\ -\hline -\end{tabular}\\ -\medskip -\par -message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦ -¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£ -\medskip -\medskip - -\section{³Æ¼ïÀßÄê} -\medskip - -\subsection{metamail ¤ò»È¤¦ÊýË¡} -\medskip -\par -tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò -»È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í× -¤Ç¤¹¡£ -\medskip -\par -¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï -metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū -¤Ë¤Ê¤ê¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{article ¤ò save ¤¹¤ë»þ decoding ¤·¤Ê¤¤} -\medskip -\par -article ¤ò save ¤¹¤ë»þ¡¢Êݸ¤µ¤ì¤ë message ¤Ï¤½¤Î»þɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤è -¤¦¤Ë¡¢¤½¤Î»þ¤Î MIME header decoding mode ¤Ë±þ¤¸¤Æ save ¤µ¤ì¤Þ¤¹¡£ -\medskip -\par -¤·¤«¤·¡¢article ¤ò save ¤¹¤ë»þ¡¢¾ï¤Ë¡¢MIME header decoding ¤ò¹Ô¤Ê¤ï -¤Ê¤¤¡¢À¸¤Î message ¤ÇÊݸ¤·¤¿¤¤¾ì¹ç¤Ï -(tm-gnus/set-mime-header-decoding-mode nil) ¤ò¹Ô¤Ê¤Ã¤Æ¡¢MIME header -decoding ¤ò¹Ô¤Ê¤ï¤Ê¤¤ mode ¤Ë¤·¤Æ¡¢article save ´Ø¿ô¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤ËÀß -Äꤷ¤Æ²¼¤µ¤¤¡£ -\medskip -\par -Save ¤Î¼Â¹Ô¸å¡¢MIME header decoding mode ¤òÁ°¤Î¾õÂÖ¤ËÌᤷ¤¿¤¤¾ì¹ç¤Ï¡¢ -°Ê²¼¤Î¤è¤¦¤Ë¡¢°ì»þÊÑ¿ô¤Ë MIME header decoding mode ¤òÊݸ¤·¤Æ¤ª¤±¤Ð OK -¤Ç¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (article save ´Ø¿ô) - (tm-gnus/set-mime-header-decoding-mode mm) - ) -\end{verbatim}} -\medskip -\par -°Ê²¼¤Ë¡¢mh-e ¤Î folder ¤Ë save ¤¹¤ë¾ì¹ç¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(add-hook 'gnus-Startup-hook - (function - (lambda () - (setq gnus-default-article-saver - (function - (lambda () - (interactive) - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (gnus-Subject-save-in-folder) - (tm-gnus/set-mime-header-decoding-mode mm) - ))))))) -(add-hook 'gnus-startup-hook - (function - (lambda () - (setq gnus-default-article-saver - (function - (lambda () - (interactive) - (let ((mm mime/header-decoding-mode)) - (tm-gnus/set-mime-header-decoding-mode nil) - (gnus-summary-save-in-folder) - (tm-gnus/set-mime-header-decoding-mode mm) - ))))))) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\medskip - -\subsection{reply ¤¹¤ë»þ Subject ¤Î encoding Ë¡¤ò reply ¸µ¤Ë¹ç¤ï¤»¤ë} -\medskip -\par -Reply ¤¹¤ë»þ¡¢reply ¸µ¤Î Subject ¤Ë ASCII °Ê³°¤Îʸ»ú½¸¹ç¤ÎÆþ¤Ã¤Æ¤¤¤ë -¾ì¹ç¡¢reply ¸µ¤¬ MIME encode ¤µ¤ì¤Æ¤¤¤¿¤é encode ¤·¡¢¤½¤¦¤Ç¤Ê¤«¤Ã¤¿¤é -À¸¤ÇÆþ¤ì¤¿¤¤¾ì¹ç¤Ï¡¢¼¡¤Î¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(add-hook 'gnus-article-prepare-hook - (function - (lambda () - (if (mime/exist-encoded-word-in-subject) - (setq mime/no-encoding-header-fields '("X-Nsubject")) - (setq mime/no-encoding-header-fields '("X-Nsubject" "Subject")) - )))) ----------------------------------------------------------------------- -\end{verbatim}} -\end{document} diff --git a/tm-mh-e-eng.tex b/tm-mh-e-eng.tex deleted file mode 100644 index dbb9d44..0000000 --- a/tm-mh-e-eng.tex +++ /dev/null @@ -1,123 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{tm-mh-e manual (English Version)} -\author{Morioka Tomohiko} -\date{1994/8/20} -\maketitle -\medskip - -\section{Install} -\medskip - -\subsection{tiny-mime} -\medskip -\par -Please copy tiny-mime.el to your emacs lisp directory. -\medskip -\medskip - -\subsection{tm-body} -\medskip -\par -Please copy tm-body.el, tl-list.el and tl-header.el to your emacs -lisp directory. -\medskip -\medskip - -\subsection{tm-misc} -\medskip -\par -Please copy tm-misc.el and tl-hook.el to your emacs lisp directory. -\medskip -\medskip - -\subsection{tm-mh-e} -\medskip -\par -Please copy tm-mh-e.el and tm-mh-e3.el to your emacs lisp directory. -\medskip -{\baselineskip=10pt -\begin{verbatim} - If you want to byte-compile tm-mh-e3.el, please do it after you did -load mh-e version 3.x. -\end{verbatim}} -\medskip -\medskip - -\section{.emacs} -\medskip -{\baselineskip=10pt -\begin{verbatim} - Please use mime-setup. -\end{verbatim}} -\medskip -{\baselineskip=10pt -\begin{verbatim} - If you do not want to use mime-setup, insert following list to . -emacs. -\end{verbatim}} -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(if (< (string-to-int emacs-version) 19) - (progn - (require 'tl-18) - (defvar buffer-undo-list nil) - )) - -(add-hook 'mh-folder-mode-hook - (function - (lambda () - (require 'tm-mh-e) - ))) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\medskip - -\section{How to use} -\medskip -~\\ -\begin{tabular}{|c|r|} -\hline - key & function \\ -\hline\hline - M-t & toggle switch of message header decoding mode \\ -\hline - v & MIME decode message body and play \\ - e & MIME decode message body and extract to file(s)\\ -C-c p & MIME decode message body and print \\ -\hline -\end{tabular}\\ -\medskip -\medskip - -\section{How to use metamail} -\medskip -\par -In normal definition, tm-mh-e use tm-body as MIME body decoder. -However, you can use metamail. In this case, Of course, you need -metamail and metamail.el. -\medskip -\par -Please insert following list to .emacs if you want to use metamail. -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -If you use metamail, there are no decoding mode of MIME body -decoding. Therefore, functions for `v', `e', `C-c p' are equally -`metamail-buffer', and decoding is sequentially. -\end{document} diff --git a/tm-mh-e-jp.tex b/tm-mh-e-jp.tex deleted file mode 100644 index 34eb15f..0000000 --- a/tm-mh-e-jp.tex +++ /dev/null @@ -1,144 +0,0 @@ -\documentstyle[a4j]{jarticle} -\setcounter{secnumdepth}{6} -\setcounter{tocdepth}{6} -\topsep=0.1cm -\parsep=0.1cm -\itemsep=0.0cm -\begin{document} -\title{ -tm-mh-e ÀâÌÀ½ñ} -\author{ -¼é²¬ ÃÎɧ\\ -} -\date{ -1994ǯ8·î20Æü} -\maketitle -\medskip - -\section{install} -\medskip - -\subsection{tiny-mime ¤Î install} -\medskip -\par -tiny-mime.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ directory ¤Ë -copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-body ¤Î install} -\medskip -\par -tm-body.el, tl-list.el, tl-header.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»Ø -Äꤵ¤ì¤¿ directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-misc ¤Î install} -\medskip -\par -tm-misc.el, tl-hook.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤵ¤ì¤¿ -directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\medskip - -\subsection{tm-mh-e ¤Î install} -\medskip -\par -tm-mh-e.el, tm-mh-e3.el ¤ò Emacs ¤ÎÊÑ¿ô load-path ¤Ç»ØÄꤷ¤¿ -directory ¤Ë copy ¤·¤Þ¤¹¡£ -\medskip -\par -tm-mh-e3.el ¤ò byte-compile ¤¹¤ë¾ì¹ç¤Ï¡¢mh-e version 3.* ¤ò load ¤· -¤¿¾õÂ֤ǹԤʤäƲ¼¤µ¤¤¡£ -\medskip -\medskip - -\section{ÀßÄê} -\medskip -\par -mime-setup ¤ò»È¤Ã¤Æ²¼¤µ¤¤¡£ -\medskip -\par -mime-setup ¤ò»È¤ï¤Ê¤¤¾ì¹ç¤Ï .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Þ¤¹¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(if (< (string-to-int emacs-version) 19) - (progn - (require 'tl-18) - (defvar buffer-undo-list nil) - )) - -(add-hook 'mh-folder-mode-hook - (function - (lambda () - (require 'tm-mh-e) - ))) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -¤Þ¤¿¡¢MH ¤¬ MH-6.8JP2 ¤Î¾ì¹ç¡¢\verb+~+/.mh\_profile ¤Ë -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -scan: -form scan.mime -inc: -form inc.mime -repl: -form replcomps.mime -showproc: mhl ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -¤òÄɲ䷤Ƥ¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¤½¤ì°Ê³°¤Î MH ¤Î½èÍý¤Ï Emacs ¤Î¦¤Ç¼è¤ê»ÅÀÚ -¤ë¤Î¤Ç¡¢MH ¤ÎÀßÄê¤Ï¤·¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£ -\medskip -\medskip - -\section{»È¤¤Êý} -\medskip -~\\ -\begin{tabular}{|c|c|} -\hline - key & µ¡Ç½ \\ -\hline\hline - M-t & message header ¤ò decode ¤Ë´Ø¤¹¤ë toggle switch \\ -\hline - v & message body ¤ò MIME decode ¤·¤Æ¡¢ºÆÀ¸¤¹¤ë (play mode) \\ - e & message body ¤ò MIME decode ¤·¤Æ¡¢file ¤ËÍ (extract mode)\\ -C-c p & message body ¤ò MIME decode ¤·¤Æ¡¢°õºþ¤¹¤ë (print mode) \\ -\hline -\end{tabular}\\ -\medskip -\par -message body ¤Î MIME decode ¤Ë¤ª¤¤¤Æ¡¢¼ÂºÝ¤Ë³ÆÆ°ºî¤¬¹Ô¤Ê¤ï¤ì¤ë¤«¤É¤¦ -¤«¤Ï¡¢³Æ Content-Type ¤ËÂбþ¤¹¤ë tm-body ¤Î mthod ¤Ë°Í¸¤·¤Þ¤¹¡£ -\medskip -\medskip - -\section{metamail ¤ò»È¤¦ÊýË¡} -\medskip -\par -tm-mh-e ¤Ï MIME body ¤Î decode ¤Ë tm-body ¤ò»È¤¤¤Þ¤¹¤¬¡¢metamail ¤ò -»È¤¦¤è¤¦¤ËÀßÄꤹ¤ë¤³¤È¤â²Äǽ¤Ç¤¹¡£Ã¢¤·¡¢metamail ¤È metamail.el ¤¬É¬Í× -¤Ç¤¹¡£ -\medskip -\par -¤³¤Î¾ì¹ç .emacs ¤Ë°Ê²¼¤Î¤â¤Î¤òÆþ¤ì¤Æ²¼¤µ¤¤¡£ -\medskip -{\baselineskip=10pt -\begin{verbatim} ----------------------------------------------------------------------- -(autoload 'metamail-buffer "metamail" nil t) -(setq mime/body-decoding-method (function metamail-buffer)) ----------------------------------------------------------------------- -\end{verbatim}} -\medskip -\par -metamail ¤ò»È¤¦ÀßÄê¤Î¾ì¹ç¡¢`v', `e', `C-c p' ¤ËÂбþ¤¹¤ëÆ°ºî¤Ï -metamail ¤Ë¤«¤±¤ë¤À¤±¤Ë¤Ê¤ê¡¢Æ±°ì¤ÎÆ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Æ°ºî¤ÏÃ༡Ū -¤Ë¤Ê¤ê¤Þ¤¹¡£ -\end{document} -- 1.7.10.4