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

kom-who-is-on-and-friend visar lyskom-pers-no också. Jag vill se mig själv.

parent 80d7161f
2002-04-11 David Byers <david.byers@swipnet.se>
Beter kom-who-is-on-and-friend:
* commands1.el (lyskom-select-friends-from-who-list): Show
lyskom-pers-no when filtering friends. Perhaps this should be a
configurable option. Someone else can deal with that :-)
* vars.el.in (lyskom-commands): Added kom-create-aux-item.
* swedish-strings.el (lyskom-command): Added kom-cereate-aux-item.
......
......@@ -3202,10 +3202,11 @@ Uses Protocol A version 9 calls"
(defun lyskom-select-friends-from-who-list (who-list)
"Returns a list of friends in WHO-LIST"
(let ((result nil))
(let ((result nil)
(extended-friends (cons lyskom-pers-no kom-friends)))
(while (not (null who-list))
(when (memq (dynamic-session-info->person (car who-list))
kom-friends)
extended-friends)
(setq result (cons (car who-list) result)))
(setq who-list (cdr who-list)))
result))
......
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