diff options
| author | Joseph Arceneaux <jla@gnu.org> | 1992-10-07 19:25:24 +0000 |
|---|---|---|
| committer | Joseph Arceneaux <jla@gnu.org> | 1992-10-07 19:25:24 +0000 |
| commit | 117f4b92dc7a807245964fd621856e4e179f8dd4 (patch) | |
| tree | f03323a65d1d1b7591f22218a6d85fa087f8a785 /lisp/mail | |
| parent | fb252f97f1875b6e06ff5bf95b088557caf6cdcd (diff) | |
| download | emacs-117f4b92dc7a807245964fd621856e4e179f8dd4.tar.gz | |
Cleaned up rmail-first-unseen-message.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4c4fa39aa70..95e25add522 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1264,14 +1264,9 @@ Interactively, empty argument means use same regexp used last time." (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 |