Commit 36f41f1d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ethio-sera-to-fidel-mail): Use rfc822-goto-eoh.

(ethio-fidel-to-sera-mail): Likewise.
parent 5acd84d5
...@@ -832,14 +832,10 @@ and the body into FIDEL using `ethio-sera-to-fidel-region'." ...@@ -832,14 +832,10 @@ and the body into FIDEL using `ethio-sera-to-fidel-region'."
border) border)
(save-excursion (save-excursion
;; look for the header-body separator ;; follow RFC822 rules instead of looking for a fixed separator
(goto-char (point-min)) (rfc822-goto-eoh)
(if (search-forward (forward-line 1)
(if (eq major-mode 'rmail-mode)
"\n\n" (concat "\n" mail-header-separator "\n"))
nil t)
(setq border (point)) (setq border (point))
(error "header separator not found"))
;; note that the point is placed at the border ;; note that the point is placed at the border
(if (or (re-search-forward "^<sera>$" nil t) (if (or (re-search-forward "^<sera>$" nil t)
...@@ -1225,14 +1221,10 @@ The very same procedure applies to the subject field, too." ...@@ -1225,14 +1221,10 @@ The very same procedure applies to the subject field, too."
border) border)
(save-excursion (save-excursion
;; look for the header-body separator ;; follow RFC822 rules instead of looking for a fixed separator
(goto-char (point-min)) (rfc822-goto-eoh)
(if (search-forward (forward-line 1)
(if (eq major-mode 'rmail-mode)
"\n\n" (concat "\n" mail-header-separator "\n"))
nil t)
(setq border (point)) (setq border (point))
(error "header separator not found"))
;; process body first not to change the border ;; process body first not to change the border
;; note that the point is already at the border ;; note that the point is already at the border
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment