Mercurial > emacs

diff lisp/gnus/mailcap.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 8d09094063d0
children 42815c76b976
line wrap: on
line diff
--- a/lisp/gnus/mailcap.el	Wed Sep 22 05:19:14 2010 +0000
+++ b/lisp/gnus/mailcap.el	Wed Sep 22 06:01:22 2010 +0000
@@ -423,7 +423,7 @@
 		"/usr/local/etc/mailcap"))))
     (let ((fnames (reverse
 		   (if (stringp path)
-		       (delete "" (split-string path path-separator))
+		       (split-string path path-separator t)
 		     path)))
 	  fname)
       (while fnames
@@ -941,7 +941,7 @@
 		"/usr/local/etc/mime-types"
 		"/usr/local/www/conf/mime-types"))))
     (let ((fnames (reverse (if (stringp path)
-			       (delete "" (split-string path path-separator))
+			       (split-string path path-separator t)
 			     path)))
 	  fname)
       (while fnames