From cae7333c49c645f45e2136b3981563deb2d79eaf Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 10 Dec 2010 06:46:35 +0000 Subject: [PATCH] Fix STRIP-SUBJECT-RE on "Re: ". --- src/imail/imail-core.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))) -- 2.25.1