From 67977ece5b8ef99f3458f6a58867614d8c0d967c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Sep 1995 15:26:15 +0000 Subject: [PATCH] (undigestify-rmail-message): Better error messages. --- lisp/mail/undigest.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 83ea58b3b63..674e01d3560 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 -- 2.39.2