Index: gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 7.154
diff -c -r7.154 gnus-art.el
*** gnus-art.el	13 Mar 2006 09:32:28 -0000	7.154
--- gnus-art.el	14 Mar 2006 21:12:08 -0000
***************
*** 5551,5564 ****
  	     (boundp 'gnus-article-boring-faces)
  	     (symbol-value 'gnus-article-boring-faces))
      (save-excursion
!       (catch 'only-boring
! 	(while (re-search-forward "\\b\\w\\w" nil t)
! 	  (forward-char -1)
! 	  (when (not (gnus-intersection
! 		      (gnus-faces-at (point))
! 		      (symbol-value 'gnus-article-boring-faces)))
! 	    (throw 'only-boring nil)))
! 	(throw 'only-boring t)))))
  
  (defun gnus-article-refer-article ()
    "Read article specified by message-id around point."
--- 5551,5565 ----
  	     (boundp 'gnus-article-boring-faces)
  	     (symbol-value 'gnus-article-boring-faces))
      (save-excursion
!       (let ((inhibit-point-motion-hooks t))
! 	(catch 'only-boring
! 	  (while (re-search-forward "\\b\\w\\w" nil t)
! 	    (forward-char -1)
! 	    (when (not (gnus-intersection
! 			(gnus-faces-at (point))
! 			(symbol-value 'gnus-article-boring-faces)))
! 	      (throw 'only-boring nil)))
! 	  (throw 'only-boring t))))))
  
  (defun gnus-article-refer-article ()
    "Read article specified by message-id around point."