Mercurial > emacs

diff lisp/gnus/mm-util.el @ 110475:ab3a38ccb842

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove Emacs 21 stuff. mailcap.el (mailcap-parse-mailcap, mailcap-parse-mimetypes) mm-util.el (mm-decompress-buffer) nnir.el (nnir-run-find-grep) pop3.el (pop3-list): Use 3rd arg of split-string.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 22 Sep 2010 06:01:22 +0000
parents a05bc4ad2d3f
children 494ea2fb03d7
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el	Wed Sep 22 05:19:14 2010 +0000
+++ b/lisp/gnus/mm-util.el	Wed Sep 22 06:01:22 2010 +0000
@@ -1539,14 +1539,13 @@
 				       prog t (list t err-file) nil args)
 				jka-compr-acceptable-retval-list)
 		    (erase-buffer)
-		    (insert (mapconcat
-			     'identity
-			     (delete "" (split-string
-					 (prog2
-					     (insert-file-contents err-file)
-					     (buffer-string)
-					   (erase-buffer))))
-			     " ")
+		    (insert (mapconcat 'identity
+				       (split-string
+					(prog2
+					    (insert-file-contents err-file)
+					    (buffer-string)
+					  (erase-buffer)) t)
+				       " ")
 			    "\n")
 		    (setq err-msg
 			  (format "Error while executing \"%s %s < %s\""