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

Fixed bug that cause cleaning of read-FAQs to clean the wrong items

parent 696b3603
2002-08-13 David Byers <>
* lyskom-rest.el (lyskom-clean-read-faqs-1): Fixed negated
condition that cause read *existing* FAQs to be marked as unread.
2002-08-12 David Byers <>
* startup.el (lyskom-refetch): Call lyskom-clean-read-faqs.
......@@ -781,16 +781,17 @@ that are no longer FAQs or are missing."
"Callback for lyskom-clean-read-faqs"
(let ((cmp (int-to-string conf-no)))
(when (or (null text-stat)
(lyskom-traverse aux (lyskom-get-aux-item
(not (lyskom-traverse aux (lyskom-get-aux-item
(text-stat->aux-items text-stat)
(when (string= cmp (aux-item->data aux))
(lyskom-traverse-break t))))
(lyskom-traverse-break t)))))
(initiate-modify-conf-info 'background
(list (aux-item->aux-no item))
(defun lyskom-enter-conf (conf-stat read-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