Commit a7361891 authored by Linus Tolke's avatar Linus Tolke
Browse files

Bugfix if text in a protected conference

parent 488d9b43
No preview for this file type
......@@ -379,29 +379,34 @@ to update the no-of-texts field in the cache.
Also add this info in lyskom-to-do-list if info about RECIPIENT as been
fetched. Does not try to print prompt or do any prefetch. That will be
done after all the confs has been handled."
;; Update the cache.
(set-conf-stat->no-of-texts
recipient
(max (conf-stat->no-of-texts recipient)
(+ local-no -1
(- (conf-stat->first-local-no recipient)))))
;; Update the read-lists.
(if (and (lyskom-conf-fetched-p (conf-stat->conf-no recipient))
(not (read-list-enter-text text-no recipient lyskom-to-do-list)))
;; If we have already read all texts in the conference...
(let ((info (lyskom-create-read-info
'CONF
recipient
(membership->priority
(lyskom-member-p (conf-stat->conf-no recipient)))
(lyskom-create-text-list (list text-no)))))
(read-list-enter-read-info info lyskom-to-do-list)
(if (= lyskom-current-conf (conf-stat->conf-no recipient))
(read-list-enter-first info lyskom-reading-list))))
(lyskom-set-mode-line))
done after all the confs has been handled.
If recipient is nil this means we are crossposting to a protected conference.
In that case, just discard this call."
(cond
(recipient ;+++ Annan felhantering.
;; Update the cache.
(set-conf-stat->no-of-texts
recipient
(max (conf-stat->no-of-texts recipient)
(+ local-no -1
(- (conf-stat->first-local-no recipient)))))
;; Update the read-lists.
(if (and (lyskom-conf-fetched-p (conf-stat->conf-no recipient))
(not (read-list-enter-text text-no recipient lyskom-to-do-list)))
;; If we have already read all texts in the conference...
(let ((info (lyskom-create-read-info
'CONF
recipient
(membership->priority
(lyskom-member-p (conf-stat->conf-no recipient)))
(lyskom-create-text-list (list text-no)))))
(read-list-enter-read-info info lyskom-to-do-list)
(if (= lyskom-current-conf (conf-stat->conf-no recipient))
(read-list-enter-first info lyskom-reading-list))))
(lyskom-set-mode-line))))
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