X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/5dd6771b28c257af405d7248639ed0e3bcdce38b..26cad4056c927e609753103897a60d00611ac9f7:/sbr/folder_free.c

diff --git a/sbr/folder_free.c b/sbr/folder_free.c
index ebb58ab4..7f87ccd4 100644
--- a/sbr/folder_free.c
+++ b/sbr/folder_free.c
@@ -25,6 +25,14 @@ folder_free (struct msgs *mp)
     for (i = 0; mp->msgattrs[i]; i++)
 	free (mp->msgattrs[i]);
 
+    /* Close/free the sequence file if it is open */
+
+    if (mp->seqhandle)
+    	lkfclosedata (mp->seqhandle, mp->seqname);
+
+    if (mp->seqname)
+    	free (mp->seqname);
+
     free (mp->msgstats);	/* free message status area   */
     free (mp);			/* free main folder structure */
 }