* 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 (file)
--- 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 (file)
--- 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