Commit 67977ece authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 0f87d8d9
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment