X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/c3223dd505ba0ecde57371eae7e9a59637a852e4..466ee1b3ea76425d201b5d59950e88251870c836:/lisp/net/pop3.el

diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el
index d09c1d00fa..3964288fd2 100644
--- a/lisp/net/pop3.el
+++ b/lisp/net/pop3.el
@@ -402,8 +402,7 @@ Return non-nil if it is necessary to update the local UIDL file."
 	       (push uidl new))
 	     (decf i)))
 	  (pop3-uidl
-	   (setq new (apply 'nconc (mapcar (lambda (elt) (list elt ctime))
-					   pop3-uidl)))))
+	   (setq new (mapcan (lambda (elt) (list elt ctime)) pop3-uidl))))
     (when new (setq mod t))
     ;; List expirable messages and delete them from the data to be saved.
     (setq ctime (when (numberp pop3-leave-mail-on-server)