nnml.el and nnfolder.el

[Luc Teirlinck <teirllm@dms.auburn.edu>]

I believe that the following two compiler warnings in the `make
bootstrap' output seem real:

    In nnfolder-save-marks: nnfolder.el:1243:19:Warning: `error' called
    with 1 args to fill 2 format field(s)

and:

    nnml.el:987:19:Warning: `error' called with 1 args to fill 2
    format field(s)

They probably resulted from typos.  I know nothing about those two
files and do not remember what procedure to follow for bug fixes to
Gnus, but I would guess that the following were really intended:

===File ~/nnfolder-diff=====================================
*** nnfolder.el	29 Sep 2004 07:46:22 -0500	1.18
--- nnfolder.el	14 Nov 2004 14:51:13 -0600	
***************
*** 1240,1246 ****
  			nnfolder-marks-modtime))
        (error (or (gnus-yes-or-no-p
  		  (format "Could not write to %s (%s).  Continue? " file err))
! 		 (error "Cannot write to %s (%s)" err))))))
  
  (defun nnfolder-open-marks (group server)
    (let ((file (nnfolder-group-marks-pathname group)))
--- 1240,1246 ----
  			nnfolder-marks-modtime))
        (error (or (gnus-yes-or-no-p
  		  (format "Could not write to %s (%s).  Continue? " file err))
! 		 (error "Cannot write to %s (%s)" file err))))))
  
  (defun nnfolder-open-marks (group server)
    (let ((file (nnfolder-group-marks-pathname group)))
============================================================

===File ~/nnml-diff=========================================
*** nnml.el	29 Sep 2004 07:46:22 -0500	1.13
--- nnml.el	14 Nov 2004 15:02:39 -0600	
***************
*** 984,990 ****
  			nnml-marks-modtime))
        (error (or (gnus-yes-or-no-p
  		  (format "Could not write to %s (%s).  Continue? " file err))
! 		 (error "Cannot write to %s (%s)" err))))))
  
  (defun nnml-open-marks (group server)
    (let ((file (expand-file-name
--- 984,990 ----
  			nnml-marks-modtime))
        (error (or (gnus-yes-or-no-p
  		  (format "Could not write to %s (%s).  Continue? " file err))
! 		 (error "Cannot write to %s (%s)" file err))))))
  
  (defun nnml-open-marks (group server)
    (let ((file (expand-file-name
============================================================