From ed90ec573b401a10eabcb82fdf264bdf74f5bcee Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 1995 06:08:53 +0000
Subject: [PATCH] Fix think-o in POP server support.

---
 v7/src/edwin/rmail.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index ad07ff4d7..5ec44bd0f 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: rmail.scm,v 1.38 1995/04/10 20:24:07 cph Exp $
+;;;	$Id: rmail.scm,v 1.39 1995/04/23 06:08:53 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-95 Massachusetts Institute of Technology
 ;;;
@@ -667,7 +667,7 @@ This variable is ignored if rmail-pop-procedure is #F."
 
 (define (delete-saved-pop-server-password server user-name)
   (set! saved-pop-passwords
-	(delete (cons server user-name) saved-pop-passwords))
+	(del-assoc! (cons server user-name) saved-pop-passwords))
   unspecific)
 
 (define saved-pop-passwords '())
-- 
2.25.1