diff options
| author | Richard M. Stallman <[email protected]> | 1995-09-27 15:26:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-09-27 15:26:15 +0000 |
| commit | 67977ece5b8ef99f3458f6a58867614d8c0d967c (patch) | |
| tree | bcec59a4ab1d257350f12a497c55030ac90a82f7 /lisp/mail/undigest.el | |
| parent | 0f87d8d925a4e760493c62f961e734dd787acd8e (diff) | |
(undigestify-rmail-message): Better error messages.
Diffstat (limited to 'lisp/mail/undigest.el')
| -rw-r--r-- | lisp/mail/undigest.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 83ea58b3b6..674e01d356 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -67,7 +67,7 @@ Leaves original message, deleted, before the undigestified messages." (mail-fetch-field "To") (mail-fetch-field "Apparently-To") (mail-fetch-field "From"))) - (error "Message is not a digest"))))) + (error "Message is not a digest--bad header"))))) (save-excursion (goto-char (point-max)) (skip-chars-backward " \t\n") @@ -79,7 +79,8 @@ Leaves original message, deleted, before the undigestified messages." (regexp-quote "*********") "*" "\\(\n------*\\)*")) (setq found t))) - (if (not found) (error "Message is not a digest")))) + (if (not found) + (error "Message is not a digest--no end line")))) (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) (replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n") (save-restriction |