Only review texts that can be read.

src/ChangeLog

+2000-06-11  Joel Rosdahl  <joel@lysator.liu.se>
+
+	* view-text.el (lyskom-follow-comments): Documentation update.
+	Only review texts that can be read.
+
+	* review.el (lyskom-review-comments): Only review texts that can
+	be read.
+
 2000-06-10  Johan Sundstrm  <jhs@lysator.liu.se>
 
 	* vars.el.in (lyskom-add-sub-recipients-hook): New hook.

src/review.el

@@ -1216,7 +1216,7 @@ text is shown and a REVIEW list is built to shown the other ones."
 				   'FOOTN-IN misc-info-list)
 				  (lyskom-misc-infos-from-list 
 				   'COMM-IN misc-info-list))))
-	 (text-nos (and misc-infos
+	 (all-text-nos (and misc-infos
 			(mapcar
 			 (function
 			  (lambda (misc-info)
@@ -1224,7 +1224,14 @@ text is shown and a REVIEW list is built to shown the other ones."
 				       'COMM-IN)
 				(misc-info->comm-in misc-info)
 			      (misc-info->footn-in misc-info))))
-			 misc-infos))))
+			 misc-infos)))
+         text-nos)
+    ;; Only try to review texts that we can read.
+    (while all-text-nos
+      (if (blocking-do 'get-text-stat (car all-text-nos))
+          (setq text-nos (cons (car all-text-nos) text-nos)))
+      (setq all-text-nos (cdr all-text-nos)))
+
     (if text-nos
 	(progn
 	  (lyskom-format-insert 'review-text-no (car text-nos))

src/view-text.el

@@ -371,9 +371,10 @@ when put in your `lyskom-view-text-hook'."
 This will essentially fix the reading list and issue calls for the cache to be
 filled.
 
-Arguments are: TEXT-STAT CONF-STAT PRIORITY REVIEW-TREE
+Arguments are: TEXT-STAT CONF-STAT MARK-AS-READ PRIORITY REVIEW-TREE
 TEXT-STAT is the current text.
 CONF-STAT the current conference
+If MARK-AS-READ is non-nil the texts will be marked as read.
 PRIORITY the priority of the reading.
 If REVIEW-TREE is non-nil then build an entry of type 'REVIEW-TREE in the 
 lyskom-reading-list."
@@ -406,8 +407,8 @@ lyskom-reading-list."
                    kom-follow-attachments
                    (not (memq no mx-attachments-in)))
                (let ((text-stat (blocking-do 'get-text-stat no)))
-                 (if (or review-tree
-                         (and text-stat
+                 (if (and text-stat
+                          (or review-tree
                               (not (lyskom-text-read-p text-stat))))
                      (setq comments (cons no comments)))))
               ((memq no mx-attachments-in)