Mercurial > emacs
comparison lisp/mail/rmail.el @ 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 | fdc10603ac35 |
| children | 7df33f9d1edd |
comparison
equal
deleted
inserted
replaced
| 15402:46fad1457030 | 15403:dfcab63fbbd3 |
|---|---|
| 2452 (let ((case-fold-search t)) | 2452 (let ((case-fold-search t)) |
| 2453 (if (search-forward "This is a MIME-encapsulated message\n\n--" nil t) | 2453 (if (search-forward "This is a MIME-encapsulated message\n\n--" nil t) |
| 2454 (let ((codestring | 2454 (let ((codestring |
| 2455 (buffer-substring (progn (beginning-of-line) (point)) | 2455 (buffer-substring (progn (beginning-of-line) (point)) |
| 2456 (progn (end-of-line) (point))))) | 2456 (progn (end-of-line) (point))))) |
| 2457 (re-search-forward mail-unsent-separator) | 2457 (or (re-search-forward mail-unsent-separator nil t) |
| 2458 (search-forward codestring) | 2458 (error "Cannot find beginning of header in failed message")) |
| 2459 (or (search-forward "\n\n" nil t) | 2459 (or (and (search-forward codestring nil t) |
| 2460 (search-forward "\n\n" nil t)) | |
| 2460 (error "Cannot find end of Mime data in failed message")) | 2461 (error "Cannot find end of Mime data in failed message")) |
| 2461 (setq bounce-start (point)) | 2462 (setq bounce-start (point)) |
| 2462 (save-excursion | 2463 (save-excursion |
| 2463 (goto-char (point-max)) | 2464 (goto-char (point-max)) |
| 2464 (search-backward codestring) | 2465 (search-backward codestring) |