From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 10 Apr 2011 05:01:51 +0000 (+0000)
Subject: Pre-compile the regexps in IMAIL-SUMMARY-MATCH-LINE.
X-Git-Tag: 20110426-Gtk~2^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f4fb2749e3663055cc27b9a58ace387af67d734;p=mit-scheme.git

Pre-compile the regexps in IMAIL-SUMMARY-MATCH-LINE.

This slightly reduces some of the constant factors in the O(n)-time
(!) operation to expand summary buffers...
---

diff --git a/src/imail/imail-summary.scm b/src/imail/imail-summary.scm
index c7e732e76..59806b05c 100644
--- a/src/imail/imail-summary.scm
+++ b/src/imail/imail-summary.scm
@@ -686,13 +686,26 @@ SUBJECT is a string of regexps separated by commas."
 	   (extract-string (re-match-start 1) (re-match-end 1)))
 	  1)))
 
-(define (imail-summary-match-line mark)
-  (re-match-forward
+(define (make-imail-summary-regexp suffix)
+  (re-compile-pattern
    (string-append
     "[* ][D ][U ][A ][R ][F ] +\\([0-9]+\\)  +\\([0-9.]+[a-zA-Z ]\\)"
-    (if (ref-variable imail-summary-show-date mark)
-	" \\([ 123][0-9] [a-zA-Z]+  \\| +\\)"
-	"  "))
+    suffix)
+   #f))
+
+(define imail-summary-regexp-without-date
+  (make-imail-summary-regexp "  "))
+
+(define imail-summary-regexp-with-date
+  (make-imail-summary-regexp " \\([ 123][0-9] [a-zA-Z]+  \\| +\\)"))
+
+(define (imail-summary-match-line mark)
+  (re-match-forward
+   ;++ This is pretty bogus -- changing the variable will just quietly
+   ;++ break all operations on the summary buffer.
+   (if (ref-variable imail-summary-show-date mark)
+       imail-summary-regexp-with-date
+       imail-summary-regexp-without-date)
    (line-start mark 0)
    (line-end mark 0)
    #f))