tm 7.50.

diff --git a/ChangeLog b/ChangeLog
index 571e96e..97d3eec 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,22 @@
+Tue Apr 16 18:26:13 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tm: Version 7.50 was released.
+
+       * tm-file.el, tm-bbdb.el, tm-rmail.el, tm-mail.el, tm-vm.el:
+       KOBAYASHI Shuhei's address was changed.
+
+Tue Apr 16 14:32:43 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tm-edit.el: use `running-xemacs' to check XEmacs.
+       (mime-editor/normalize-body): nil check for encoded result.
+
+       * tm-mule.el (mime/charset-coding-system-alist): add ``KOI8-R''
+
+Tue Apr 16 12:42:35 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mime-setup.el.in: insert `;;; End:'. (cf. [tm-ja:1731])
+
+\f
 Mon Apr 15 09:10:01 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.19.1 was released.

diff --git a/Makefile b/Makefile
index a01026e..798a238 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -45,7 +45,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els tl/*.el \
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.49.tar.gz
+TARFILE = tm7.50.tar.gz
 
 elc:
        $(EMACS) $(FLAGS) -l inst-tm -f compile-tm

diff --git a/TM-CFG b/TM-CFG
index 56143ac..9736aee 100644 (file)
--- a/TM-CFG
+++ b/TM-CFG
@@ -42,8 +42,8 @@
 ;;;
 
 ;; Please specify install path prefix.
-(setq PREFIX "~/")             ; install to you home directory
-;;(setq PREFIX "/usr/local/")  ; install to shared directory
+;;(setq PREFIX "~/")           ; install to you home directory
+(setq PREFIX "/usr/local/")    ; install to shared directory
 
 ;; Please specify tm package prefix [optional]
 (setq TM_PACKAGE_PREFIX "")

diff --git a/gnus/s-path b/gnus/s-path
index 12a2249..02dbc04 100644 (file)
--- a/gnus/s-path
+++ b/gnus/s-path
@@ -8,8 +8,11 @@
 
 ;; please edit
 
+;; It is for latest September Gnus.
+(add-path (expand-file-name "lisp/" (get-latest-path "sgnus")))
+
 ;; It is relative style. Added path is searched from load-path.
-(add-path "sgnus-0.69/lisp/" 'all-paths)
+;; (add-path "sgnus-0.69/lisp/" 'all-paths)
 
 ;; It is absolute style.
 ;; (add-path "/usr/local/share/emacs/site-lisp/sgnus/lisp/")

diff --git a/mime-setup.el.in b/mime-setup.el.in
index fe6ee8a..cc6cc8f 100644 (file)
--- a/mime-setup.el.in
+++ b/mime-setup.el.in
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: mime-setup.el.in,v 7.19 1996/04/13 04:04:12 morioka Exp $
+;;;    $Id: mime-setup.el.in,v 7.20 1996/04/16 12:42:35 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -153,3 +153,4 @@
 ;;;
 ;;; Local Variables:
 ;;; mode: emacs-lisp
+;;; End:

diff --git a/tm-bbdb.el b/tm-bbdb.el
index 393e459..0d7e896 100644 (file)
--- a/tm-bbdb.el
+++ b/tm-bbdb.el
@@ -4,11 +4,11 @@
 ;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
 ;;; Copyright (C) 1996 Artur Pioro
 ;;;
-;;; Author: KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; Author: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;;         Artur Pioro <artur@flugor.if.uj.edu.pl>
 ;;; modified by Pekka Marjola <marjola@bilbo.ntc.nokia.com>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Id: tm-bbdb.el,v 7.4 1996/03/26 09:17:37 morioka Exp $
+;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
+;;; Version: $Id: tm-bbdb.el,v 7.5 1996/04/16 18:19:48 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
 ;;;
 ;;; This file is part of tm (Tools for MIME).

diff --git a/tm-edit.el b/tm-edit.el
index a8647df..90b69f6 100644 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -8,7 +8,7 @@
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.49 $
+;;; Version: $Revision: 7.50 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.49 1996/04/11 00:39:12 morioka Exp $")
+  "$Id: tm-edit.el,v 7.50 1996/04/16 14:32:43 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -626,8 +626,7 @@ Tspecials means any character that matches with it in header must be quoted.")
 
 ;;; modified by Steven L. Baur <steve@miranova.com>
 ;;;    1995/12/6 (c.f. [tm-en:209])
-(if (and (string-match "XEmacs\\|Lucid" emacs-version)
-        (not (boundp 'mime-editor/popup-menu-for-xemacs)))
+(if (and running-xemacs (not (boundp 'mime-editor/popup-menu-for-xemacs)))
     (setq mime-editor/popup-menu-for-xemacs
          (append '("MIME Commands" "---")
                  (mapcar (function (lambda (item)
@@ -759,12 +758,13 @@ User customizable variables (not documented all of them):
       (error "You are already editing a MIME message.")
     (setq mime/editor-mode-flag t)
     ;; Remember old key bindings.
-    (if (string-match "XEmacs\\|Lucid" emacs-version)
+    (if running-xemacs
        nil
-    (make-local-variable 'mime/editor-mode-old-local-map)
-    (setq mime/editor-mode-old-local-map (current-local-map))
-    ;; Add MIME commands to current local map.
-      (use-local-map (copy-keymap (current-local-map))))
+      (make-local-variable 'mime/editor-mode-old-local-map)
+      (setq mime/editor-mode-old-local-map (current-local-map))
+      ;; Add MIME commands to current local map.
+      (use-local-map (copy-keymap (current-local-map)))
+      )
     (if (not (lookup-key (current-local-map) mime-prefix))
        (define-key (current-local-map) mime-prefix mime-editor/mime-map))
 
@@ -778,7 +778,7 @@ User customizable variables (not documented all of them):
     ;; welcome.
     ;; modified by Pekka Marjola <pema@niksula.hut.fi>
     ;;         1995/9/5 (c.f. [tm-eng:69])
-    (cond ((string-match "XEmacs\\|Lucid" emacs-version)
+    (cond (running-xemacs
           (mime-editor/define-menu-for-xemacs))
          ((string-match "^19\\." emacs-version)
           (mime-editor/define-menu-for-emacs19)
@@ -821,7 +821,7 @@ just return to previous mode."
          (mime-editor/translate-buffer)))
     ;; Restore previous state.
     (setq mime/editor-mode-flag nil)
-    (cond ((string-match "XEmacs\\|Lucid" emacs-version)
+    (cond (running-xemacs
           ;; mime-prefix only defined if binding was nil
           (if (eq (lookup-key (current-local-map) mime-prefix)
                   mime-editor/mime-map)
@@ -1972,7 +1972,7 @@ Content-Transfer-Encoding: 7bit
                        (encoded (mime-editor/encode-string
                                  (cons charset encoding) body))
                        )
-                  (if (not (string-equal body encoded))
+                  (if (and encoded (not (string-equal body encoded)))
                       (progn
                         (goto-char beg)
                         (delete-region beg end)

diff --git a/tm-file.el b/tm-file.el
index f5cf4fa..0517942 100644 (file)
--- a/tm-file.el
+++ b/tm-file.el
@@ -5,9 +5,9 @@
 ;;; Copyright (C) 1995 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-file.el,v 7.4 1996/03/25 12:48:13 morioka Exp $
+;;;    $Id: tm-file.el,v 7.5 1996/04/16 18:21:23 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -94,3 +94,5 @@
 ;;;
 
 (provide 'tm-file)
+
+;;; end of tm-file.el

diff --git a/tm-html.el b/tm-html.el
index 0f832fc..4a3c590 100644 (file)
--- a/tm-html.el
+++ b/tm-html.el
@@ -8,7 +8,7 @@
 ;;; Created: 1995/9/14
 ;;;    based on tm-latex.el by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;;; Version:
-;;;    $Id: tm-html.el,v 7.4 1995/12/14 15:33:55 morioka Exp $
+;;;    $Id: tm-html.el,v 7.5 1996/04/16 18:22:51 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, HTML, WWW
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -70,3 +70,5 @@
 ;;;
 
 (provide 'tm-html)
+
+;;; end of tm-html.el

diff --git a/tm-mail.el b/tm-mail.el
index df67ad3..b9cae54 100644 (file)
--- a/tm-mail.el
+++ b/tm-mail.el
@@ -3,12 +3,12 @@
 ;;;
 ;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
 ;;; 
-;;; Author: KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; Author: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;;         and Neal Becker <neal@neal.ctd.comsat.com>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1995/11/27
-;;; Version: $Id: tm-mail.el,v 5.0 1996/04/14 00:17:05 morioka Exp $
+;;; Version: $Id: tm-mail.el,v 6.0 1996/04/16 18:24:02 morioka Exp $
 ;;; Keywords: mail, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).

diff --git a/tm-mule.el b/tm-mule.el
index 9c1a941..61d81e2 100644 (file)
--- a/tm-mule.el
+++ b/tm-mule.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-mule.el,v 7.8 1996/02/12 16:02:05 morioka Exp $
+;;;    $Id: tm-mule.el,v 7.9 1996/04/16 13:42:44 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -46,6 +46,7 @@
     ("ISO-8859-3"      . *iso-8859-3*)
     ("ISO-8859-4"      . *iso-8859-4*)
     ("ISO-8859-5"      . *iso-8859-5*)
+    ("KOI8-R"          . *koi8*)
     ("ISO-8859-7"      . *iso-8859-7*)
     ("ISO-8859-8"      . *iso-8859-8*)
     ("ISO-8859-9"      . *iso-8859-9*)

diff --git a/tm-rmail.el b/tm-rmail.el
index 3e617dc..d6a40b6 100644 (file)
--- a/tm-rmail.el
+++ b/tm-rmail.el
@@ -3,10 +3,10 @@
 ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1994/8/30
 ;;; Version:
-;;;    $Revision: 7.23 $
+;;;    $Revision: 7.24 $
 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst tm-rmail/RCS-ID
-  "$Id: tm-rmail.el,v 7.23 1996/01/23 04:49:16 morioka Exp $")
+  "$Id: tm-rmail.el,v 7.24 1996/04/16 18:24:58 morioka Exp $")
 (defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID))
 
 (defvar tm-rmail/decode-all nil)

diff --git a/tm-vm.el b/tm-vm.el
index acc728c..3e6479c 100644 (file)
--- a/tm-vm.el
+++ b/tm-vm.el
@@ -9,14 +9,14 @@
 ;;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
 ;;;         Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;;         Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;;         Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
 ;;;         Oscar Figueiredo <figueire@lspsun2.epfl.ch>
 ;;; modified by SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
 ;;;             ISHIHARA Akito <aki@bpel.tutics.tut.ac.jp>
 ;;;             Rob Kooper <kooper@cc.gatech.edu>
-;;; Maintainer: Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1994/10/29
-;;; Version: $Revision: 7.50 $
+;;; Version: $Revision: 7.51 $
 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -43,7 +43,7 @@
 (require 'vm)
 
 (defconst tm-vm/RCS-ID
-  "$Id: tm-vm.el,v 7.50 1996/04/14 00:21:21 morioka Exp $")
+  "$Id: tm-vm.el,v 7.51 1996/04/16 18:26:13 morioka Exp $")
 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
 
 (define-key vm-mode-map "Z" 'tm-vm/view-message)