From 26e1ae108223f8cb5755c7e92e41c8e6f0afdfd7 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 15 Mar 2006 13:22:56 +0000 Subject: [PATCH] 2006-03-15 Andreas Seltenreich * 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 . --- lisp/ChangeLog | 7 +++++++ lisp/gnus-art.el | 17 +++++++++-------- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0adf68fca..362c21711 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2006-03-15 Andreas Seltenreich + + * 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 + . + 2006-03-14 Reiner Steib * 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 edda828b3..7e0cd68cc 100644 --- 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." -- 2.25.1