From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 30 Nov 1996 22:17:17 +0000 (+0000)
Subject: Fix "unused variable" warning.
X-Git-Tag: 20090517-FFI~5319
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da851aad1ed110eaf4df43bd8a26f07e054f308e;p=mit-scheme.git

Fix "unused variable" warning.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 8454df373..75f1c2c49 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.19 1996/11/22 21:49:59 cph Exp $
+;;;	$Id: snr.scm,v 1.20 1996/11/30 22:17:17 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -3906,6 +3906,7 @@ With prefix arg, replaces the file with the list information."
   (news-group:ignored-subjects-modified! group))
 
 (define (news-group:article-not-ignored! group header buffer)
+  buffer
   (let ((subject (canonicalize-subject (news-header:subject header))))
     (if (not (fix:= 0 (string-length subject)))
 	(let ((process-group