From: morioka <morioka>
Date: Mon, 2 Mar 1998 14:10:23 +0000 (+0000)
Subject: tm 5.21.8
X-Git-Tag: tm5_21_8~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=740d589e65b5be8c0ffab56bcac2bba71ae8dd28;p=elisp%2Ftm.git

tm 5.21.8
---

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