From: hmurata <hmurata>
Date: Sat, 17 Apr 2004 03:21:10 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-make-msglist): Use elmo-make-number-list.
X-Git-Tag: wl-2_11_26~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=599b7efbcf51d73476ca1d61f057e304a1fd3860;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-make-msglist): Use elmo-make-number-list.
(Sorry, it is ommission in previouse commit)
---

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 9d0eb95..9ecdbd0 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -624,18 +624,7 @@ Don't cache if nil.")
 	    ret-val)))
 
 (defun elmo-nntp-make-msglist (beg-str end-str)
-  (elmo-set-work-buf
-   (let ((beg-num (string-to-int beg-str))
-	 (end-num (string-to-int end-str))
-	 i)
-     (setq i beg-num)
-     (insert "(")
-     (while (<= i end-num)
-       (insert (format "%s " i))
-       (setq i (1+ i)))
-     (insert ")")
-     (goto-char (point-min))
-     (read (current-buffer)))))
+  (elmo-make-number-list (string-to-int beg-str) (string-to-int end-str)))
 
 (luna-define-method elmo-folder-list-messages-plugged ((folder
 							elmo-nntp-folder)