From e2ab180208d1d146a669c1664184256a613a4b83 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 4 Aug 2000 18:34:54 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-check-entity-async): Use `elmo-nntp-spec-hostname'. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * wl-folder.el (wl-folder-check-entity-async): Use + `elmo-nntp-spec-hostname'. + 2000-08-02 OKAZAKI Tetsurou * 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 -- 1.7.10.4