Fix typ in swedish-strings.el.

Print header in kom-list-created-confs

src/ChangeLog

+2000-08-16  David Byers  <davby@ida.liu.se>
+
+	* commands1.el (lyskom-list-created-conferences-2): sit-for to
+	update display. Superconf flag is only shown if the conference
+	does not accept comments.
+	(kom-list-created-conferences): Print header for the list.
+
 Wed Aug 16 16:55:56 2000  David Byers  <davby@sen2.ida.liu.se>
 
 	* Release av 0.46-BETA-M

src/commands1.el

@@ -1442,7 +1442,7 @@ Those that you are not a member in will be marked with an asterisk."
     (lyskom-prefetch-all-confs))
 
   (blocking-do 'get-uconf-stat lyskom-pers-no)
-  (let ((pers-no (lyskom-read-conf-no 
+  (let ((pers (lyskom-read-conf-stat
                   (if arg 'list-pers-confs-created-by 'list-confs-created-by)
                   '(pers) 
                   nil
@@ -1450,6 +1450,7 @@ Those that you are not a member in will be marked with an asterisk."
                       (cons (conf-stat->name (cache-get-uconf-stat lyskom-pers-no)) 0)1
                       nil)
                   t)))
+    (lyskom-format-insert 'listing-confs-created-by (conf-stat->conf-no pers))
     (lyskom-message (lyskom-get-string (if arg 'getting-all-pers-confs 'getting-all-confs)))
     (let ((result (blocking-do 'lookup-z-name "" (if arg 1 0) 1)))
       (lyskom-message (lyskom-get-string (if arg 'getting-all-pers-confs-done 'getting-all-confs-done)))
@@ -1467,13 +1468,13 @@ Those that you are not a member in will be marked with an asterisk."
                                                                   'lyskom-list-created-conferences-2
                                                                   (conf-z-info->conf-no conf-z)
                                                                   counter
-                                                                  pers-no
+                                                                  (conf-stat->conf-no pers)
                                                                   arg
                                                                   )
                                           calls)))
                            (lyskom-wait-queue 'main)
                            (when (eq 0 (elt counter 3))
-                             (lyskom-format-insert 'no-created-confs pers-no))
+                             (lyskom-format-insert 'no-created-confs pers))
                            )
                   (quit (aset counter 0 t)
                         (lyskom-cancel-call 'main calls))))
@@ -1510,7 +1511,8 @@ Those that you are not a member in will be marked with an asterisk."
                                         (lyskom-get-string 'superconf-conf-letter) " "))
                             (cond ((conf-type->secret (conf-stat->conf-type cs)) (lyskom-get-string 'secret-conf-letter))
                                   ((conf-type->rd_prot (conf-stat->conf-type cs)) (lyskom-get-string 'protected-conf-letter))
-                                  (t " "))))))
+                                  (t " ")))
+      (sit-for 0))))
 
 
 (defun lyskom-list-conf-print (conf-z)

src/english-strings.el

@@ -333,7 +333,8 @@ and you have finished reading. Please come back later.
     (no-confs-exist . "There are no conferences in the database.\n")
     (no-pers-confs-exist . "There are no persons or conferences in the database.\n")
     (list-confs-created-by . "List conferences administered by: ")
-    (listing-confs-created-by . "Listing conferences administered by %#1P\n")
+    (listing-confs-created-by . "Listing conferences administered by %#1P\
+    C=Created, O=Supervisor, S=Letterbox is super conf; S=Secret, P=Protected\n")
     (list-pers-confs-created-by . "List persons and conferences administered by: ")
     (getting-all-confs . "Retrieving a list of all conferences from the server...")
     (getting-all-pers-confs . "Retrieving a list of all persons and conferences from the server...")

src/swedish-strings.el

@@ -314,7 +314,8 @@ du har l
     (no-confs-exist . "Det finns inga mten i databasen.\n")
     (no-pers-confs-exist . "Det finns inga mten eller personer i databasen.\n")
     (list-confs-created-by . "Lista organisatrsskap fr: ")
-    (listing-confs-created-by . "Organisatrsskap fr %#1P\n")
+    (listing-confs-created-by . "Organisatrsskap fr %#1P\n\
+    S=Skapat, O=Organisatr, M=Brevlda som supermte; S=Slutet, H=Hemligt\n")
     (list-pers-confs-created-by . "Lista organisatrsskap (med brevldor) fr: ")
     (getting-all-confs . "Hmtar en lista av alla mten frn servern...")
     (getting-all-pers-confs . "Hmtar en lista av alla personer och mten frn servern...")
@@ -1530,7 +1531,7 @@ Du m
     (kom-slow-mode            . "Lngsamma kommandon")
     (kom-quick-mode           . "Snabba kommandon")
     (kom-send-message         . "Snda meddelande")
-    (kom-send-alarm           p. "Skicka alarmmeddelande")
+    (kom-send-alarm           . "Skicka alarmmeddelande")
     (kom-create-conf	      . "Skapa mte")
     (kom-delete-conf          . "Utplna")
     (kom-delete-text          . "Radera inlgg")