Re: Reappearing marks--a clue!

[Simon Josefsson <jas@pdc.kth.se>]

Simon Josefsson <jas@pdc.kth.se> writes:

> This is the final version

I should've known better not to say that. Disregard my previous
patches and use this instead. Against PGnus 0.83.

--- gnus-sum.el-	Thu Apr 22 20:55:58 1999
+++ gnus-sum.el	Thu Apr 22 23:12:24 1999
@@ -4264,13 +4264,14 @@
 	(uncompressed '(score bookmark killed))
 	type list newmarked symbol delta-marks)
     (when info
-      ;; Add all marks lists that are non-nil to the list of marks lists.
+      ;; Add all marks lists to the list of marks lists.
       (while (setq type (pop types))
-	(when (setq list (symbol-value
+	(setq list (symbol-value
 			  (setq symbol
 				(intern (format "gnus-newsgroup-%s"
 						(car type))))))
 
+	(when list
 	  ;; Get rid of the entries of the articles that have the
 	  ;; default score.
 	  (when (and (eq (cdr type) 'score)
@@ -4285,7 +4286,7 @@
 		    (setcdr prev (cdr arts))
 		  (setq prev arts))
 		(setq arts (cdr arts)))
-	      (setq list (cdr all))))
+	      (setq list (cdr all)))))
 
 	  (when (gnus-check-backend-function 'request-set-mark
 					     gnus-newsgroup-name)
@@ -4301,6 +4302,7 @@
 		(if del
 		    (push (list del 'del (list (cdr type))) delta-marks)))))
 	  
+	(when list
 	  (push (cons (cdr type)
 		      (if (memq (cdr type) uncompressed) list
 			(gnus-compress-sequence