From: yamaoka <yamaoka>
Date: Fri, 8 Jan 1999 07:56:34 +0000 (+0000)
Subject: * pop3.el (pop3-last): Use `split-string' instead of `pop3-string-to-list'.
X-Git-Tag: pgnus-ichikawa-199901081900
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a675e8a2405bab921f8750084bc64d24a2a02224;p=elisp%2Fgnus.git-

* pop3.el (pop3-last): Use `split-string' instead of `pop3-string-to-list'.
(pop3-stat): Likewise.
(pop3-munge-message-separator): Likewise.
(pop3-string-to-list): Abolished.
---

diff --git a/ChangeLog b/ChangeLog
index d68bb79..85ae291 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1999-01-08  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* lisp/pop3.el (pop3-last): Use `split-string' instead of
+	`pop3-string-to-list'.
+	(pop3-stat): Ditto.
+	(pop3-munge-message-separator): Ditto.
+	(pop3-string-to-list): Abolished.
+
 1999-01-06  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
 	* lisp/gnus-offline.el (gnus-offline-setup): Don't call
diff --git a/lisp/pop3.el b/lisp/pop3.el
index 2d1b825..f2b52dd 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -168,22 +168,6 @@ Return the response string if optional second argument is non-nil."
 	    t)
 	  )))))
 
-(defun pop3-string-to-list (string &optional regexp)
-  "Chop up a string into a list."
-  (let ((list)
-	(regexp (or regexp " "))
-	(string (if (string-match "\r" string)
-		    (substring string 0 (match-beginning 0))
-		  string)))
-    (store-match-data nil)
-    (while string
-      (if (string-match regexp string)
-	  (setq list (cons (substring string 0 (- (match-end 0) 1)) list)
-		string (substring string (match-end 0)))
-	(setq list (cons string list)
-	      string nil)))
-    (nreverse list)))
-
 (defvar pop3-read-passwd nil)
 (defun pop3-read-passwd (prompt)
   (if (not pop3-read-passwd)
@@ -219,8 +203,8 @@ Return the response string if optional second argument is non-nil."
 		   (looking-at "BABYL OPTIONS:") ; Babyl
 		   ))
 	  (let ((from (mail-strip-quoted-names (mail-fetch-field "From")))
-		(date (pop3-string-to-list (or (mail-fetch-field "Date")
-					       (message-make-date))))
+		(date (split-string (or (mail-fetch-field "Date")
+					(message-make-date))))
 		(From_))
 	    ;; sample date formats I have seen
 	    ;; Date: Tue, 9 Jul 1996 09:04:21 -0400 (EDT)
@@ -279,8 +263,8 @@ Return the response string if optional second argument is non-nil."
   "Return the number of messages in the maildrop and the maildrop's size."
   (pop3-send-command process "STAT")
   (let ((response (pop3-read-response process t)))
-    (list (string-to-int (nth 1 (pop3-string-to-list response)))
-	  (string-to-int (nth 2 (pop3-string-to-list response))))
+    (list (string-to-int (nth 1 (split-string response)))
+	  (string-to-int (nth 2 (split-string response))))
     ))
 
 (defun pop3-list (process &optional msg)
@@ -342,7 +326,7 @@ This function currently does nothing.")
   "Return highest accessed message-id number for the session."
   (pop3-send-command process "LAST")
   (let ((response (pop3-read-response process t)))
-    (string-to-int (nth 1 (pop3-string-to-list response)))
+    (string-to-int (nth 1 (split-string response)))
     ))
 
 (defun pop3-rset (process)