(mime-editor/insert-binary-buffer): fixed.

(mime-editor/normalize-body): fixed.

diff --git a/mime-edit.el b/mime-edit.el
index 59de222..c62f030 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -9,7 +9,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu;
 ;;;          1996/05/24 renamed from tm-edit.el
-;;; Version: $Revision: 0.12 $
+;;; Version: $Revision: 0.13 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of SEMI (September, Emacs MIME Interface)
@@ -123,7 +123,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: mime-edit.el,v 0.12 1996-05-25 20:47:32 morioka Exp $")
+  "$Id: mime-edit.el,v 0.13 1996-05-26 02:10:08 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1076,8 +1076,7 @@ Optional argument ENCODING specifies an encoding method such as base64."
          ))
       (if hide-p
          (progn
-           ;;(mime-flag-region (point-min) (1- (point-max)) ?\^M)
-           (invisible-region (point-min) (1- (point-max)))
+           (invisible-region (point-min) (point-max))
            (goto-char (point-max))
            )
        ))
@@ -1147,7 +1146,7 @@ Optional argument ENCODING specifies an encoding method such as base64."
              ;; Move to the end of this text.
              (if (re-search-forward mime-editor/tag-regexp nil 'move)
                  ;; Don't forget a multiline tag.
-                 (goto-char (1- (match-beginning 0)))
+                 (goto-char (match-beginning 0))
                )
              (point)
              ))
@@ -1961,7 +1960,7 @@ Content-Transfer-Encoding: 7bit
       (let ((beg (point))
            (end (mime-editor/content-end))
            )
-       (goto-char (1+ end))
+       (goto-char end)
        (or (looking-at mime-editor/beginning-tag-regexp)
            (eobp)
            (insert (mime-make-text-tag) "\n")