Re: Yet another washing function.

[Lars Balker Rasmussen <lbr@mjolner.dk>]

I wrote on October 8 1997:
> Greg Stark <gsstark@MIT.EDU> writes:
>> I've noticed that article washing is a noticeable delay. 
> 
> Quite!  If I try to view a LARGE article which I know what's in, I might
> as well press C-g after a couple of seconds to avoid waiting for ages.
> The article appears pretty much like I'd expect if I'd waited the entire
> time, but I haven't looked into it further.  That's annoying...

After receiving a few 30000-lines mail these last couple of days I broke
down and investigated a bit more.  The HUGE time-wasters are perhaps
unsurprisingly the highlight functions in gnus-article-display-hook.

By applying the following nasty hack to 5.4.67's gnus-art.el I'm a much
happier man.  Is it possible to clean up the highlight functions[1] to
make them more efficient, or could my hack be cleaned up[2] and used?

Whatever, 30000-line mails now pops up in an Article buffer the instant
I want them, not after I've pressed C-g...

Cheers,
Lars

----------------------------------------------------------------------
--- gnus-art.el.orig    Sat Sep 13 15:43:22 1997
+++ gnus-art.el Thu Nov 13 18:53:55 1997
@@ -1901,6 +1901,14 @@
        (forward-line line)
        (point)))))
 
+(defun gnus-run-article-display-hook ()
+  (if (and (gnus-fetch-field "Lines")
+          (> (string-to-number (gnus-fetch-field "Lines")) 1000))
+      (loop for hook in gnus-article-display-hook do
+           (if (not (string-match "highlight" (symbol-name hook)))
+               (funcall hook)))
+    (run-hooks 'gnus-article-display-hook)))
+
 (defun gnus-article-prepare (article &optional all-headers header)
   "Prepare ARTICLE in article mode buffer.
 ARTICLE should either be an article number or a Message-ID.
@@ -2010,7 +2018,7 @@
                      (funcall gnus-show-mime-method)
                    (funcall gnus-decode-encoded-word-method)))
                ;; Perform the article display hooks.
-               (run-hooks 'gnus-article-display-hook))
+               (gnus-run-article-display-hook))
              ;; Do page break.
              (goto-char (point-min))
              (setq gnus-page-broken
----------------------------------------------------------------------

[1] I noticed that I have both gnus-article-highlight and
    gnus-article-maybe-highlight in my gnus-article-display-hook.  
    I suppose I have a reason for that.
[2] I suppose a variable instead of my hardcoded 1000 would be nice :-)
-- 
Lars Balker Rasmussen, Software Engineer, Mjolner Informatics ApS
lbr@mjolner.dk