aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-01-16 20:26:28 +0000
committerRichard M. Stallman1994-01-16 20:26:28 +0000
commit934111d04f68815eb7c9bb4e32d91b85e62b5ac7 (patch)
tree51264a7909d89fdb8a88019f96c696585688100f
parent6fdc9683de2d8c33bdbc465eb7654e7c6b251461 (diff)
downloademacs-934111d04f68815eb7c9bb4e32d91b85e62b5ac7.tar.gz
emacs-934111d04f68815eb7c9bb4e32d91b85e62b5ac7.zip
(rmail-get-new-mail): Avoid error if file is empty.
Was done in 1994-01-14T18:35:09Z!rms@gnu.org: (rmail-set-message-counters): Avoid errors moving backwd if new file.
-rw-r--r--lisp/mail/rmail.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 28ed6525200..bd788b78d8d 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -696,7 +696,7 @@ argument causes us to read a file name and use that file as the inbox."
696 (or (zerop new-messages) 696 (or (zerop new-messages)
697 (let (success) 697 (let (success)
698 (widen) 698 (widen)
699 (search-backward "\n\^_") 699 (search-backward "\n\^_" nil t)
700 (narrow-to-region (point) (point-max)) 700 (narrow-to-region (point) (point-max))
701 (goto-char (1+ (point-min))) 701 (goto-char (1+ (point-min)))
702 (rmail-count-new-messages) 702 (rmail-count-new-messages)