From e30a96aa94857893d688b3186b958e0f42e73842 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Jan 2000 17:45:29 +0000
Subject: [PATCH] Use generic procedure SET-HEADER-FIELDS!.

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

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