From 27423355d692f3f4d8f71dfe9f64f22b4c2441ef Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Jun 2006 18:02:28 +0000
Subject: [PATCH] Eliminate compiler warning.

---
 v7/src/edwin/snr.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 8a17fc490..d6f06b2db 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: snr.scm,v 1.66 2006/06/12 20:46:28 riastradh Exp $
+$Id: snr.scm,v 1.67 2006/06/19 18:02:28 cph Exp $
 
 Copyright 1995,1996,1997,1998,1999,2000 Massachusetts Institute of Technology
 Copyright 2001,2003,2004,2006 Massachusetts Institute of Technology
@@ -2396,6 +2396,7 @@ Otherwise, the standard pruned header is shown."
     (buffer-put! buffer 'NEWS-ARTICLE-HEADER-TRUNCATED? truncate?)))
 
 (define (insert-filtered-news-header text regexps mark buffer)
+  buffer
   (for-each (lambda (regexp)
               (cond ((re-string-search-forward (string-append "^" regexp)
                                                text
-- 
2.25.1