From 61fdc225bc6967300d6fea4fff6f227465c1697c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 May 1995 00:29:23 +0000
Subject: [PATCH] If popclient program is successful, kill buffer showing its
 output.

---
 v7/src/edwin/os2.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index fb710f7ec..bab706605 100644
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2.scm,v 1.12 1995/04/15 06:14:22 cph Exp $
+;;;	$Id: os2.scm,v 1.13 1995/05/02 00:29:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -627,8 +627,9 @@ filename suffix \".gz\"."
 				      "-p" password
 				      "-o" target
 				      server)))
-	(if (not (and (eq? 'EXITED (car status.reason))
-		      (memv (cdr status.reason) '(0 1))))
+	(if (and (eq? 'EXITED (car status.reason))
+		 (memv (cdr status.reason) '(0 1)))
+	    (kill-buffer buffer)
 	    (begin
 	      (pop-up-buffer buffer)
 	      (error "Error getting mail from POP server:" status.reason)))))
-- 
2.25.1