From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 15 May 2023 01:51:22 +0000 (-0700)
Subject: Fix movemail fd leak
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92d4bda27976b381fc1f7905e83bdb9da050261e;p=emacs.git

Fix movemail fd leak

* lib-src/movemail.c (main) [!MAIL_USE_SYSTEM_LOCK]:
Fix file descriptor leak, found by GCC 13 -Wanalyzer-fd-leak.
---

diff --git a/lib-src/movemail.c b/lib-src/movemail.c
index a71be8c2099..6a772e9043e 100644
--- a/lib-src/movemail.c
+++ b/lib-src/movemail.c
@@ -470,7 +470,7 @@ main (int argc, char **argv)
 	     that were set on the file.  Better to just empty the file.  */
 	  if (unlink (inname) < 0 && errno != ENOENT)
 #endif /* MAIL_UNLINK_SPOOL */
-	    creat (inname, 0600);
+	    close (creat (inname, 0600));
 	}
 #endif /* not MAIL_USE_SYSTEM_LOCK */