From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Jan 2000 17:45:29 +0000 (+0000)
Subject: Use generic procedure SET-HEADER-FIELDS!.
X-Git-Tag: 20090517-FFI~4299
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e30a96aa94857893d688b3186b958e0f42e73842;p=mit-scheme.git

Use generic procedure SET-HEADER-FIELDS!.
---

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index fcf963f18..9a907c316 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.9 2000/01/20 17:12:53 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.10 2000/01/20 17:45:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -42,9 +42,7 @@
 
 (define-method %new-folder ((url <rmail-url>))
   (let ((folder (make-rmail-folder url '())))
-    (set-rmail-folder-header-fields!
-     folder
-     (compute-rmail-folder-header-fields folder))
+    (set-header-fields! folder (compute-rmail-folder-header-fields folder))
     (save-folder folder)
     folder))