Fix missed regexp in mime-codec.

diff --git a/src/runtime/mime-codec.scm b/src/runtime/mime-codec.scm
index eb3c13f6d2edf3cc50f05142946f6eb5df528029..f2928cca615a2035399eef57e147a18e9b19163f 100644 (file)
--- a/src/runtime/mime-codec.scm
+++ b/src/runtime/mime-codec.scm
@@ -937,7 +937,7 @@ USA.
        (else (error "Illegal state in uuencode decoder:" state))))
 
     (define (process-begin-line line)
-      (if (not (re-string-match "^begin +[0-7]+ +.+$" line))
+      (if (not (regsexp-match-string decode-uue:begin-line-regsexp line))
          (error:decode-uue "Malformed \"begin\" line:" line))
       (set! state 'normal))
 
@@ -1013,6 +1013,16 @@ USA.
        (error "Illegal uuencode char:" char))
     (fix:and (fix:- n #x20) #x3F)))
 
+(define decode-uue:begin-line-regsexp
+  (compile-regsexp
+   '(seq (line-start)
+        "begin"
+        (+ #\space)
+        (+ (char-set (48 . 56)))
+        (+ #\space)
+        (+ (any-char))
+        (line-end))))
+
 (define (call-with-decode-uue-output-port port text? generator)
   (let ((port (make-decode-uue-port port text?)))
     (let ((v (generator port)))