tm 7.80.

[elisp/tm.git] / tm-edit.el

diff --git a/tm-edit.el b/tm-edit.el
index 2a14520..15b0e7c 100644 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -6,7 +6,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.79 $
+;; Version: $Revision: 7.80 $
 ;; Keywords: mail, news, MIME, multimedia, multilingual
 
 ;; This file is part of tm (Tools for MIME).
@@ -121,7 +121,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.79 1996/08/23 07:26:32 morioka Exp $")
+  "$Id: tm-edit.el,v 7.80 1996/08/30 15:16:52 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1960,11 +1960,13 @@ Content-Transfer-Encoding: 7bit
       (let ((beg (point))
            (end (mime-editor/content-end))
            )
-       (goto-char end)
-       (or (looking-at mime-editor/beginning-tag-regexp)
-           (eobp)
-           (insert (mime-make-text-tag) "\n")
-           )
+       (if (= end (point-max))
+           nil
+         (goto-char end)
+         (or (looking-at mime-editor/beginning-tag-regexp)
+             (eobp)
+             (insert (mime-make-text-tag) "\n")
+             ))
        (visible-region beg end)
        (goto-char beg)
        )