From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62247 Path: news.gmane.org!not-for-mail From: Andreas Seltenreich Newsgroups: gmane.emacs.gnus.general Subject: gnus-article-only-boring-p vs. intangible text Date: Tue, 14 Mar 2006 22:54:40 +0100 Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1142373355 30008 80.91.229.2 (14 Mar 2006 21:55:55 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 14 Mar 2006 21:55:55 +0000 (UTC) Cc: Ralf Wachinger Original-X-From: ding-owner+m10774@lists.math.uh.edu Tue Mar 14 22:55:52 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FJHUN-0002HP-NW for ding-account@gmane.org; Tue, 14 Mar 2006 22:55:38 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FJHUI-0000eO-00; Tue, 14 Mar 2006 15:55:30 -0600 Original-Received: from nas01.math.uh.edu ([129.7.128.39]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FJHTc-0000eJ-00 for ding@lists.math.uh.edu; Tue, 14 Mar 2006 15:54:48 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas01.math.uh.edu with esmtp (Exim 4.52) id 1FJHTa-0002KS-09 for ding@lists.math.uh.edu; Tue, 14 Mar 2006 15:54:48 -0600 Original-Received: from smtp1.rz.uni-karlsruhe.de ([129.13.185.217]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FJHTZ-0001g3-00 for ; Tue, 14 Mar 2006 22:54:45 +0100 Original-Received: from rzstud1.stud.uni-karlsruhe.de (rzstud1.stud.uni-karlsruhe.de [193.196.41.33]) by smtp1.rz.uni-karlsruhe.de with esmtp (Exim 4.50 #1) id 1FJHTW-0005gn-AB; Tue, 14 Mar 2006 22:54:44 +0100 Original-Received: from uwi7 by rzstud1.stud.uni-karlsruhe.de with local (Exim 3.36 #1) id 1FJHTY-0000nK-00; Tue, 14 Mar 2006 22:54:44 +0100 Original-To: ding@gnus.org X-PGP-Key: 0x2C006B340F8C8C1B X-Now-Playing: My Dying Bride / The Angel and the Dark River X-Face: $:F<87a[gD1?#R6S3j21cr1&C&7bd63GHC.tSdskUb}hhwG(ci*=D5kJ<_N+p9q(7-,PnG. Et.Yh --=-=-= Hi, gnus-article-only-boring-p refuses to terminate when it runs into a word inside intangible text. This could happen, e.g., when gnus-article-skip-boring and gnus-treat-hide-signature are enabled at the same time, as reported in de.comm.software.gnus: The attached patch seems to fix it for trunk and v5-10. Thanks, andreas 2006-03-14 Andreas Seltenreich * gnus-art.el (gnus-article-only-boring-p): Avoid endless looping when running into intangible text. Reported by Ralf Wachinger . --=-=-= Content-Disposition: attachment; filename=gnus-art.diff 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." --=-=-=--