From: yamaoka <yamaoka>
Date: Wed, 15 Mar 2006 14:23:54 +0000 (+0000)
Subject: Synch to No Gnus 200603151322.
X-Git-Tag: t-gnus-6_17_4-quimby-~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf6553fb705313aafcd64604230a411368e256bf;p=elisp%2Fgnus.git-

Synch to No Gnus 200603151322.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8647d7c..aca80a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-03-15  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+	* gnus-art.el (gnus-article-only-boring-p): Bind
+	inhibit-point-motion-hooks to avoid infinite loop when entering
+	intangible text.  Reported by Ralf Wachinger
+	<rwnewsmampfer@geekmail.de>.
+
 2006-03-14  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* gmm-utils.el (gmm-image-load-path-for-library): Fix typo.  Use
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 455fa07..2f94550 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5903,14 +5903,15 @@ not have a face in `gnus-article-boring-faces'."
 	     (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)))))
+      (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."