Anropa lyskom-read-conf-stat med bättre argument

src/ChangeLog

+Sun Aug 11 12:32:14 1996  David Byers  <davby@sen2.ida.liu.se>
+
+	* commands2.el (kom-set-garb-nice): Stt MUSTMATCH till t i anrop
+ 	till lyskom-read-conf-stat.
+	(kom-set-permitted-submitters): Dito.
+	(kom-set-super-conf): Dito.
+
+	* commands1.el (kom-review-presentation): Stt MUSTMATCH till t i
+ 	anrop till lyskom-read-conf-stat.
+	(kom-add-member): Dito.
+	(kom-sub-member): Dito.
+	(kom-sub-self): Dito.
+	(kom-unset-conf-motd): Dito.
+	(kom-change-name): Dito.
+	(kom-change-supervisor): Dito.
+	(lyskom-add-sub-recipient): Dito.
+
 Sat Aug 10 12:24:22 1996  David Byers  <davby@sen2.ida.liu.se>
 
 	* commands1.el (lyskom-status-session-9): Snyggare utskrivt av

src/commands1.el

@@ -128,7 +128,8 @@
                    (blocking-do 'get-conf-stat who)
                  (lyskom-read-conf-stat 
                           (lyskom-get-string 'presentation-for-whom)
-                          '(all)))))
+                          '(all)
+                          nil "" t))))
           (if (null conf-stat)
               (lyskom-insert-string 'somebody-deleted-that-conf)
             (lyskom-format-insert 'review-presentation-of
@@ -274,9 +275,9 @@ as TYPE. If no such misc-info, return NIL"
 Ask for the name of the person, the conference to add him/her to."
   (interactive)
   (let* ((who (lyskom-read-conf-stat (lyskom-get-string 'who-to-add)
-				     '(pers)))
+				     '(pers) nil nil t))
 	 (whereto (lyskom-read-conf-stat (lyskom-get-string 'where-to-add)
-					 '(all)))
+					 '(all) nil nil t))
 	 (pers-stat (blocking-do 'get-pers-stat (conf-stat->conf-no who))))
     (lyskom-add-member-answer (lyskom-try-add-member whereto who pers-stat)
 			      whereto who)))
@@ -456,9 +457,9 @@ of the person."
   (interactive)
   (lyskom-sub-member
    (lyskom-read-conf-stat (lyskom-get-string 'who-to-exclude)
-                          '(pers) nil "")
+                          '(pers) nil "" t)
    (lyskom-read-conf-stat (lyskom-get-string 'where-from-exclude) 
-			  '(all) nil "")))
+			  '(all) nil "" t)))
 
 
 (def-kom-command kom-sub-self (&optional conf)
@@ -477,7 +478,7 @@ of the person."
                                                    lyskom-current-conf)))))
                               (if ccn
                                   (cons ccn 0)
-                                ""))))))
+                                "")) t))))
 
 (defun lyskom-sub-member (pers conf)
   "Remove the person indicated by PERS as a member of CONF."
@@ -992,7 +993,7 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
   (interactive)
   (let ((conf-stat (or (lyskom-read-conf-stat
 			(lyskom-get-string 'who-to-remove-motd-for)
-			'(all) t)
+			'(all) t nil t)
 		       (blocking-do 'get-conf-stat lyskom-pers-no))))
     (cond
      ((null conf-stat)
@@ -1226,7 +1227,7 @@ If you are not member in the conference it will be flagged with an asterisk."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat 
 		    (lyskom-get-string 'name-to-be-changed)
-		    '(all))))
+		    '(all) nil nil t)))
     (if (null conf-stat)
 	(lyskom-insert-string 'no-such-conf-or-pers)
       (let (name)
@@ -1256,13 +1257,13 @@ If you are not member in the conference it will be flagged with an asterisk."
   (interactive)
   (let ((supervisee (lyskom-read-conf-stat
 		     (lyskom-get-string 'who-to-change-supervisor-for)
-		     '(all))))
+		     '(all) nil nil t)))
     (if (null supervisee)
 	(lyskom-insert-string 'no-such-conf-or-pers)
       (lyskom-tell-internat 'kom-tell-change-supervisor)
       (let ((supervisor (lyskom-read-conf-stat
 			 (lyskom-get-string 'new-supervisor)
-			 '(all))))
+			 '(all) nil nil t)))
 	(lyskom-format-insert 'change-supervisor-from-to
 			      supervisee
 			      supervisor)
@@ -2097,7 +2098,8 @@ command argument."
 				 (lyskom-get-string 'who-to-move-from-q)
 				 '(all)
 				 nil
-				 (if conf2 (conf-stat->name conf2) ""))))
+				 (if conf2 (conf-stat->name conf2) "")
+                                 t)))
 
 	 (conf-to-add-to (lyskom-read-conf-stat
 			  (lyskom-get-string
@@ -2108,7 +2110,8 @@ command argument."
 				 (t (lyskom-error "internal error"))))
 			  '(all)
 			  nil
-			  (if conf (conf-stat->name conf) "")))
+			  (if conf (conf-stat->name conf) "")
+                          t))
 	 (result nil))
     (setq result
 	  (cond ((eq action 'add-rcpt)

src/commands2.el

@@ -997,7 +997,7 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat
 		    (lyskom-get-string 'conf-to-set-garb-nice-q)
-		    '(all))))
+		    '(all) nil nil t)))
     (if (not conf-stat)
 	(lyskom-insert-string 'somebody-deleted-that-conf)
       (let ((garb-nice (lyskom-read-number
@@ -1023,7 +1023,7 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat 
 		    (lyskom-get-string 'conf-to-set-permitted-submitters-q)
-		    '(all))))
+		    '(all) nil nil t)))
 
     (if (not conf-stat)
 	(lyskom-insert-string 'somebody-deleted-that-conf)
@@ -1031,7 +1031,7 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
 		       (lyskom-format 'new-permitted-submitters-q
 				      (conf-stat->name conf-stat))
 		       '(all) 
-		       t)))
+		       t nil t)))
 	(if (eq new-conf nil)
 	    (lyskom-format-insert 'permitted-submitters-removed-for-conf 
 				  conf-stat)
@@ -1059,13 +1059,13 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat 
 		    (lyskom-get-string 'conf-to-set-super-conf-q)
-		    '(all))))
+		    '(all) nil nil t)))
     (if (not conf-stat)
 	(lyskom-insert-string 'somebody-deleted-that-conf)
       (let ((new-conf (lyskom-read-conf-stat
 		       (lyskom-format 'new-super-conf-q
 				      (conf-stat->name conf-stat))
-		       '(all))))
+		       '(all) nil nil t)))
       
 	;; Set the super conference for conf-stat to new-conf.
 	(lyskom-format-insert 'super-conf-for-is