mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(parse-message): Correction to header

Browse source 
continuation, loop with read-line not cdr lines.
This commit is contained in:
Kevin Ryde 2004-08-06 00:03:11 +00:00
parent 99de794f0d
commit 6c60ac51ed
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/read-rfc822
View file

@ -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))