Commit e12eba86 authored by Hans Eric Svensson's avatar Hans Eric Svensson

Hopefully solve the issues reported in text 15552713

parent 452b0f04
2007-07-20 Hans Eric Svensson <eric+lyskom@lysator.liu.se>
* view-text.el (lyskom-follow-comments): Adjusted to take into
account that text-read-p doesn't know if a text *should* be read,
it only only knows if a text *is marked* as read.
2007-07-14 Per Cederqvist <ceder@lysator.liu.se>
Make sure all elisp files end in a newline.
......
......@@ -546,8 +546,9 @@ lyskom-reading-list."
(let ((text-stat (blocking-do 'get-text-stat no)))
(if (and text-stat
(or review-tree
(not (lyskom-text-read-p text-stat t))
kom-follow-comments-outside-membership))
kom-follow-comments-outside-membership
(and (lyskom-member-of-at-least-one-p (lyskom-text-recipients text-stat))
(not (lyskom-text-read-p text-stat t)))))
(setq comments (cons no comments)))))
((memq no mx-attachments-in)
(lyskom-skip-attachments no mark-as-read))))
......@@ -572,8 +573,9 @@ lyskom-reading-list."
(let ((text-stat (blocking-do 'get-text-stat no)))
(if (or review-tree
(and text-stat
(or (not (lyskom-text-read-p text-stat))
kom-follow-comments-outside-membership)))
(or kom-follow-comments-outside-membership
(and (lyskom-member-of-at-least-one-p (lyskom-text-recipients text-stat))
(not (lyskom-text-read-p text-stat t))))))
(setq footnotes (cons no footnotes)))))
(if footnotes
(read-list-enter-read-info
......
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