Commit 3bc621aa authored by Johan Sundström's avatar Johan Sundström
Browse files

less redundancy in kom-is-person-member-of-conference.

parent 6b7215d3
2000-06-11 Johan Sundstrm <jhs@lysator.liu.se>
* commands2.el (kom-is-person-member-of-conference): Replaced
redundant check code with a call to lyskom-is-member.
2000-06-11 Joel Rosdahl <joel@lysator.liu.se>
* swedish-strings.el: Spelling updates.
......
......@@ -2411,12 +2411,7 @@ The variable kom-keep-alive-interval controls the frequency of the request."
(conf-no
(or conf-no
(lyskom-read-conf-no (lyskom-get-string 'conf-to-check-mship-of)
'(all) nil nil t)))
(member-list (blocking-do 'get-members conf-no 0 lyskom-max-int)))
(if (null member-list)
(lyskom-format-insert 'conf-is-empty conf-no)
(or (lyskom-traverse member (member-list->members member-list)
(when (= pers-no (member->pers-no member))
(lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no)
(lyskom-traverse-break t)))
(lyskom-format-insert 'pers-is-not-member-of-conf pers-no conf-no)))))
'(all) nil nil t))))
(if (lyskom-is-member pers-no conf-no)
(lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no)
(lyskom-format-insert 'pers-is-not-member-of-conf pers-no 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