tm 7.18.

diff --git a/Changes-7.18.en b/Changes-7.18.en
new file mode 100644 (file)
index 0000000..01f8644
--- /dev/null
+++ b/Changes-7.18.en
@@ -0,0 +1,83 @@
+* tl
+
+  Attached version 7.01.1.
+
+tl/mu-cite.el
+----------------------------
+revision 3.3
+date: 1995/10/20 10:43:28;  author: morioka;  state: Exp;  lines: +4 -2
+Fixed function `mu-cite/cite-original'.
+----------------------------
+
+
+* mel
+
+  Attached Version 2.1.
+
+mel/mel.el
+----------------------------
+revision 2.1
+date: 1995/10/20 10:51:39;  author: morioka;  state: Exp;  lines: +18 -1
+Function `mime/encode-region' was created.
+----------------------------
+revision 2.0
+date: 1995/10/20 10:38:08;  author: morioka;  state: Exp;  lines: +27 -1
+Function `mime/decode-region' was created.
+----------------------------
+
+
+* tm
+
+tm/tm-rich.el
+----------------------------
+revision 7.1
+date: 1995/10/20 10:40:06;  author: morioka;  state: Exp;  lines: +3 -15
+Use function `mime/decode-region'.
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 7.18
+date: 1995/10/20 10:41:59;  author: morioka;  state: Exp;  lines: +3 -9
+Function `mime-viewer/filter-text/plain' was modified\e$B!'\e(B
+(1) Use function `mime/decode-region'.
+(2) Unnecessary goto-char was deleted.
+(3) Unnecessary save-excursion was deleted.
+----------------------------
+
+tm/tm-w3.el
+----------------------------
+revision 3.0
+date: 1995/10/20 10:42:41;  author: morioka;  state: Exp;  lines: +2 -7
+Use function `mime/decode-region'.
+----------------------------
+revision 2.0
+date: 1995/10/19 07:57:57;  author: morioka;  state: Exp;  lines: +7 -1
+Decode base64 or quoted-printable.
+----------------------------
+
+
+* tm/gnus
+
+  Attached Version 7.5.
+
+tm/tm-sgnus.el
+----------------------------
+revision 7.5
+date: 1995/10/19 14:22:47;  author: morioka;  state: Exp;  lines: +1 -5
+Not support gnus-5.0.6-nnheader.diff. (^_^;
+----------------------------
+
+
+* tm/mh-e
+
+  Attached Version 7.7.
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 7.7
+date: 1995/10/20 10:54:27;  author: morioka;  state: Exp;  lines: +10 -2
+(1) In automatic MIME preview mode, if `,' key is pressed, it displays 
+    preview buffer which has all fields of message header.
+(2) Raw message displaying function is bound to `ESC ,'.
+----------------------------

diff --git a/Changes-7.18.ja b/Changes-7.18.ja
new file mode 100644 (file)
index 0000000..2ff3ef2
--- /dev/null
+++ b/Changes-7.18.ja
@@ -0,0 +1,83 @@
+* tl
+
+  Version 7.01.1 \e$B$rE:IU$7$?!#\e(B
+
+tl/mu-cite.el
+----------------------------
+revision 3.3
+date: 1995/10/20 10:43:28;  author: morioka;  state: Exp;  lines: +4 -2
+\e$B4X?t\e(B mu-cite/cite-original \e$B$r=$@5$7$?!#\e(B
+----------------------------
+
+
+* mel
+
+  Version 2.1 \e$B$rE:IU$7$?!#\e(B
+
+mel/mel.el
+----------------------------
+revision 2.1
+date: 1995/10/20 10:51:39;  author: morioka;  state: Exp;  lines: +18 -1
+\e$B4X?t\e(B mime/encode-region \e$B$rDI2C$7$?!#\e(B
+----------------------------
+revision 2.0
+date: 1995/10/20 10:38:08;  author: morioka;  state: Exp;  lines: +27 -1
+\e$B4X?t\e(B mime/decode-region \e$B$rDI2C$7$?!#\e(B
+----------------------------
+
+
+* tm
+
+tm/tm-rich.el
+----------------------------
+revision 7.1
+date: 1995/10/20 10:40:06;  author: morioka;  state: Exp;  lines: +3 -15
+\e$B4X?t\e(B mime/decode-region \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 7.18
+date: 1995/10/20 10:41:59;  author: morioka;  state: Exp;  lines: +3 -9
+\e$B4X?t\e(B mime-viewer/filter-text/plain \e$B$r=$@5$7$?!'\e(B
+(1) \e$B4X?t\e(B mime/decode-region \e$B$r;H$&$h$&$K$7$?!#\e(B
+(2) \e$BL5BL$J\e(B goto-char \e$B$r:o=|$7$?!#\e(B
+(3) \e$BL5BL$J\e(B save-excursion \e$B$r:o=|$7$?!#\e(B
+----------------------------
+
+tm/tm-w3.el
+----------------------------
+revision 3.0
+date: 1995/10/20 10:42:41;  author: morioka;  state: Exp;  lines: +2 -7
+\e$B4X?t\e(B mime/decode-region \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+revision 2.0
+date: 1995/10/19 07:57:57;  author: morioka;  state: Exp;  lines: +7 -1
+base64 \e$B$d\e(B quoted-printable \e$B$N>l9g!"\e(Bdecode \e$B$9$k$h$&$K$7$?!#\e(B
+----------------------------
+
+
+* tm/gnus
+
+  Version 7.5 \e$B$rE:IU$7$?!#\e(B
+
+tm/tm-sgnus.el
+----------------------------
+revision 7.5
+date: 1995/10/19 14:22:47;  author: morioka;  state: Exp;  lines: +1 -5
+gnus-5.0.6-nnheader.diff \e$B$r8+<N$F$?!#\e(B(^_^;
+----------------------------
+
+
+* tm/mh-e
+
+  Version 7.7 \e$B$rE:IU$7$?!#\e(B
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 7.7
+date: 1995/10/20 10:54:27;  author: morioka;  state: Exp;  lines: +10 -2
+(1) automatic MIME preview mode \e$B$N;~$K\e(B `,' \e$B$r2!$7$?>l9g!"\e(Bheader \e$B$rA4It\e(B
+    \e$BI=<($7$?\e(B preview buffer \e$B$rI=<($9$k$h$&$K$7$?!#\e(B
+(2) \e$B>o$K@8$N2hLL$rI=<($9$k4X?t$r\e(B `ESC ,' \e$B$K3d$jEv$F$?!#\e(B
+----------------------------

diff --git a/Makefile b/Makefile
index 1f92281..67e501f 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -34,7 +34,7 @@ TL_FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.17.tar
+TARFILE = tm7.18.tar
 
 
 nemacs:

diff --git a/gnus/Makefile b/gnus/Makefile
index 6265993..8da6199 100644 (file)
--- a/gnus/Makefile
+++ b/gnus/Makefile
@@ -17,7 +17,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp
 
 FILES  = tm/gnus/*.el tm/doc/tm-gnus*.texi
 
-TARFILE = tm-gnus7.04.tar
+TARFILE = tm-gnus7.05.tar
 
 
 gnus3:

diff --git a/gnus/s-path b/gnus/s-path
index bc9ea48..f4d0ad7 100644 (file)
--- a/gnus/s-path
+++ b/gnus/s-path
@@ -12,6 +12,6 @@
        ;;
        ;; please edit this
        ;;
-       '("/usr/local/lib/emacs/site-lisp/sgnus/lisp")
+       '("/usr/local/lib/emacs/site-lisp/sgnus-0.11/lisp")
        ;;
        load-path))

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index c95e9d9..c096b72 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -26,7 +26,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.4 1995/10/18 08:32:36 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.5 1995/10/19 14:22:47 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -130,12 +130,8 @@ article is automatic MIME decoded.")
                     ))
                 gnus-newsgroup-headers)
         )
-       
        (add-hook 'gnus-select-group-hook
                 (function tm-gnus/decode-summary-from-and-subjects))
-       )
-      (t
-       (defalias 'mime/decode-encoded-words-string 'mime-eword/decode-string)
        ))
 
 

diff --git a/mh-e/Makefile b/mh-e/Makefile
index 9e08e4e..c3d8415 100644 (file)
--- a/mh-e/Makefile
+++ b/mh-e/Makefile
@@ -23,7 +23,7 @@ TMDIR19       = $(HOME)/lib/emacs19/lisp
 
 
 FILES  = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol
-TARFILE = tm-mh-e7.06.tar
+TARFILE = tm-mh-e7.07.tar
 
 
 elc:

diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index b41e7d4..1f9c2c7 100644 (file)
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -26,7 +26,7 @@
 ;;;
 
 (defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 7.6 1995/10/19 07:51:52 morioka Exp $")
+  "$Id: tm-mh-e.el,v 7.7 1995/10/20 10:54:27 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
@@ -177,7 +177,14 @@ With arg, turn MIME processing on if arg is positive."
   (interactive)
   (mh-invalidate-show-buffer)
   (let (mime-viewer/ignored-field-list
-       tm-mh-e/decode-all
+       tm-mh-e/decode-encoded-word)
+    (mh-header-display)
+    ))
+
+(defun tm-mh-e/raw-display ()
+  (interactive)
+  (mh-invalidate-show-buffer)
+  (let (tm-mh-e/decode-all
        tm-mh-e/decode-encoded-word)
     (mh-header-display)
     ))
@@ -295,6 +302,7 @@ With arg, turn MIME processing on if arg is positive."
 (define-key mh-folder-mode-map "\et" (function tm-mh-e/toggle-decoding-mode))
 (define-key mh-folder-mode-map "." (function tm-mh-e/show))
 (define-key mh-folder-mode-map "," (function tm-mh-e/header-display))
+(define-key mh-folder-mode-map "\e," (function tm-mh-e/raw-display))
 (define-key mh-folder-mode-map "\r"
   (function (lambda ()
              (interactive)

diff --git a/tm-rich.el b/tm-rich.el
index 48c8ee1..398b60d 100644 (file)
--- a/tm-rich.el
+++ b/tm-rich.el
@@ -7,7 +7,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-rich.el,v 7.0 1995/10/04 05:27:50 morioka Exp $
+;;;    $Id: tm-rich.el,v 7.1 1995/10/20 10:40:06 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, richtext, enriched
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -38,13 +38,7 @@
         (beg (point-min)) (end (point-max))
         )
     (remove-text-properties beg end '(face nil))
-    (cond ((string= encoding "quoted-printable")
-          (quoted-printable-decode-region beg end)
-          )
-         ((string= encoding "base64")
-          (base64-decode-region beg end)
-          ))
-    ;; end
+    (mime/decode-region encoding beg end)
     (if (and m (fboundp (setq m (cdr m))))
        (funcall m beg (point-max) charset encoding)
       (mime-viewer/default-code-convert-region beg (point-max)
@@ -62,13 +56,7 @@
         (beg (point-min)) (end (point-max))
         )
     (remove-text-properties beg end '(face nil))
-    (cond ((string= encoding "quoted-printable")
-          (quoted-printable-decode-region beg end)
-          )
-         ((string= encoding "base64")
-          (base64-decode-region beg end)
-          ))
-    ;; end
+    (mime/decode-region encoding beg end)
     (if (and m (fboundp (setq m (cdr m))))
        (funcall m beg (point-max) charset encoding)
       (mime-viewer/default-code-convert-region beg (point-max)

diff --git a/tm-view.el b/tm-view.el
index aa64a72..ed6a732 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -25,7 +25,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.17 1995/10/19 07:55:54 morioka Exp $")
+  "$Id: tm-view.el,v 7.18 1995/10/20 10:41:59 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -594,13 +594,7 @@ The compressed face will be piped to this command.")
   (let ((charset (cdr (assoc "charset" params)))
        (beg (point-min)) (end (point-max))
        )
-    (goto-char (point-min))
-    (cond ((string= encoding "quoted-printable")
-          (quoted-printable-decode-region beg end)
-          )
-         ((string= encoding "base64")
-          (base64-decode-region beg end)
-          ))
+    (mime/decode-region encoding beg end)
     (let* ((mode mime::preview/original-major-mode)
           (m (assq mode mime-viewer/code-converter-alist))
           )
@@ -614,7 +608,7 @@ The compressed face will be piped to this command.")
       (insert "\n")
     )
   (if browse-url-browser-function
-      (save-excursion
+      (progn
        (goto-char (point-min))
        (while (re-search-forward tm:URL-regexp nil t)
          (tm:add-button (match-beginning 0)(match-end 0)

diff --git a/tm-w3.el b/tm-w3.el
index 195afba..55c3f75 100644 (file)
--- a/tm-w3.el
+++ b/tm-w3.el
@@ -5,7 +5,7 @@
 ;;;
 ;;; based on tm-latex.el by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;;;
-;;; $Id: tm-w3.el,v 2.0 1995/10/19 07:57:57 morioka Exp $
+;;; $Id: tm-w3.el,v 3.0 1995/10/20 10:42:41 morioka Exp $
 ;;;
 
 (require 'tm-view)
@@ -33,12 +33,7 @@
            (re-search-forward "^$")
            (append-to-buffer new-buf (+ (match-end 0) 1) end)
            )))
-    (cond ((string= encoding "quoted-printable")
-          (quoted-printable-decode-region (point-min)(point-max))
-          )
-         ((string= encoding "base64")
-          (base64-decode-region (point-min)(point-max))
-          ))
+    (mime/decode-region encoding (point-min)(point-max))
     (call-interactively mime-viewer/html-default-mode)
     ))