diff options
author | Glenn Morris <[email protected]> | 2012-01-06 00:34:47 -0800 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2012-01-06 00:34:47 -0800 |
commit | 665ae8654babc2e07a08d0b67a60b6e61007dc13 (patch) | |
tree | 022130adc62bd24c943a30d1cdbd9da89e516689 /lisp/mail/unrmail.el | |
parent | c869783d91eade5384116740dca6643d8556b142 (diff) |
Trivial unrmail fix for empty input files.
* lisp/mail/unrmail.el (unrmail): Give an explicit error if the input
file has no messages.
Fixes: debbugs:10377
Diffstat (limited to 'lisp/mail/unrmail.el')
-rw-r--r-- | lisp/mail/unrmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 178b64f119..929f97746b 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -66,7 +66,8 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'." from to) (goto-char (point-min)) (search-forward "\n\^_" nil t) ; Skip BABYL header. - (setq from (point)) + (if (= (setq from (point)) (point-max)) + (error "The input file contains no messages")) (goto-char (point-max)) (search-backward "\n\^_" from 'mv) (setq to (point)) |