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

Fixes while going to an empty conf.

parent 0efe2257
No preview for this file type
......@@ -1067,19 +1067,6 @@ Args: CONF-STAT MEMBERSHIP"
(lyskom-enter-conf conf-stat (read-list->first lyskom-reading-list))
(lyskom-end-of-command))
((> (+ (conf-stat->first-local-no conf-stat)
(conf-stat->no-of-texts conf-stat)
-1)
(membership->last-text-read membership))
;; There are (probably) some unread texts in this conf.
(initiate-get-map 'main 'lyskom-go-to-conf-handle-map
(conf-stat->conf-no conf-stat)
(1+ (membership->last-text-read membership))
(conf-stat->no-of-texts conf-stat)
membership
conf-stat
priority))
(t
(lyskom-go-to-empty-conf conf-stat)))))
......@@ -1118,7 +1105,7 @@ PRIORITY is the smallest priority the conference can be read with."
"Go to a conference with no unseen messages. Args: CONF-STAT."
(initiate-pepsi 'main nil (conf-stat->conf-no conf-stat))
(setq lyskom-current-conf (conf-stat->conf-no conf-stat))
(lyskom-insert-string 'conf-all-read)
(lyskom-format-insert 'conf-all-read (conf-stat->name conf-stat))
(lyskom-end-of-command))
......
......@@ -181,7 +181,7 @@ Lyskom-sessionen
(who-to-remove-motd-for . "Vilket mte/person vill du ta bort lapp p drr fr: ")
(conf-all-read . "Du har sett alla texter i detta mte.\n")
(conf-all-read . "%#1s - inga ol{sta.\n")
(no-in-conf . "Du r inte nrvarande i ngot mte.\n")
(search-for-pers . "Ange skvillkor (RETURN fr alla personer) ")
......
Supports Markdown
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