diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-11 01:33:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-11 01:33:41 +0000 |
| commit | ead347800dc7bf5379ee71251182010aadc785c7 (patch) | |
| tree | 5c833e91cbf6056b1405ad554c05883f3bfa4eb1 | |
| parent | 23282dbc626d6f1f2f3c6a13ebdf14c58c92be83 (diff) | |
| download | emacs-ead347800dc7bf5379ee71251182010aadc785c7.tar.gz | |
(rmail-retry-failure): Nicer error message
if can't find mail-unsent-separator.
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c2b994980a6..f8e2f7cb176 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2454,9 +2454,10 @@ specifying headers which should not be copied into the new message." (let ((codestring (buffer-substring (progn (beginning-of-line) (point)) (progn (end-of-line) (point))))) - (re-search-forward mail-unsent-separator) - (search-forward codestring) - (or (search-forward "\n\n" nil t) + (or (re-search-forward mail-unsent-separator nil t) + (error "Cannot find beginning of header in failed message")) + (or (and (search-forward codestring nil t) + (search-forward "\n\n" nil t)) (error "Cannot find end of Mime data in failed message")) (setq bounce-start (point)) (save-excursion |