[gnus git] branch master updated: m0-13-96-g94f2881 =1= Remove nnml-retrieve-groups that is unnecessary and somewhat problematic

Katsumi Yamaoka <[email protected]> Wed, 25 Nov 2015 14:48:24 +0100
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  94f288135f95ca48fb50f5aa43bc09f9669c5c23 (commit)
      from  24f8bdab921a0876873c5d61eb7e7fe38833f64f (commit)


- Log -----------------------------------------------------------------
commit 94f288135f95ca48fb50f5aa43bc09f9669c5c23
Author: Katsumi Yamaoka <[email protected]>
Date:   Wed Nov 25 13:47:54 2015 +0000

    Remove nnml-retrieve-groups that is unnecessary and somewhat problematic
    
    * 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>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 057c343..137f625 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-11-25  Katsumi Yamaoka  <[email protected]>
+
+	* 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>
+
 2015-11-11  Eli Zaretskii  <[email protected]>
 
 	* 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 33eae1c..a2947c0 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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    6 ++++++
 lisp/nnml.el   |   17 -----------------
 2 files changed, 6 insertions(+), 17 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project