From: yamaoka <yamaoka>
Date: Mon, 22 Nov 1999 07:08:19 +0000 (+0000)
Subject: (gnus-split-string): Remove.
X-Git-Tag: t-gnus-6_13_3-02~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=87f9ca973d753ddaa048abce93e73a7335dac74c;p=elisp%2Fgnus.git-

(gnus-split-string): Remove.
---

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 30a2115..1d96e83 100644
--- 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))