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>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0adf68f..362c217 100644 (file)
--- 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 edda828..7e0cd68 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5551,14 +5551,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."