Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
7b4f02ae
Commit
7b4f02ae
authored
Apr 14, 2002
by
David Byers
Browse files
Fixed bug in handling missing FAQs
parent
00d543de
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
7b4f02ae
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
View file @
7b4f02ae
...
...
@@ -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
View file @
7b4f02ae
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment