Skip to content

GitLab

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

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

parent 0f87d8d9
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
lisp/mail/undigest.el
View file @ 67977ece
...@@ -67,7 +67,7 @@ Leaves original message, deleted, before the undigestified messages." ...@@ -67,7 +67,7 @@ Leaves original message, deleted, before the undigestified messages."
(mail-fetch-field "To") (mail-fetch-field "To")
(mail-fetch-field "Apparently-To") (mail-fetch-field "Apparently-To")
(mail-fetch-field "From"))) (mail-fetch-field "From")))
(error "Message is not a digest"))))) (error "Message is not a digest--bad header")))))
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(skip-chars-backward " \t\n") (skip-chars-backward " \t\n")
...@@ -79,7 +79,8 @@ Leaves original message, deleted, before the undigestified messages." ...@@ -79,7 +79,8 @@ Leaves original message, deleted, before the undigestified messages."
(regexp-quote "*********") "*" (regexp-quote "*********") "*"
"\\(\n------*\\)*")) "\\(\n------*\\)*"))
(setq found t))) (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*")) (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*"))
(replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n") (replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n")
(save-restriction (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