From 379af62ac69a40fa4a911b1df924f9bebc3a63e0 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bmanners@krakenrobotics.com>
Date: Sun, 6 Sep 2020 00:27:01 -0400
Subject: [PATCH] EMAIL: Fixed out of memory bug (put help() in LC)

---
 apps/email.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/apps/email.c b/apps/email.c
index 0dc7b69..a254321 100644
--- a/apps/email.c
+++ b/apps/email.c
@@ -1241,6 +1241,7 @@ void purge_deleted(void) {
   _auxtype = 0;
   fp2 = fopen(filename, "wb");
   if (!fp2) {
+    fclose(fp);
     error(ERR_NONFATAL, "Can't open %s", filename);
     return;
   }
@@ -1865,6 +1866,7 @@ done:
 /*
  * Display help screen
  */
+#pragma code-name (push, "LC")
 void help(void) {
   clrscr2();
   printf("%c%s HELP%c\n", INVERSE, PROGNAME, NORMAL);
@@ -1893,6 +1895,7 @@ void help(void) {
   fputs("------------------------------------------+------------------------------------", stdout);
   cgetc();
 }
+#pragma code-name (pop)
 
 /*
  * Keyboard handler