Mercurial > emacs
changeset 21871:594b894aada5
(ethio-sera-to-fidel-mail): Use rfc822-goto-eoh.
(ethio-fidel-to-sera-mail): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Apr 1998 06:39:27 +0000 |
| parents | 1afd18de6c50 |
| children | 0308bce52ae4 |
| files | lisp/language/ethio-util.el |
| diffstat | 1 files changed, 9 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- 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)