Bugfixar.

src/ChangeLog

+Sun Apr 14 23:44:45 1996  David Kågedal  <davidk@lysator.liu.se>
+
+	* view-text.el (lyskom-follow-comments): Felaktiga parametrar i
+	ett anrop till lyskom-view-text.
+
 Thu Apr  4 10:36:06 1996  David Byers  <davby@sen2.ida.liu.se>
 
     * lyskom-rest.el (lyskom-insert): Gör lyskom-scroll i lyskom-insert
@@ -20,6 +25,11 @@ Thu Apr  4 10:36:06 1996  David Byers  <davby@sen2.ida.liu.se>
     (lyskom-get-texts-by): Ny funktion som hämtar texter av en person.
     (lyskom-get-texts-to): Ny funktion som hämtar texter till ett möte.
 
+Wed Apr  3 12:33:45 1996  David Kågedal  <davidk@lysator.liu.se>
+
+	* commands1.el (lyskom-create-conf-handler-2): Testa inte om mötet
+	är hemligt. Detta görs i kom-create-conf istället.
+
 Wed Apr  3 12:56:19 1996  David Byers  <davby@sen2.ida.liu.se>
 
     * english-strings.el, swedish-strings.el (lyskom-strings): Lade till
@@ -84,6 +94,15 @@ Tue Apr  2 15:15:11 1996  David Byers  <davby@sen2.ida.liu.se>
     referenser till debugger-old-buffer för att slippa
     kompileringsvarningar. 
 
+Tue Apr  2 00:45:27 1996  David Kågedal  <davidk@lysator.liu.se>
+
+	* view-text.el (lyskom-follow-comments): Anropa lyskom-view-text
+ 	med fler argument.
+
+	* commands1.el (kom-create-conf): Slog ihop med
+ 	lyskom-create-conf-handler. Skriv inga presentationer till hemliga
+ 	möten.
+
 Mon Apr  1 14:57:53 1996  David Byers  <davby@sen2.ida.liu.se>
 
     * commands1.el: Prioritet sätts mellan 1 och 255, aldrig till noll.
@@ -113,6 +132,14 @@ Mon Apr  1 14:57:53 1996  David Byers  <davby@sen2.ida.liu.se>
     nil om man inte är vid sista prompten. lyskom-is-waiting måste vara
     nil om asynkrona texter skall sparas och inte skrivas ut.
 
+Sat Mar 30 00:33:32 1996  David Kågedal  <davidk@lysator.liu.se>
+
+	* lyskom-rest.el (lyskom-start-of-command): Fungerade dåligt om
+	man hade satt kom-page-before-command.
+
+	* review.el (kom-review-comments): Bakade in
+	lyskom-review-comments.
+
 Fri Mar 29 03:26:34 1996  David Kågedal  <davidk@lysator.liu.se>
 
 	* review.el (lyskom-review-comments,kom-review-comments): Skrev om

src/TODO

@@ -30,13 +30,17 @@ Buggar
     (FIXAT)
 
     När du skapar ett hemligt möte bör Elispklienten inte erbjuda dig
-    att skriva en presentation i "Presentation (av nya) möten".
+    att skriva en presentation i "Presentation (av nya) möten". (FIXAT)
 
     text 1306568
 
     kom-review-tree på en text med fotnoter visar fotnoterna på en
     gång. Är det en bug?
 
+    Fotnoter som visas på en gång filtreras inte.
+
+    M-> i prioritera-bufferten. Text 1320736.
+
 Allmänna förbättringar
 
     Visa fotnoter på ett bättre sätt.
@@ -66,6 +70,10 @@ Allm
 
     text 1306827 (FIXAT)
     
+    text 1319383
+
+    text 1321912
+
     Varför står det "anonym person" på ett ställe, men "Person 0" på
     ett annat? Och vad menar Rickard?
 

src/commands1.el

@@ -521,45 +521,38 @@ of the person."
 ;;; Author: ???
 
 
-(defun kom-create-conf (conf-name)
+(def-kom-command kom-create-conf (&optional name)
   "Create a conference."
-  (interactive (list (lyskom-read-string (lyskom-get-string 'name-of-conf))))
-  (let* ((open (j-or-n-p (lyskom-get-string 'anyone-member)))
+  (interactive)
+  (let* ((conf-name (or name (lyskom-read-string (lyskom-get-string 'name-of-conf))))
+	 (open (j-or-n-p (lyskom-get-string 'anyone-member)))
 	 (secret (if (not open)
 		     (j-or-n-p (lyskom-get-string 'secret-conf))))
-	 (orig (j-or-n-p (lyskom-get-string 'comments-allowed))))
-    (lyskom-start-of-command 'kom-create-conf)
-    (unwind-protect
-	(lyskom-create-conf-handler
-	 (blocking-do 'create-conf 
-		      conf-name
-		      (lyskom-create-conf-type (not open) 
-					       (not orig)
-					       secret
-					       nil))
-	 conf-name)
-      (lyskom-end-of-command))))
-
-
-(defun lyskom-create-conf-handler (conf-no conf-name)
-  "Deal with the answer from an attempt to create a conference.
-Add the person creating and execute lyskom-end-of-command."
-  (if (null conf-no)
-      (lyskom-format-insert 'could-not-create-conf
-			    conf-name
-			    lyskom-errno)
-    (progn
-      (let ((conf-stat (blocking-do 'get-conf-stat conf-no)))
-	(lyskom-format-insert 'created-conf-no-name 
-			      (or conf-stat conf-no)
-			      (or conf-stat conf-name)
-			      (if conf-stat
-				  (lyskom-default-button 'conf conf-stat)
-				nil)))
-      (lyskom-scroll)
-      (lyskom-add-member-by-no conf-no lyskom-pers-no
-			       'lyskom-create-conf-handler-2
-			       conf-no conf-name))))
+	 (orig (j-or-n-p (lyskom-get-string 'comments-allowed)))
+	 (conf-no (blocking-do 'create-conf 
+			       conf-name
+			       (lyskom-create-conf-type (not open) 
+							(not orig)
+							secret
+							nil))))
+    (if (null conf-no)
+	(lyskom-format-insert 'could-not-create-conf
+			      conf-name
+			      lyskom-errno)
+      (progn
+	(let ((conf-stat (blocking-do 'get-conf-stat conf-no)))
+	  (lyskom-format-insert 'created-conf-no-name 
+				(or conf-stat conf-no)
+				(or conf-stat conf-name)
+				(if conf-stat
+				    (lyskom-default-button 'conf conf-stat)
+				  nil)))
+	(lyskom-scroll)
+	(lyskom-add-member-by-no conf-no lyskom-pers-no
+				 (if secret
+				     nil ; Don't write a presentation
+				   'lyskom-create-conf-handler-2)
+				 conf-no conf-name)))))
 
 
 (defun lyskom-create-conf-handler-2 (conf-no conf-name)
@@ -567,8 +560,7 @@ Add the person creating and execute lyskom-end-of-command."
 This does lyskom-end-of-command"
   (lyskom-tell-internat 'kom-tell-conf-pres)
   (let ((conf (blocking-do 'get-conf-stat conf-no)))
-    (if (and conf
-             (not (conf-type->secret (conf-stat->conf-type conf))))
+    (if conf
         (lyskom-dispatch-edit-text lyskom-proc
                                    (lyskom-create-misc-list
                                     'recpt

src/edit-text.el

@@ -577,8 +577,8 @@ Entry to this mode runs lyskom-edit-mode-hook."
 
 (defun lyskom-looking-at-header (header match-number)
   "Check if point is at the beginning of a header of type HEADER.
-Return the corresponding number (conf no etc.). If ANGLED is non-nil,
-only match a number inside <>."
+Return the corresponding number (conf no etc.) if MATCH-NUMBER is
+non-nil. If MATCH-NUMBER is 'angled, only match a number inside <>."
   (if (looking-at
        (concat (lyskom-get-string header)
 	       (cond ((eq match-number 'angled)

src/review.el

@@ -626,13 +626,8 @@ If the current text has comments in (footnotes in) some texts then the first
 text is shown and a REVIEW list is built to shown the other ones."
   (interactive)
   (lyskom-tell-internat 'kom-tell-review)
-  (lyskom-review-comments
-   (blocking-do 'get-text-stat lyskom-current-text)))
-
-
-(defun lyskom-review-comments (text-stat)
-  "Handles the return from the initiate-get-text-stat, displays and builds list."
-  (let* ((misc-info-list (and text-stat
+  (let* ((text-stat (blocking-do 'get-text-stat lyskom-current-text))
+	 (misc-info-list (and text-stat
 			      (text-stat->misc-info-list text-stat)))
 	 (misc-infos (and misc-info-list
 			  (append (lyskom-misc-infos-from-list 

src/view-text.el

@@ -229,7 +229,8 @@ lyskom-reading-list."
 	     (> (misc-info->footn-in misc) (text-stat->text-no text-stat))
 	     kom-show-footnotes-immediately)
 	;; Show the footnote
-	(lyskom-view-text (misc-info->footn-in misc) mark-as-read)
+	(lyskom-view-text (misc-info->footn-in misc)
+			  mark-as-read t conf-stat priority review-tree)
 	(lyskom-is-read (misc-info->footn-in misc)))
        ((eq (misc-info->type misc) 'FOOTN-IN)
 	(setq list (cons (misc-info->footn-in misc) list)))