# HG changeset patch
# User Joseph Arceneaux <jla@gnu.org>
# Date 718485924 0
# Node ID 9cb1a4b90b5c58ddebc29e26218fc912139884d2
# Parent  96c43cee31f1d9b195ab679dbe1f4f62ebeb50bf
Cleaned up rmail-first-unseen-message.

diff -r 96c43cee31f1 -r 9cb1a4b90b5c lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Wed Oct 07 09:09:19 1992 +0000
+++ b/lisp/mail/rmail.el	Wed Oct 07 19:25:24 1992 +0000
@@ -1264,14 +1264,9 @@
 	    (prefix-numeric-value current-prefix-arg))))
   (rmail-search regexp (- (or n -1))))
 
-(defun glofp ()
-  (interactive)
-  (let ((new (1+ (string-to-int (buffer-substring (1- (point)) (point))))))
-    (backward-delete-char 1)
-    (insert (int-to-string new))))
-
 ;; Show the first message which has the `unseen' attribute.
 (defun rmail-first-unseen-message ()
+  (rmail-maybe-set-message-counters)
   (let ((current 1)
 	found)
     (save-restriction