Commit a77fe6ef authored by David Byers's avatar David Byers
Browse files

Fix bug 961: Server FAQs are presented over and over again

Detailed changes:
> 2003-01-04  David Byers  <david.byers@swipnet.se>
>
> 	Fix bug 961:
> 	* faqs.el (lyskom-faq-is-read): Handle server FAQs correctly so
> 	they are not presented even when they have been read.
> 	(lyskom-register-read-faq): If conf-no is nil, set it to zero.
> 	(lyskom-get-unread-faqs): If conf-stat is nil, set conf-no to
> 	zero.
>
parent 79ebb810
2003-01-04 David Byers <david.byers@swipnet.se>
Fix bug 961:
* faqs.el (lyskom-faq-is-read): Handle server FAQs correctly so
they are not presented even when they have been read.
(lyskom-register-read-faq): If conf-no is nil, set it to zero.
(lyskom-get-unread-faqs): If conf-stat is nil, set conf-no to
zero.
2003-01-03 David Byers <david.byers@swipnet.se>
Fix bug 823:
......
......@@ -36,6 +36,7 @@
"$Id$\n"))
(defun lyskom-register-read-faq (conf-no text-no)
(unless conf-no (setq conf-no 0))
(unless (lyskom-faq-is-read conf-no text-no)
(setq lyskom-read-faqs (cons (cons conf-no text-no) lyskom-read-faqs))
(initiate-modify-conf-info
......@@ -55,7 +56,7 @@
(defun lyskom-faq-is-read (conf-no text-no)
"Return non-nil if lyskom-pers-no has read CONF-NOs FAQ TEXT-NO."
(member (cons conf-no text-no) lyskom-read-faqs))
(member (cons (or conf-no 0) text-no) lyskom-read-faqs))
(defun lyskom-update-read-faqs ()
"Update the list of read FAQs from the server."
......@@ -377,7 +378,7 @@ The text to add is passed in TEXT-NO"
(defun lyskom-get-unread-faqs (conf-stat)
"Return a list of unread FAQs for conf CONF-STAT."
(let* ((conf-no (and conf-stat (conf-stat->conf-no conf-stat)))
(let* ((conf-no (if conf-stat (conf-stat->conf-no conf-stat) 0))
(aux-list (if conf-stat
(conf-stat->aux-items conf-stat)
(server-info->aux-item-list lyskom-server-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