From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Sep 1995 15:26:15 +0000 (+0000)
Subject: (undigestify-rmail-message): Better error messages.
X-Git-Tag: emacs-19.34~2772
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67977ece5b8ef99f3458f6a58867614d8c0d967c;p=emacs.git

(undigestify-rmail-message): Better error messages.
---

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