(gnus-split-string): Remove.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 30a2115..1d96e83 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -241,16 +241,6 @@
          (goto-char (point-min))
          (sit-for 0))))))
 
-(if (fboundp 'split-string)
-    (fset 'gnus-split-string 'split-string)
-  (defun gnus-split-string (string pattern)
-    "Return a list of substrings of STRING which are separated by PATTERN."
-    (let (parts (start 0))
-      (while (string-match pattern string start)
-       (setq parts (cons (substring string start (match-beginning 0)) parts)
-             start (match-end 0)))
-      (nreverse (cons (substring string start) parts)))))
-
 (defun-maybe assoc-ignore-case (key alist)
   "Like `assoc', but assumes KEY is a string and ignores case when comparing."
   (setq key (downcase key))