diff lisp/mail/undigest.el @ 13088:d383abe2f9f3

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

--- a/lisp/mail/undigest.el	Mon Sep 25 23:22:40 1995 +0000
+++ b/lisp/mail/undigest.el	Wed Sep 27 15:26:15 1995 +0000
@@ -67,7 +67,7 @@
 			       (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 @@
 					    (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