Better definition for `gnus-article-refer-article'

[sigurd@12move.de (Karl Pflästerer)]

Hi,
I noticed that the buttons react at the moment smarter if you press them
at a message-id in the article buffer than `gnus-article-refer-article'.
I looked at the definition for that function and wrote it a bit
different. What do you mean? IMO I must have forgotten something because
it seems to easy. I don't think it's necessary to check if we have a
message-id around point because a user would only use that function for
a message-id.

(defun gnus-article-refer-article ()
  "Read article specified by message-id around point."
  (interactive)
  (let ((point (point)) message-id)
    (re-search-backward "<?news:\\|<" nil t)
    (cond ((re-search-forward gnus-button-mid-or-mail-regexp nil t)
	    (setq message-id (concat "<" (match-string 0) ">"))
	    (goto-char point)
	    (set-buffer gnus-summary-buffer)
	    (gnus-summary-refer-article message-id))
	  (t
	    (goto-char point)
	    (error "No references around point")))))

bye
   KP

-- 
    'Twas brillig, and the slithy toves
        Did gyre and gimble in the wabe;
    All mimsy were the borogoves,
         And the mome raths outgrabe.   "Lewis Carroll" "Jabberwocky"