From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 May 1995 00:29:23 +0000 (+0000)
Subject: If popclient program is successful, kill buffer showing its output.
X-Git-Tag: 20090517-FFI~6361
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61fdc225bc6967300d6fea4fff6f227465c1697c;p=mit-scheme.git

If popclient program is successful, kill buffer showing its output.
---

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)))))