summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-07-31 20:08:53 +0000
committerRichard M. Stallman <rms@gnu.org>1994-07-31 20:08:53 +0000
commit0af64910724eeb004c50cb7a436d6783b6628155 (patch)
tree2113b58e278ac33b5fe3f7ffd6abc786a9f45435 /lisp/mail
parent69d4d27f671f54c293d1ede4d2108a2cf2721524 (diff)
downloademacs-0af64910724eeb004c50cb7a436d6783b6628155.tar.gz
(rmail-retry-failure): Handle a weird case with
a couple of lines before the old message header.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/rmail.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 93d8fc3ac5a..1d3246e5e1f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2098,6 +2098,14 @@ the body of the original message."
(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.