From 94f288135f95ca48fb50f5aa43bc09f9669c5c23 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 25 Nov 2015 13:47:54 +0000 Subject: [PATCH] Remove nnml-retrieve-groups that is unnecessary and somewhat problematic * nnml.el (nnml-retrieve-groups): Remove. See: and --- lisp/ChangeLog | 6 ++++++ lisp/nnml.el | 17 ----------------- 2 files changed, 6 insertions(+), 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 057c343be..137f625d1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2015-11-25 Katsumi Yamaoka + + * nnml.el (nnml-retrieve-groups): Remove. See: + and + + 2015-11-11 Eli Zaretskii * mm-url.el (mm-url-form-encode-xwfu): Allow argument CHUNK to be nil. diff --git a/lisp/nnml.el b/lisp/nnml.el index 33eae1c16..a2947c0a9 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -268,23 +268,6 @@ non-nil.") (max (1+ (- (cdr active) (car active))) 0) (car active) (cdr active) group))))))) -(deffoo nnml-retrieve-groups (groups &optional server) - (when nnml-get-new-mail - (if (nnmail-get-new-mail-per-group) - (dolist (group groups) - (nnml-request-scan group server)) - (nnml-request-scan nil server))) - (with-current-buffer nntp-server-buffer - (erase-buffer) - (dolist (group groups) - (let* ((entry (assoc group nnml-group-alist)) - (active (nth 1 entry))) - (if (consp active) - (insert (format "211 %d %d %d %s\n" - (max (1+ (- (cdr active) (car active))) 0) - (car active) (cdr active) group)))))) - 'group) - (deffoo nnml-request-scan (&optional group server) (setq nnml-article-file-alist nil) (nnml-possibly-change-directory group server) -- 2.11.4.GIT