tm 6.73.

diff --git a/Changes-6.73.en b/Changes-6.73.en
new file mode 100644 (file)
index 0000000..a54b1f7
--- /dev/null
+++ b/Changes-6.73.en
@@ -0,0 +1,71 @@
+tl
+----------------------------
+(1) Replaced tl-18, tl-nemacs, tl-mule and tl-orig by emu.
+(2) Fixed problem on Emacs 19.29.
+----------------------------
+
+mime-setup.el
+----------------------------
+revision 6.1
+date: 1995/08/26 20:21:12;  author: morioka;  state: Exp;  lines: +2 -1
+Fixed a problem about setting for (ding) GNUS.
+----------------------------
+
+sc-setup.el
+----------------------------
+revision 3.0
+date: 1995/08/26 18:37:34;  author: morioka;  state: Exp;  lines: +9 -4
+Use emacs-major-version to judge.
+----------------------------
+revision 2.0
+date: 1995/08/26 18:35:29;  author: morioka;  state: Exp;  lines: +8 -9
+Replaced tl-18 by emu.
+----------------------------
+
+tiny-mime.el
+----------------------------
+revision 5.18
+date: 1995/08/26 18:38:37;  author: morioka;  state: Exp;  lines: +2 -4
+Replaced tl-18 by emu.
+----------------------------
+revision 5.17
+date: 1995/08/24 17:07:15;  author: morioka;  state: Exp;  lines: +2 -2
+Added "Newsgroups" to default value of variable
+`mime/no-encoding-header-fields'.
+----------------------------
+
+tm-misc.el
+----------------------------
+revision 5.2
+date: 1995/08/26 18:41:39;  author: morioka;  state: Exp;  lines: +18 -7
+Replaced tl-18 by emu.
+----------------------------
+
+tm-mule.el
+----------------------------
+revision 6.3
+date: 1995/08/26 18:42:32;  author: morioka;  state: Exp;  lines: +2 -5
+Replaced tl-18 and tl-mule by emu.
+----------------------------
+
+tm-nemacs.el
+----------------------------
+revision 6.1
+date: 1995/08/26 18:44:31;  author: morioka;  state: Exp;  lines: +2 -3
+Replaced tl-18 and tl-nemacs by emu.
+----------------------------
+
+tm-orig.el
+----------------------------
+revision 6.1
+date: 1995/08/26 18:46:27;  author: morioka;  state: Exp;  lines: +8 -4
+Replaced tl-orig by emu.
+----------------------------
+
+tm-view.el
+----------------------------
+revision 6.73
+date: 1995/08/26 19:53:34;  author: morioka;  state: Exp;  lines: +3 -3
+Renamed function `mime::viewer/quitting-method-for-gnus4' to
+`mime-viewer/quitting-method-for-gnus4'.
+----------------------------

diff --git a/Changes-6.73.ja b/Changes-6.73.ja
new file mode 100644 (file)
index 0000000..a78a4dd
--- /dev/null
+++ b/Changes-6.73.ja
@@ -0,0 +1,70 @@
+tl
+----------------------------
+(1) tl-18, tl-nemacs, tl-mule, tl-orig \e$B$r\e(B emu \e$B$KCV$-49$($?!#\e(B
+(2) Emacs 19.29 \e$B$K$*$1$kIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+mime-setup.el
+----------------------------
+revision 6.1
+date: 1995/08/26 20:21:12;  author: morioka;  state: Exp;  lines: +2 -1
+(ding) GNUS \e$B$K$*$1$k@_Dj$NIT6q9g$r=$@5$7$?!#\e(B
+----------------------------
+
+sc-setup.el
+----------------------------
+revision 3.0
+date: 1995/08/26 18:37:34;  author: morioka;  state: Exp;  lines: +9 -4
+\e$BH=Dj$K\e(B emacs-major-version \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+revision 2.0
+date: 1995/08/26 18:35:29;  author: morioka;  state: Exp;  lines: +8 -9
+tl-18 \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+
+tiny-mime.el
+----------------------------
+revision 5.18
+date: 1995/08/26 18:38:37;  author: morioka;  state: Exp;  lines: +2 -4
+tl-18 \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+revision 5.17
+date: 1995/08/24 17:07:15;  author: morioka;  state: Exp;  lines: +2 -2
+\e$BJQ?t\e(B mime/no-encoding-header-fields \e$B$N=i4|CM$K\e(B "Newsgroups" \e$B$rDI2C$7$?!#\e(B
+----------------------------
+
+tm-misc.el
+----------------------------
+revision 5.2
+date: 1995/08/26 18:41:39;  author: morioka;  state: Exp;  lines: +18 -7
+tl-18 \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+
+tm-mule.el
+----------------------------
+revision 6.3
+date: 1995/08/26 18:42:32;  author: morioka;  state: Exp;  lines: +2 -5
+tl-18, tl-mule \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+
+tm-nemacs.el
+----------------------------
+revision 6.1
+date: 1995/08/26 18:44:31;  author: morioka;  state: Exp;  lines: +2 -3
+tl-18, tl-nemacs \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+
+tm-orig.el
+----------------------------
+revision 6.1
+date: 1995/08/26 18:46:27;  author: morioka;  state: Exp;  lines: +8 -4
+tl-orig \e$B$r;H$&$N$r$d$a$F\e(B emu \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+
+tm-view.el
+----------------------------
+revision 6.73
+date: 1995/08/26 19:53:34;  author: morioka;  state: Exp;  lines: +3 -3
+\e$B4X?t\e(B mime::viewer/quitting-method-for-gnus4 \e$B$r\e(B
+mime-viewer/quitting-method-for-gnus4 \e$B$K2~L>$7$?!#\e(B
+----------------------------

diff --git a/Makefile b/Makefile
index 2b2dd20..617f8bd 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -67,7 +67,7 @@ TL_FILES = tl/README.eng \
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm6.72.tar
+TARFILE = tm6.73.tar
 
 
 nemacs:

diff --git a/gnus/tm-dgnus.el b/gnus/tm-dgnus.el
index 8fbb8ac..c8da5be 100644 (file)
--- a/gnus/tm-dgnus.el
+++ b/gnus/tm-dgnus.el
@@ -10,16 +10,19 @@
 ;;; @ version
 ;;;
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-dgnus.el,v 6.14 1995/08/01 17:19:15 morioka Exp $")
+  "$Id: tm-dgnus.el,v 6.15 1995/08/25 14:08:02 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " (ding)"))
 
 (defconst tm-gnus/automatic-MIME-preview-support
-  (if (boundp 'gnus-clean-article-buffer)
-      (progn
-       (defconst gnus-version (concat gnus-version " with tm patch"))
-       t)))
+  (cond ((boundp 'gnus-clean-article-buffer)
+        (defconst gnus-version (concat gnus-version " with tm patch"))
+        t)
+       (t
+        (defvar gnus-clean-article-buffer gnus-article-buffer)
+        nil)
+       ))
 
 (defvar tm-gnus/preview-buffer
   (if tm-gnus/automatic-MIME-preview-support

diff --git a/mime-setup.el b/mime-setup.el
index a1d8148..b93a5d6 100644 (file)
--- a/mime-setup.el
+++ b/mime-setup.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: mime-setup.el,v 6.0 1995/05/30 12:49:34 morioka Exp $
+;;; $Id: mime-setup.el,v 6.1 1995/08/26 20:21:12 morioka Exp $
 ;;;
 
 (provide 'mime-setup)
@@ -177,6 +177,7 @@
          (function
           (lambda ()
             (mime/decode-message-header)
+            (set-buffer-modified-p nil)
             (mime-mode)
             )))
 (setq gnus-signature-file nil)

diff --git a/sc-setup.el b/sc-setup.el
index 18f38a1..4b0b2f5 100644 (file)
--- a/sc-setup.el
+++ b/sc-setup.el
@@ -1,24 +1,21 @@
 ;;;
-;;; $Id: sc-setup.el,v 1.3 1994/08/22 13:56:10 morioka Exp morioka $
+;;; $Id: sc-setup.el,v 3.0 1995/08/26 18:37:34 morioka Exp $
 ;;;
 
-(provide 'sc-setup)
-
-
-;;; @ for Emacs 18
-;;;
-(if (not (fboundp 'add-hook))
-    (require 'tl-18)
-  )
+(require 'emu)
 
 
 ;;; @ for Super Cite
 ;;;
-(if (< (string-to-int emacs-version) 19)
+
+(if (< emacs-major-version 19)
     (autoload 'sc-cite-original "sc" nil t)
   (autoload 'sc-cite-original  "supercite" "supercite 3.1" t)
-  (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t))
+  (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
+  )
+
 (setq sc-citation-leader "")
+
 (cond ((boundp 'MULE)
        ;; for MULE
        (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
@@ -28,7 +25,8 @@
        (setq sc-cite-regexp
             "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
        ))
-(if (< (string-to-int emacs-version) 19)
+
+(if (< emacs-major-version 19)
     (progn
       (defun my-sc-overload-hook ()
        (require 'sc-oloads)
@@ -71,3 +69,9 @@
 ;;             (- (length sc-rewrite-header-list) 1))
 ;;       ))
 (setq sc-preferred-attribution 'registeredname)
+
+
+;;; @ end
+;;;
+
+(provide 'sc-setup)

diff --git a/tiny-mime.el b/tiny-mime.el
index 2998e31..85b6e48 100644 (file)
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -8,18 +8,16 @@
 
 ;;; @ require modules
 ;;;
+(require 'emu)
 (require 'tl-header)
 (require 'tl-str)
 (require 'tl-num)
-(if (not (fboundp 'member))
-    (require 'tl-18)
-  )
 
 
 ;;; @ version
 ;;;
 (defconst mime/RCS-ID
-  "$Id: tiny-mime.el,v 5.16 1995/07/26 05:54:16 morioka Exp $")
+  "$Id: tiny-mime.el,v 5.18 1995/08/26 18:38:37 morioka Exp $")
 
 (defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
 
@@ -87,7 +85,7 @@
 ;;; @ variables
 ;;;
 
-(defvar mime/no-encoding-header-fields '("X-Nsubject"))
+(defvar mime/no-encoding-header-fields '("X-Nsubject" "Newsgroups"))
 
 (defvar mime/use-X-Nsubject nil)
 

diff --git a/tm-misc.el b/tm-misc.el
index 26ebf7f..635e017 100644 (file)
--- a/tm-misc.el
+++ b/tm-misc.el
@@ -1,21 +1,26 @@
 ;;;
-;;; $Id: tm-misc.el,v 5.1 1994/10/25 08:31:15 morioka Exp $
+;;; $Id: tm-misc.el,v 5.2 1995/08/26 18:41:39 morioka Exp $
 ;;;
 ;;;   MIME utility for tm-*.el MIME user agent packages
 ;;;
 ;;; by Morioka Tomohiko, 1993/11/21
+;;;
 
-(provide 'tm-misc)
-
-(if (< (string-to-int emacs-version) 19)
-    (require 'tl-18)
-  )
+(require 'emu)
 (require 'tiny-mime)
 
+
+;;; @ variables
+;;;
+
 (defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))
 
 (defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")
 
+
+;;; @ functions
+;;;
+
 (defun mime/decode-message-header-if-you-need ()
   (if mime/header-decoding-mode
       (mime/decode-message-header)
@@ -29,7 +34,7 @@
       ))
 
 
-;;; @ functions to check field
+;;; @@ functions to check field
 ;;;
 (defun mime/exist-encoded-word-in-subject ()
   (string-match
@@ -41,3 +46,9 @@
           (buffer-substring (match-beginning 0) (match-end 0))
         )
        ))))
+
+
+;;; @ end
+;;;
+
+(provide 'tm-misc)

diff --git a/tm-mule.el b/tm-mule.el
index 6acda3f..b29efb7 100644 (file)
--- a/tm-mule.el
+++ b/tm-mule.el
@@ -1,13 +1,10 @@
 ;;;
-;;; $Id: tm-mule.el,v 6.2 1995/06/19 18:54:53 morioka Exp $
+;;; $Id: tm-mule.el,v 6.3 1995/08/26 18:42:32 morioka Exp $
 ;;;
 
+(require 'emu)
 (require 'tl-list)
-(require 'tl-mule)
 
-(if (not (fboundp 'member))
-    (require 'tl-18)
-  )
 
 ;;; @ variables
 ;;;

diff --git a/tm-nemacs.el b/tm-nemacs.el
index 4371342..a873fad 100644 (file)
--- a/tm-nemacs.el
+++ b/tm-nemacs.el
@@ -1,9 +1,8 @@
 ;;;
-;;; $Id: tm-nemacs.el,v 6.0 1995/06/11 13:27:23 morioka Exp $
+;;; $Id: tm-nemacs.el,v 6.1 1995/08/26 18:44:31 morioka Exp $
 ;;;
 
-(require 'tl-18)
-(require 'tl-nemacs)
+(require 'emu)
 
 
 ;;; @ variables

diff --git a/tm-orig.el b/tm-orig.el
index 39e401a..d5aa4d9 100644 (file)
--- a/tm-orig.el
+++ b/tm-orig.el
@@ -1,8 +1,8 @@
 ;;;
-;;; $Id: tm-orig.el,v 6.0 1995/06/11 13:48:54 morioka Exp $
+;;; $Id: tm-orig.el,v 6.1 1995/08/26 18:46:27 morioka Exp $
 ;;;
 
-(provide 'tm-orig)
+(require 'emu)
 
 
 ;;; @ variables
@@ -53,6 +53,10 @@
 (defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
   )
 
-(run-hooks 'tm-orig-load-hook)
 
-(require 'tl-orig)
+;;; @ end
+;;;
+
+(provide 'tm-orig)
+
+(run-hooks 'tm-orig-load-hook)

diff --git a/tm-view.el b/tm-view.el
index 547762c..86a11cd 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -21,7 +21,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 6.72 1995/08/12 18:58:45 morioka Exp $")
+  "$Id: tm-view.el,v 6.73 1995/08/26 19:53:34 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -255,7 +255,7 @@
 ;;; @@ quitting
 ;;;
 
-(defun mime::viewer/quitting-method-for-gnus4 ()
+(defun mime-viewer/quitting-method-for-gnus4 ()
   (mime-viewer/kill-buffer)
   (delete-other-windows)
   (gnus-article-show-summary)
@@ -264,7 +264,7 @@
     ))
 
 (defvar mime-viewer/quitting-method-alist
-  '((gnus-article-mode . mime::viewer/quitting-method-for-gnus4)
+  '((gnus-article-mode . mime-viewer/quitting-method-for-gnus4)
     (mime/show-message-mode
      . (lambda ()
         (set-window-configuration