From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 10 Dec 2010 06:46:35 +0000 (+0000)
Subject: Fix STRIP-SUBJECT-RE on "Re: ".
X-Git-Tag: 20101212-Gtk~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cae7333c49c645f45e2136b3981563deb2d79eaf;p=mit-scheme.git

Fix STRIP-SUBJECT-RE on "Re: ".
---

diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm
index 0f76cf7d7..ec35c23e7 100644
--- a/src/imail/imail-core.scm
+++ b/src/imail/imail-core.scm
@@ -649,9 +649,10 @@ USA.
     (let loop ((start 0))
       (if (and (<= 3 (- end start))
 	       (substring-prefix-ci? "Re:" 0 3 subject start end))
-	  (loop
-	   (substring-find-next-char-in-set subject (+ start 3) end
-					    char-set:subject-content))
+	  (cond ((substring-find-next-char-in-set subject (+ start 3) end
+						  char-set:subject-content)
+		 => loop)
+		(else ""))
 	  (string-tail subject start)))))
 
 (define char-set:subject-content (char-set-invert (char-set #\space #\tab)))