[Emacs-diffs] /srv/bzr/emacs/trunk r101534: Remove Emacs 21 stuff.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101534
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-09-22 06:01:22 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mailcap.el
  lisp/gnus/mm-util.el
  lisp/gnus/nnir.el
  lisp/gnus/pop3.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-21 23:13:46 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-22 06:01:22 +0000
@@ -1,3 +1,10 @@
+2010-09-22  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-sum.el (gnus-adjust-marked-articles): Fix typo.

=== modified file 'lisp/gnus/mailcap.el'
--- a/lisp/gnus/mailcap.el      2010-09-02 00:55:51 +0000
+++ b/lisp/gnus/mailcap.el      2010-09-22 06:01:22 +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

=== modified file 'lisp/gnus/mm-util.el'
--- a/lisp/gnus/mm-util.el      2010-09-04 00:45:13 +0000
+++ b/lisp/gnus/mm-util.el      2010-09-22 06:01:22 +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\""

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-09-18 23:36:29 +0000
+++ b/lisp/gnus/nnir.el 2010-09-22 06:01:22 +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)))

=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-18 10:21:30 +0000
+++ b/lisp/gnus/pop3.el 2010-09-22 06:01:22 +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."