tm 5.21.8

diff --git a/Makefile b/Makefile
index f2a6db9..334d0a3 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -36,7 +36,7 @@ FILES = tm/README.eng tm/Makefile tm/Makefile.bc \
        tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/*.el \
        tl/README.eng tl/Makefile tl/Makefile.bc tl/*.el tl/doc/*.texi
 
-TARFILE = tm5.21.7.tar
+TARFILE = tm5.21.8.tar
 
 
 nemacs:

diff --git a/Makefile.bc b/Makefile.bc
index dceec18..de6699f 100644 (file)
--- a/Makefile.bc
+++ b/Makefile.bc
@@ -1,5 +1,5 @@
 #
-# $Id: Makefile.bc,v 1.3 1995/01/13 02:59:07 morioka Exp $
+# $Id: Makefile.bc,v 1.4 1995/01/31 10:44:26 morioka Exp $
 #
 
 TMMEL  = tm-view.el tm-rmail.el tm-comp.el
@@ -37,6 +37,7 @@ tm-misc.elc:  tm-misc.el
 
 tm-$(EMACS_TYPE).elc:  tm-$(EMACS_TYPE).el
        $(EMACS) -batch -q . \
+               -l $(TLSRCDIR)/tl-str.el \
                -l $(TLSRCDIR)/tl-list.el \
                -l $(TLSRCDIR)/tl-$(EMACS_TYPE).el \
                -f batch-byte-compile $<
@@ -47,7 +48,7 @@ $(TMMELC):    $(TMMEL)
                -l $(TLSRCDIR)/tl-header.el \
                -l $(TLSRCDIR)/tl-$(EMACS_TYPE).el \
                -l tm-$(EMACS_TYPE).el -l tiny-mime.el -l tm-misc.el \
-               -f batch-byte-compile $<
+               -f batch-byte-compile $?
 
 tm-rich.elc:   tm-rich.el
        $(EMACS) -batch -q . \

diff --git a/doc/tm-head-jp.texi b/doc/tm-head-jp.texi
index ef2f2e4..7b0c6a7 100644 (file)
--- a/doc/tm-head-jp.texi
+++ b/doc/tm-head-jp.texi
@@ -9,7 +9,7 @@
 @sp{15}
 @center{@titlefont{\e$B<i2,\e(B \e$BCNI'\e(B}}
 @sp{1}
-@center{$Id: tm-head-jp.texi,v 1.1 1994/12/05 06:46:58 morioka Exp $}
+@center{$Id: tm-head-jp.texi,v 1.2 1995/01/30 18:04:24 morioka Exp $}
 
 @end titlepage
 
@@ -31,6 +31,7 @@ tm \e$B$K$*$1$k\e(B MIME header \e$B$N\e(B encoder/decoder \e$B$G$"$k\e(B tiny-mime \e$
 * How-to-use::
 * Variable::
 * Customize::
+* Integrate-into-MUA::
 @end menu
 
 
@@ -149,7 +150,7 @@ default \e$B$G$O\e(B nil \e$B$,;XDj$5$l$F$$$^$9!#\e(B
 @end defvr
 
 
-@node Customize, Top, Variable, Top
+@node Customize, Integrate-into-MUA, Variable, Top
 @comment  node-name,  next,  previous,  up
 @chapter{\e$B%+%9%?%^%$%:\e(B}
 @cindex{\e$B%+%9%?%^%$%:\e(B}
@@ -185,4 +186,27 @@ encode \e$B$9$k:]$N\e(B encoding.
 
 @end deffn
 
+
+@node Integrate-into-MUA, Integrate-into-MUA, Customize, Top
+@comment  node-name,  next,  previous,  up
+@chapter{MUA \e$B$X$NAH$_9~$_\e(B}
+@cindex{MUA \e$B$X$NAH$_9~$_\e(B}
+
+\e$BF|>oE*$K!"L50U<1$K\e(B MIME header \e$B$rK\Mh$N8@8l$G8+$?$$$H$$$&$N$OEvA3$N\e(B
+\e$BM_5a$G$9!#$=$3$G!"\e(Btiny-mime.el \e$B$r\e(B mailer \e$B$d\e(B news reader \e$B$KAH$_9~$`$H<+\e(B
+\e$BF0E*$K\e(B MIME header \e$B$N\e(B encode/decode \e$B$,$G$-$^$9!#\e(B
+
+\e$B$3$NL\E*$r<B8=$9$k$K$O!"\e(Bmailer \e$B$d\e(B news reader \e$B$NE,@Z$J\e(B hook \e$B$K\e(B
+mime/decode-message-header \e$B$rF~$l$l$PNI$$$G$7$g$&!#\e(B
+
+
+@section{\e$BM-MQ$J4X?t\e(B}
+@cindex{\e$BM-MQ$J4X?t\e(B}
+
+@deffn{Function} mime/decode-string STRING
+
+STRING \e$BCf$N\e(B encoded-word \e$B$r\e(B decode \e$B$9$k!#\e(B
+
+@end deffn
+
 @bye

diff --git a/gnus/tm-gnus.el b/gnus/tm-gnus.el
index e2acfa5..7caa3ac 100644 (file)
--- a/gnus/tm-gnus.el
+++ b/gnus/tm-gnus.el
@@ -17,7 +17,7 @@
 ;;; @ version
 ;;;
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus.el,v 5.1 1994/10/25 07:17:51 morioka Exp $")
+  "$Id: tm-gnus.el,v 5.2 1995/01/27 15:55:18 morioka Exp $")
 
 (defconst tm-gnus/version (get-version-string tm-gnus/RCS-ID))
 
@@ -62,10 +62,9 @@ If you don't like it, define your own gnus-article-set-mode-line."
 (defun tm-gnus/decode-summary-subjects ()
   (mapcar (function
           (lambda (header)
-            (nntp-set-header-subject
-             header
-             (mime/decode-string (gnus-header-subject header))
-             )))
+            (let ((subj (or (gnus-header-subject header) "")))
+              (nntp-set-header-subject header (mime/decode-string subj))
+              )))
          gnus-newsgroup-headers)
   )
 

diff --git a/tm-mule.el b/tm-mule.el
index c197b2e..957f731 100644 (file)
--- a/tm-mule.el
+++ b/tm-mule.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-mule.el,v 5.2 1994/11/08 11:18:43 morioka Exp $
+;;; $Id: tm-mule.el,v 5.3 1995/01/27 14:53:01 morioka Exp $
 ;;;
 
 (provide 'tm-mule)
@@ -21,7 +21,7 @@
    (cons lc-ascii nil)
    (cons lc-jp   '("ISO-2022-JP" . "B"))
    (cons lc-cn   '("ISO-2022-CN" . "B"))
-   (cons lc-kr   '("ISO-2022-KR" . "B"))
+   (cons lc-kr   '("EUC-KR"      . "B"))
    (cons lc-ltn1 '("ISO-8859-1"  . "Q"))
    (cons lc-ltn2 '("ISO-8859-2"  . "Q"))
    (cons lc-ltn3 '("ISO-8859-3"  . "Q"))