# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1095697731 0
# Node ID d0cc7165afcf328f43059185eafedf3d9526f2c6
# Parent  71b644d983a94ad357c9f52ab90670b940f6b158
(rmail-edit-current-message): Immediate error if file is empty.

diff -r 71b644d983a9 -r d0cc7165afcf lisp/mail/rmailedit.el
--- a/lisp/mail/rmailedit.el	Mon Sep 20 16:28:13 2004 +0000
+++ b/lisp/mail/rmailedit.el	Mon Sep 20 16:28:51 2004 +0000
@@ -85,6 +85,8 @@
 (defun rmail-edit-current-message ()
   "Edit the contents of this message."
   (interactive)
+  (if (= rmail-total-messages 0)
+      (error "No messages in this file"))
   (make-local-variable 'rmail-old-pruned)
   (setq rmail-old-pruned (rmail-msg-is-pruned))
   (make-local-variable 'rmail-edit-saved-coding-system)