Mercurial > emacs
changeset 15403:dfcab63fbbd3
(rmail-retry-failure): Nicer error message
if can't find mail-unsent-separator.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Jun 1996 01:33:41 +0000 |
| parents | 46fad1457030 |
| children | 9f223b2f92ac |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Mon Jun 10 21:36:29 1996 +0000 +++ b/lisp/mail/rmail.el Tue Jun 11 01:33:41 1996 +0000 @@ -2454,9 +2454,10 @@ (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