Fix silly thinko in definition of STRIP-SUBJECT-RE.

Also omit needless unsafe fixnum specialization.

diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm
index d78e5983616d3dd48452bfd77c8d6d5ee72428e3..0f76cf7d7985070d3c1991c0c2a2ec2ffb1d5804 100644 (file)
--- a/src/imail/imail-core.scm
+++ b/src/imail/imail-core.scm
@@ -647,10 +647,10 @@ USA.
 (define (strip-subject-re subject)
   (let ((end (string-length subject)))
     (let loop ((start 0))
-      (if (and (fix:<= 3 (fix:- end start))
-              (substring-prefix-ci? "Re:" 0 3 subject (fix:+ start 3) end))
+      (if (and (<= 3 (- end start))
+              (substring-prefix-ci? "Re:" 0 3 subject start end))
          (loop
-          (substring-find-next-char-in-set subject (fix:+ start 3) end
+          (substring-find-next-char-in-set subject (+ start 3) end
                                            char-set:subject-content))
          (string-tail subject start)))))