Fixed bug in handling missing FAQs

src/ChangeLog

 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.

src/commands1.el

@@ -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 

src/faqs.el

@@ -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)