Re: nnml groups showing up with '*' at startup

[asjo@koldfront.dk (Adam Sjøgren)]

Michael writes:

> The other change - the one probably responsible for this problem -
> unbreaks the functionality of the per-group mail source.

I don't know what that means. Likely that I am not using it :-)

> If you're not using this feature, could you pinpoint the hunk (out of 2)
> that's causing it?  (Easily done by first removing the
> `nnml-retrieve-groups` defun.)  That'd help me find out where it's
> coming from.

Yup, this makes the symptom disappear:

---
 lisp/nnml.el | 17 -----------------
 1 file changed, 17 deletions(-)

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)
-- 
2.6.2

-- 
 "It's not denial. I'm just very selective about the          Adam Sjøgren
  reality I accept."                                     asjo@koldfront.dk