From: morioka <morioka>
Date: Fri, 24 May 1996 15:16:37 +0000 (+0000)
Subject: (mime-editor/goto-tag): fixed for a tag without line break.
X-Git-Tag: Hokutetsu-Ishikawa-new~400
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5a096a83253f71285eec285be4be4af81888e2bd;p=elisp%2Fsemi.git

(mime-editor/goto-tag): fixed for a tag without line break.
(mime-editor/normalize-body): fixed for a tag without line break.
---

diff --git a/mime-edit.el b/mime-edit.el
index 457bc55..5cbf901 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;
 ;;;                      1996/05/24 renamed from tm-edit.el)
-;;; Version: $Revision: 0.2 $
+;;; Version: $Revision: 0.3 $
 ;;; 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.2 1996-05-24 14:56:34 morioka Exp $")
+  "$Id: mime-edit.el,v 0.3 1996-05-24 15:16:37 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1106,16 +1106,13 @@ Optional argument ENCODING specifies an encoding method such as base64."
 	t
       ;; At first, go to the end.
       (cond ((re-search-forward mime-editor/beginning-tag-regexp nil t)
-	     (goto-char (match-beginning 0)) ;For multiline tag
-	     (forward-line -1)
-	     (end-of-line)
+	     (goto-char (1- (match-beginning 0))) ;For multiline tag
 	     )
 	    (t
 	     (goto-char (point-max))
 	     ))
       ;; Then search for the beginning. 
       (re-search-backward mime-editor/end-tag-regexp nil t)
-      (beginning-of-line)
       (or (looking-at mime-editor/beginning-tag-regexp)
 	  ;; Restore previous point.
 	  (progn
@@ -2032,7 +2029,7 @@ Content-Transfer-Encoding: 7bit
 	      (mime-encode-region beg (mime-editor/content-end) encoding)
 	      (mime-editor/define-encoding encoding)
 	      ))
-	(forward-line 1)
+	(goto-char (mime-editor/content-end))
 	)
        ((null encoding)		;Encoding is not specified.
 	;; Application, image, audio, video, and any other