# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893918367 0
# Node ID 594b894aada5926c4e9ee6ad7ac56ce6683803a6
# Parent  1afd18de6c5009b70e82f689fa568ec226cfaa01
(ethio-sera-to-fidel-mail): Use rfc822-goto-eoh.
(ethio-fidel-to-sera-mail): Likewise.

diff -r 1afd18de6c50 -r 594b894aada5 lisp/language/ethio-util.el
--- a/lisp/language/ethio-util.el	Thu Apr 30 06:37:04 1998 +0000
+++ b/lisp/language/ethio-util.el	Thu Apr 30 06:39:27 1998 +0000
@@ -832,14 +832,10 @@
 	border)
     (save-excursion
 
-      ;; look for the header-body separator
-      (goto-char (point-min))
-      (if (search-forward
-	   (if (eq major-mode 'rmail-mode)
-	       "\n\n" (concat "\n" mail-header-separator "\n"))
-	   nil t)
-	  (setq border (point))
-	(error "header separator not found"))
+      ;; follow RFC822 rules instead of looking for a fixed separator
+      (rfc822-goto-eoh)
+      (forward-line 1)
+      (setq border (point))
 
       ;; note that the point is placed at the border
       (if (or (re-search-forward "^<sera>$" nil t)
@@ -1225,15 +1221,11 @@
 	border)
     (save-excursion
 
-      ;; look for the header-body separator
-      (goto-char (point-min))
-      (if (search-forward
-	   (if (eq major-mode 'rmail-mode)
-	       "\n\n" (concat "\n" mail-header-separator "\n"))
-	   nil t)
-	  (setq border (point))
-	(error "header separator not found"))
-			     
+      ;; follow RFC822 rules instead of looking for a fixed separator
+      (rfc822-goto-eoh)
+      (forward-line 1)
+      (setq border (point))
+
       ;; process body first not to change the border
       ;; note that the point is already at the border
       (if (re-search-forward "\\ce" nil t)