From e40d6e7b4cb632dc4ef3b1fa30f3ecfb2be0b9c2 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 30 Nov 2010 19:16:08 +0000 Subject: [PATCH] Fix silly thinko in definition of STRIP-SUBJECT-RE. Also omit needless unsafe fixnum specialization. --- src/imail/imail-core.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm index d78e59836..0f76cf7d7 100644 --- 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))))) -- 2.25.1