Commit 7b4f02ae authored by David Byers's avatar David Byers
Browse files

Fixed bug in handling missing FAQs

parent 00d543de
2002-04-14 David Byers <david.byers@swipnet.se>
* faqs.el (lyskom-check-for-read-faqs): Handle missing FAQ texts
better.
Handle conference recommendations:
* lyskom-rest.el (lyskom-reject-recommendation): Renamed from
lyskom-reject-invitation.
......
......@@ -1044,7 +1044,7 @@ BCCREP is a list of all recipient that are going to be bcc-recipients."
(not (and (= (length data) 2)
(or (= lyskom-pers-no (conf-stat->conf-no
(car data)))
(= lyskom-pers-no (conf-stat->conf-no
x (= lyskom-pers-no (conf-stat->conf-no
(car (cdr data))))))))
(let ((new-data nil))
(while data
......@@ -1085,7 +1085,7 @@ BCCREP is a list of all recipient that are going to be bcc-recipients."
(setq data (cdr data)))
;; Add the user to the list of recipients if he isn't a member in
;; any of the recipients.
(if (not member)
(when (not member)
(setq recver (append recver
(list (cons 'recpt lyskom-pers-no)))))
(lyskom-edit-text lyskom-proc
......
......@@ -371,6 +371,22 @@ The text to add is passed in TEXT-NO"
(mapcar (lambda (aux)
(string-to-int (aux-item->data aux)))
(lyskom-get-aux-item aux-list 14)))))
;; Filter out FAQs that don't exist
(let ((collector (make-collector)))
(lyskom-traverse faq faq-list
(initiate-get-text-stat 'background
(lambda (text-stat faq conf-no collector)
(if text-stat
(collector-push faq collector)
(lyskom-register-read-faq conf-no faq)))
faq
faq
conf-no
collector))
(lyskom-wait-queue 'background)
(setq faq-list (nreverse (collector->value collector))))
(when faq-list
(when kom-auto-list-faqs
(lyskom-format-insert 'there-are-faqs (length faq-list) conf-no)
......
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