From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.lisp.guile.devel Subject: scripts/read-rfc822 unbound "lines" Date: Wed, 07 Jul 2004 09:38:33 +1000 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <878ydwk8p2.fsf@zip.com.au> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1089157163 16971 80.91.224.253 (6 Jul 2004 23:39:23 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 6 Jul 2004 23:39:23 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Wed Jul 07 01:39:16 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BhzWu-0002MC-00 for ; Wed, 07 Jul 2004 01:39:16 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BhzYw-0001ub-QI for guile-devel@m.gmane.org; Tue, 06 Jul 2004 19:41:22 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BhzYl-0001sD-Hu for guile-devel@gnu.org; Tue, 06 Jul 2004 19:41:11 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BhzYg-0001qk-UG for guile-devel@gnu.org; Tue, 06 Jul 2004 19:41:10 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BhzYg-0001qY-Ox for guile-devel@gnu.org; Tue, 06 Jul 2004 19:41:06 -0400 Original-Received: from [61.8.0.84] (helo=mailout1.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.34) id 1BhzWP-0004bV-1A for guile-devel@gnu.org; Tue, 06 Jul 2004 19:38:45 -0400 Original-Received: from mailproxy1.pacific.net.au (mailproxy1.pacific.net.au [61.8.0.86]) by mailout1.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i66Ncf4u004805 for ; Wed, 7 Jul 2004 09:38:41 +1000 Original-Received: from localhost (ppp28A4.dyn.pacific.net.au [61.8.40.164]) by mailproxy1.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i66Ncdan016337 for ; Wed, 7 Jul 2004 09:38:40 +1000 Original-Received: from gg by localhost with local (Exim 3.36 #1 (Debian)) id 1BhzWE-0000Yn-00; Wed, 07 Jul 2004 09:38:35 +1000 Original-To: guile-devel@gnu.org Mail-Copies-To: never User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:3836 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:3836 --=-=-= 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. --=-=-= Content-Disposition: inline; filename=read-rfc822.lines.diff --- 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)) --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel --=-=-=--