* completing-read.el (lyskom-completing-who-is-on): Använd

who-is-on-dynamic om den finns.
(lyskom-read-conf-get-logins): Dito.
(lyskom-session-from-conf): Dito.

* startup.el (lyskom-clear-vars): Gör
kom-membership-default-priority buffertlokal.

* commands1.el (lyskom-try-add-member): Tillåt prioritet 0 när man
går med i nya möten.

* lyskom-rest.el (lyskom-filter): Sätt lyskom-is-parsing med en
let istället för med setq.

src/ChangeLog

+Tue Sep  3 03:39:58 1996  David Kgedal  <kg@infovav.se>
+
+	* completing-read.el (lyskom-completing-who-is-on): Anvnd
+ 	who-is-on-dynamic om den finns.
+	(lyskom-read-conf-get-logins): Dito.
+	(lyskom-session-from-conf): Dito.
+
+	* startup.el (lyskom-clear-vars): Gr
+ 	kom-membership-default-priority buffertlokal.
+
+	* commands1.el (lyskom-try-add-member): Tillt prioritet 0 nr man
+ 	gr med i nya mten.
+
+	* lyskom-rest.el (lyskom-filter): Stt lyskom-is-parsing med en
+ 	let istllet fr med setq.
+
 Mon Sep  2 08:47:36 1996  David Byers  <davby@sen2.ida.liu.se>
 
+	* Version 0.44.1 slppt.
+	
 	* completing-read.el (lyskom-read-conf-internal): Returnera t fr
  	'lambda vid lite fler tillfllen, hantera try-completion p det
  	stt som C-koden sger att det skall fungera, inte som

src/commands1.el

@@ -337,7 +337,7 @@ Returns t if it was possible, otherwise nil."
 		      (> kom-membership-default-priority 0))
 		 kom-membership-default-priority
 	       (lyskom-read-num-range
-		1 255 (lyskom-get-string 'priority-q)))))
+		0 255 (lyskom-get-string 'priority-q)))))
 	  (where
 	   (if (/= lyskom-pers-no (conf-stat->conf-no pers-conf-stat))
 	       1			; When adding someone else

src/completing-read.el

@@ -63,7 +63,10 @@
   (if lyskom-completing-who-info-cache
       lyskom-completing-who-info-cache
     (setq lyskom-completing-who-info-cache
-          (listify-vector (blocking-do 'who-is-on)))))
+          (listify-vector
+	   (if use-dynamic-info
+	       (blocking-do 'who-is-on-dynamic t t 0)
+	     (blocking-do 'who-is-on))))))
 
 (defun lyskom-completing-cache-completion (string data)
   (let* ((downs (lyskom-unicase string))
@@ -194,8 +197,14 @@ A string:    A name that matched nothing in the database."
 (defun lyskom-read-conf-get-logins ()
   "Used internally by lyskom-read-conf-internal to get a list of
 persons who are logged on."
-  (mapcar (function (lambda (el) (who-info->pers-no el)))
-          (lyskom-completing-who-is-on)))
+  (let ((use-dynamic-info
+	 (cdr-safe (assq 'lyskom-dynamic-session-info-flag
+			 (buffer-local-variables
+			  (process-buffer lyskom-blocking-process))))))
+    (mapcar (if use-dynamic-info
+		(function (lambda (el) (dynamic-session-info->person el)))
+	      (function (lambda (el) (who-info->pers-no el))))
+	    (lyskom-completing-who-is-on))))
 
 
 (defun lyskom-read-conf-expand-specials (string
@@ -867,11 +876,20 @@ the LysKOM rules of string matching."
 (defun lyskom-session-from-conf (conf-no)
   (let ((who-list (lyskom-completing-who-is-on))
         (sessions nil))
-    (while who-list
-      (if (eq (who-info->pers-no (car who-list)) conf-no)
-          (setq sessions (cons (who-info->connection (car who-list))
-                               sessions)))
-      (setq who-list (cdr who-list)))
+    (if lyskom-dynamic-session-info-flag
+	(while who-list
+	  (if (eq (dynamic-session-info->person (car who-list))
+		  conf-no)
+	      (setq sessions (cons (dynamic-session-info->session
+				    (car who-list))
+				   sessions)))
+	  (setq who-list (cdr who-list)))
+      (while who-list
+	(if (eq (who-info->pers-no (car who-list))
+		conf-no)
+	    (setq sessions (cons (who-info->connection (car who-list))
+				 sessions)))
+	(setq who-list (cdr who-list))))
     (cond ((and (null sessions) kom-permissive-completion) (list (- conf-no)))
           (t sessions))))
 

src/startup.el

@@ -594,14 +594,15 @@ to see, set of call."
     (kill-all-local-variables)
     (make-local-variable 'kom-ansaphone-show-messages)
     (make-local-variable 'kom-ansaphone-record-messages)
-    (make-local-variable 'kom-prompt-format)
     (make-local-variable 'kom-ansaphone-on)
     (make-local-variable 'kom-ansaphone-default-reply)
-    (make-local-variable 'kom-remote-control)
-    (make-local-variable 'kom-remote-controllers)
-    (make-local-variable 'kom-login-hook)
     (make-local-variable 'kom-friends)
+    (make-local-variable 'kom-login-hook)
+    (make-local-variable 'kom-membership-default-priority)
     (make-local-variable 'kom-permanent-filter-list)
+    (make-local-variable 'kom-prompt-format)
+    (make-local-variable 'kom-remote-control)
+    (make-local-variable 'kom-remote-controllers)
     (make-local-variable 'kom-session-filter-list)
     (make-local-variable 'lyskom-accept-async-flag)
     (make-local-variable 'lyskom-blocking-return)