Remove nnml-retrieve-groups that is unnecessary and somewhat problematic
authorKatsumi Yamaoka <yamaoka@jpl.org>
Wed, 25 Nov 2015 13:47:54 +0000 (13:47 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Wed, 25 Nov 2015 13:47:54 +0000 (13:47 +0000)
* 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/ChangeLog
lisp/nnml.el

index 057c343..137f625 100644 (file)
@@ -1,3 +1,9 @@
+2015-11-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <eliz@gnu.org>
 
        * mm-url.el (mm-url-form-encode-xwfu): Allow argument CHUNK to be nil.
 2015-11-11  Eli Zaretskii  <eliz@gnu.org>
 
        * mm-url.el (mm-url-form-encode-xwfu): Allow argument CHUNK to be nil.
index 33eae1c..a2947c0 100644 (file)
@@ -268,23 +268,6 @@ non-nil.")
                           (max (1+ (- (cdr active) (car active))) 0)
                           (car active) (cdr active) group)))))))
 
                           (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)
 (deffoo nnml-request-scan (&optional group server)
   (setq nnml-article-file-alist nil)
   (nnml-possibly-change-directory group server)