(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 (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;
 ;;;                      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