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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 186860c2b17f618d5d5e4746fd82137581dff8b8..ba9886a33e234ccb44f8a605db77c15b728a89fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-06  Glenn Morris  <rgm@gnu.org>
 
+       * mail/unrmail.el (unrmail): Give an explicit error if the input file
+       has no messages.  (Bug#10377)
+
        * info.el (Info-mode-map): Bind e to end-of-buffer, rather
        than Info-edit.  (Bug#10385)
 

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 178b64f119104e072dd66c8faf1cf207aa3f10f2..929f97746b0734082aaa39b4d9547f2d52271276 100644 (file)
--- 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))