(require 'gnus-group)
(global-set-key (kbd "<f2>") (lambda () (interactive) (gnus) (gnus-group-get-new-news) (gnus-group-read-group nil nil "mail.text")))

(defun use-number ()
  "Returns a list of possible numbers. If called interactively, allows you to select one."
  (interactive)
  (let (list number)
    (save-excursion
      (goto-char 1)
      (while (re-search-forward "\\([0123456789]+\\)" nil t)
	(setq number (match-string 0) list)
	(setq number (set-text-properties 0 (length number) nil number))
	(setq list (cons number list))
	)
      list
     )
    )
  )