;;; nnml.el --- mail spool access for Gnus
-;; Copyright (C) 1995-2011 Free Software
+;; Copyright (C) 1995-2012 Free Software
;; Foundation, Inc.
;; Authors: Didier Verna <didier@xemacs.org> (adding compaction)
(nnml-save-nov)
;; b/ Save the active file:
(nnmail-save-active nnml-group-alist nnml-active-file)
+ (let ((marks (nnml-group-pathname group nnml-marks-file-name server)))
+ (when (file-exists-p marks)
+ (delete-file marks)))
t)))))
(defun nnml-request-compact (&optional server)