Mercurial > emacs
changeset 8399:a7b53d786b21
(rmail-retry-failure): Handle a weird case with
a couple of lines before the old message header.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 31 Jul 1994 20:08:53 +0000 |
| parents | 38513039d818 |
| children | cc016ca78c9e |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sun Jul 31 19:00:42 1994 +0000 +++ b/lisp/mail/rmail.el Sun Jul 31 20:08:53 1994 +0000 @@ -2098,6 +2098,14 @@ (or (re-search-forward mail-unsent-separator nil t) (error "Cannot parse this as a failure message"))) (save-restriction + ;; One message contained a few random lines before the old + ;; message header. The first line of the message started with + ;; two hyphens. A blank line follows these random lines. + (skip-chars-forward "\n") + (if (looking-at "^--") + (progn + (search-forward "\n\n") + (skip-chars-forward "\n"))) (narrow-to-region (point) (point-max)) ;; Now mail-fetch-field will get from headers of the original message, ;; not from the headers of the rejection.