[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 849c1f0: Remove nnml-retrieve-groups that is unne
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] emacs-25 849c1f0: Remove nnml-retrieve-groups that is unnecessary and somewhat problematic |
Date: |
Wed, 25 Nov 2015 13:48:25 +0000 |
branch: emacs-25
commit 849c1f0180bdadfe695ba0dc2abaf8d060c20328
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
Remove nnml-retrieve-groups that is unnecessary and somewhat problematic
* lisp/gnus/nnml.el (nnml-retrieve-groups): Remove. See:
<http://thread.gmane.org/gmane.emacs.gnus.general/86308> and
<http://thread.gmane.org/gmane.emacs.gnus.general/86321>
---
lisp/gnus/nnml.el | 17 -----------------
1 files changed, 0 insertions(+), 17 deletions(-)
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el
index 33eae1c..a2947c0 100644
--- a/lisp/gnus/nnml.el
+++ b/lisp/gnus/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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 849c1f0: Remove nnml-retrieve-groups that is unnecessary and somewhat problematic,
Katsumi Yamaoka <=