Mercurial > emacs
diff lisp/mail/rmail.el @ 1360:9cb1a4b90b5c
Cleaned up rmail-first-unseen-message.
author | Joseph Arceneaux <jla@gnu.org> |
---|---|
date | Wed, 07 Oct 1992 19:25:24 +0000 |
parents | 776d4c59f256 |
children | c017b62c8073 |
line wrap: on
line diff
--- 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