From: morioka <morioka>
Date: Sun, 26 May 1996 02:10:08 +0000 (+0000)
Subject: (mime-editor/insert-binary-buffer): fixed.
X-Git-Tag: Hokutetsu-Ishikawa-new~390
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3080b98af6fbd740bb863b7f63dc6917b266c02b;p=elisp%2Fsemi.git

(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
--- 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")