Commit a3b4adb7 authored by Hans Eric Svensson's avatar Hans Eric Svensson
Browse files

Handle passive membership in combination with...

Handle passive membership in combination with kom-follow-comments-outside-membership when reading texts
parent 11464f69
......@@ -563,7 +563,7 @@ which were made after CAME-FROM (as well as CAME-FROM)."
(text-stat (blocking-do 'get-text-stat text-no))
; Sometimes is-read is nil even though it has no proof
; (when kom-follow-comments-outside-membership is nil).
(is-read (lyskom-text-read-p text-stat))
(is-read (lyskom-text-read-p text-stat t))
(confs (lyskom-text-recipients text-stat))
(but-current (delq lyskom-current-conf confs))
(is-member (lyskom-member-of-at-least-one-p but-current)))
......@@ -638,7 +638,7 @@ VISITED to detect loops and save all of the candidates in CANDIDATES."
(while consider
(let* ((text-no (car consider))
(text-stat (blocking-do 'get-text-stat text-no))
(is-read (lyskom-text-read-p text-stat))
(is-read (lyskom-text-read-p text-stat t))
(confs (lyskom-text-recipients text-stat))
(is-member (lyskom-member-of-at-least-one-p confs))
(more-text-nos (lyskom-text-stat-commented-texts text-stat))
......@@ -756,7 +756,7 @@ lyskom-mark-as-read."
misc (text-stat->misc-info-list text-stat)
(if (memq (misc-info->type misc) '(RECPT BCC-RECPT CC-RECPT))
(let ((membership (lyskom-try-get-membership
(misc-info->recipient-no misc))))
(misc-info->recipient-no misc) t)))
(when membership
(set-membership->read-texts
membership
......
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