Mercurial > emacs
changeset 110475:ab3a38ccb842
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 | eb4a332b45f5 |
| children | c25bd24799eb |
| files | lisp/gnus/ChangeLog lisp/gnus/mailcap.el lisp/gnus/mm-util.el lisp/gnus/nnir.el lisp/gnus/pop3.el |
| diffstat | 5 files changed, 20 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Sep 22 05:19:14 2010 +0000 +++ b/lisp/gnus/ChangeLog Wed Sep 22 06:01:22 2010 +0000 @@ -1,3 +1,10 @@ +2010-09-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * 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. + 2010-09-21 Adam Sjøgren <asjo@koldfront.dk> * gnus-sum.el (gnus-adjust-marked-articles): Fix typo.
--- 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
--- 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\""
--- a/lisp/gnus/nnir.el Wed Sep 22 05:19:14 2010 +0000 +++ b/lisp/gnus/nnir.el Wed Sep 22 06:01:22 2010 +0000 @@ -1536,17 +1536,13 @@ "find" group "-type" "f" "-name" "[0-9]*" "-exec" "grep" `("-l" ,@(and grep-options - ;; Note: the 3rd arg of `split-string' is not - ;; available in Emacs 21. - (delete "" (split-string grep-options "\\s-"))) + (split-string grep-options "\\s-" t)) "-e" ,regexp "{}" "+")))) ;; Translate relative paths to group names. (while (not (eobp)) - (let* ((path (delete - "" - (split-string - (buffer-substring (point) (line-end-position)) "/"))) + (let* ((path (split-string + (buffer-substring (point) (line-end-position)) "/" t)) (art (string-to-number (car (last path))))) (while (string= "." (car path)) (setq path (cdr path)))
--- a/lisp/gnus/pop3.el Wed Sep 22 05:19:14 2010 +0000 +++ b/lisp/gnus/pop3.el Wed Sep 22 06:01:22 2010 +0000 @@ -520,8 +520,7 @@ (mapcar #'(lambda (s) (let ((split (split-string s " "))) (cons (string-to-number (nth 0 split)) (string-to-number (nth 1 split))))) - (delete "" (split-string (buffer-substring start end) - "\r\n")))))))) + (split-string (buffer-substring start end) "\r\n" t))))))) (defun pop3-retr (process msg crashbuf) "Retrieve message-id MSG to buffer CRASHBUF."