From: okada <okada>
Date: Fri, 4 Aug 2000 18:34:54 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-check-entity-async): Use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e2ab180208d1d146a669c1664184256a613a4b83;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-check-entity-async): Use
`elmo-nntp-spec-hostname'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 248c8b9..8b17bb8 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-26	Kenichi OKADA	<okada@opaopa.org>
+
+	* wl-folder.el (wl-folder-check-entity-async): Use
+	`elmo-nntp-spec-hostname'.
+
 2000-08-02  OKAZAKI Tetsurou  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-msgdb-load-async): Use
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 5bb76b5..892b18b 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -876,8 +876,8 @@
 	       (wl-append net-elist (list (car elist)))
 	       (while spec-list
 		 (when (eq (caar spec-list) 'nntp)
-		   (when (not (string= server (nth 2 (car spec-list))))
-		     (setq server (nth 2 (car spec-list)))
+		   (when (not (string= server (elmo-nntp-spec-hostname (car spec-list))))
+		     (setq server (elmo-nntp-spec-hostname (car spec-list)))
 		     (message "Checking on \"%s\"" server))
 		   (setq nntp-connection-keys
 			 (elmo-nntp-get-folders-info-prepare