Commit 448c9216 authored by Joel Rosdahl's avatar Joel Rosdahl

Only review texts that can be read.

parent da434a8c
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.
......
......@@ -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))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment