Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
448c9216
Commit
448c9216
authored
Jun 10, 2000
by
Joel Rosdahl
Browse files
Only review texts that can be read.
parent
da434a8c
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
448c9216
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
View file @
448c9216
...
...
@@ -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
View file @
448c9216
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment