diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-08-06 00:03:11 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-08-06 00:03:11 +0000 |
commit | 6c60ac51edbbf36158a7773c6464ec634b103114 (patch) | |
tree | 21b6962ad1bcb3baff5031856ec9c13439a51cd6 | |
parent | 99de794f0de36b5838d12c671beecfd6e00214ab (diff) | |
download | guile-6c60ac51edbbf36158a7773c6464ec634b103114.tar.gz |
(parse-message): Correction to header
continuation, loop with read-line not cdr lines.
-rwxr-xr-x | scripts/read-rfc822 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/read-rfc822 b/scripts/read-rfc822 index 660f0feb9..5d98075ed 100755 --- a/scripts/read-rfc822 +++ b/scripts/read-rfc822 @@ -5,7 +5,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@" !# ;;; read-rfc822 --- Validate RFC822 file by displaying it to stdout -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2004 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -97,7 +97,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@" (set! body-lines (drain-message port))) ((regexp-exec header-cont-rx line) => (lambda (m) - (loop (cdr lines) + (loop (read-line port) (cons (match:suffix m) current-header)))) (else (and current-header (add-header! current-header)) |