[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scripts/read-rfc822 unbound "lines"
From: |
Kevin Ryde |
Subject: |
scripts/read-rfc822 unbound "lines" |
Date: |
Wed, 07 Jul 2004 09:38:33 +1000 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) |
read-rfc822 doesn't seem to like messages with header continuations,
it errors out with "lines" unbound.
A wild guess at what it might be meant to be,
* scripts/read-rfc822 (parse-message): Correction to header
continuation, loop with read-line not cdr lines.
I wasn't actually trying to use this, it just showed up when I ran
lint over the code.
--- read-rfc822.~1.1.~ 2002-05-13 20:12:14.000000000 +1000
+++ read-rfc822 2004-07-05 17:19:25.000000000 +1000
@@ -5,7 +5,7 @@
!#
;;; 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 @@
(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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scripts/read-rfc822 unbound "lines",
Kevin Ryde <=