* nnmaildir.el (nnmaildir-request-update-info,

nnmaildir-request-group, nnmaildir-retrieve-groups): remove
unnecessary calls to nnmaildir-request-scan.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 252c77f..661855e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-21  Paul Jarc  <prj@po.cwru.edu>
+
+       * nnmaildir.el (nnmaildir-request-update-info,
+       nnmaildir-request-group, nnmaildir-retrieve-groups): remove
+       unnecessary calls to nnmaildir-request-scan.
+
 2002-04-20  Josh Huber  <huber@alum.wpi.edu>
 
        * gnus-msg.el:
@@ -133,7 +139,7 @@
 2002-04-01  Jesper Harder  <harder@ifa.au.dk>
 
        * message.el (message-buffer-naming-style): Remove.
-       
+
 2002-04-02  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-group.el (gnus-group-make-tool-bar): Load tool-bar first.
@@ -162,7 +168,7 @@
        (spam-address-whitelisted-p): New function.
 
        * dns.el (query-dns): Use TCP when make-network-process isn't
-       available. 
+       available.
        (dns-servers): New variable.
        (dns-parse-resolv-conf): New function.
        (query-dns): Use it.

diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index 2d21303..8e323a4 100644 (file)
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -785,7 +785,6 @@ by nnmaildir-request-article.")
       (erase-buffer)
       (while groups
        (setq gname (car groups) groups (cdr groups))
-       (nnmaildir-request-scan gname server)
        (setq group (nnmaildir--prepare nil gname))
        (if (null group) (insert "411 no such news group\n")
          (setq ct-min (nnmaildir--article-count group))
@@ -802,7 +801,6 @@ by nnmaildir-request-article.")
   'group)
 
 (defun nnmaildir-request-update-info (gname info &optional server)
-  (nnmaildir-request-scan gname server)
   (let ((group (nnmaildir--prepare server gname))
        pgname nlist flist last always-marks never-marks old-marks dotfile num
         dir markdirs marks mark ranges articles article read end new-marks ls
@@ -869,7 +867,6 @@ by nnmaildir-request-article.")
       info)))
 
 (defun nnmaildir-request-group (gname &optional server fast)
-  (nnmaildir-request-scan gname server)
   (let ((group (nnmaildir--prepare server gname))
        ct-min deactivate-mark)
     (nnmaildir--with-nntp-buffer