From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Jun 1997 07:55:26 +0000 (+0000)
Subject: Fix two bugs in article-posting code.
X-Git-Tag: 20090517-FFI~5127
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b538e88ae64cb72c4a09a98999b88c9da9d681ac;p=mit-scheme.git

Fix two bugs in article-posting code.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index a3a50dcd8..f8df257b9 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.36 1997/06/18 07:05:46 cph Exp $
+;;;	$Id: snr.scm,v 1.37 1997/06/18 07:55:26 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -2777,7 +2777,7 @@ While composing the follow-up, use \\[mail-yank-original] to yank the
 		     (nntp-connection:server
 		      (news-group:connection
 		       (news-header:group
-			(news-article-buffer:header buffer))))))))
+			(news-article-buffer:header article-buffer))))))))
 
 (define (news-article-buffer:followup-fields buffer)
   (let ((header (news-article-buffer:header buffer)))
@@ -2868,8 +2868,9 @@ C-c C-q  mail-fill-yanked-message (fill what was yanked)."
 (define (news-post-it)
   (let ((article-buffer (current-buffer)))
     (let ((temp-buffer
-	   (prepare-mail-buffer-for-sending article-buffer
-					    news-post-process-headers)))
+	   (prepare-mail-buffer-for-sending
+	    article-buffer
+	    (news-post-process-headers article-buffer))))
       (if (let* ((start (buffer-start temp-buffer))
 		 (end (mail-header-end start)))
 	    (or (mail-field-start start end "To")