comparison lisp/mail/rmail.el @ 1360:9cb1a4b90b5c

Cleaned up rmail-first-unseen-message.

1359:96c43cee31f1

	     (error "No previous Rmail search string")))
      (list rmail-search-last-regexp
	    (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 ()
  (let ((current 1)
	found)
    (save-restriction
      (widen)
      (while (and (not found) (< current rmail-total-messages))

1360:9cb1a4b90b5c

	     (error "No previous Rmail search string")))
      (list rmail-search-last-regexp
	    (prefix-numeric-value current-prefix-arg))))
  (rmail-search regexp (- (or n -1))))

;; 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
      (widen)
      (while (and (not found) (< current rmail-total-messages))