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

diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm
index 0f76cf7d7985070d3c1991c0c2a2ec2ffb1d5804..ec35c23e7d6412a868081fca4067687e9a80565a 100644 (file)
--- 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)))