Use generic procedure SET-HEADER-FIELDS!.

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index fcf963f185b2951ff3f784d1b1c34b451e62b00a..9a907c316d7bc1f5fd4909af4e6e1d41f3d3db93 100644 (file)
--- 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))