From: morioka <morioka>
Date: Tue, 28 May 1996 12:09:10 +0000 (+0000)
Subject: (mime/edit-again): fixed.
X-Git-Tag: Hokutetsu-Ishikawa-new~385
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2d357c84828230751b4980c69a95331f283999a1;p=elisp%2Fsemi.git

(mime/edit-again): fixed.
---

diff --git a/mime-edit.el b/mime-edit.el
index af80e03..90ad528 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.17 $
+;;; Version: $Revision: 0.18 $
 ;;; 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.17 1996-05-28 08:12:43 morioka Exp $")
+  "$Id: mime-edit.el,v 0.18 1996-05-28 12:09:10 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -2704,11 +2704,14 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
   (mime-editor::edit-again code-conversion)
   (goto-char (point-min))
   (save-restriction
-    (narrow-to-region (point-min)
-		      (if (re-search-forward "^$" nil t)
-			  (match-end 0)
-			(point-max)
-			))
+    (narrow-to-region
+     (point-min)
+     (if (re-search-forward
+	  (concat "^\\(" (regexp-quote mail-header-separator) "\\)?$")
+	  nil t)
+	 (match-end 0)
+       (point-max)
+       ))
     (goto-char (point-min))
     (while (re-search-forward
 	    "^\\(Content-.*\\|Mime-Version\\):" nil t)