Mercurial > emacs

changeset 13088:d383abe2f9f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(undigestify-rmail-message): Better error messages.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Sep 1995 15:26:15 +0000
parents 226c90611902
children c18fa2e296f9
files lisp/mail/undigest.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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