Eliminate compiler warning.

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 8a17fc490dd2d71c90852bdf350907235f7463b8..d6f06b2dbdd75156614d536e77dd955a1fa13ff2 100644 (file)
--- 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