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

diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 83ea58b3b63cd7184a47ce09e0c18856b0b16ea4..674e01d35605d93199d98ac2ebb1cb1b32614a7c 100644 (file)
--- 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