Ask conference creators for a suitable expiration time.

src/ChangeLog

+2003-03-03  Johan Sundström  <jhs@lysator.liu.se>
+
+	* english-strings.el, swedish-strings.el: Improved garb-nice strings.
+
+	* commands1.el (kom-create-conf): In the interest of not losing	texts
+	unintentionally due to a low default expiration time, always ask the
+	conference creator for its expiration policy.
+
 2003-03-03  Per Cederqvist  <ceder@ceder.dyndns.org>
 
 	Print the conference type when entering a conference.
@@ -920,6 +928,7 @@
 	* lyskom-rest.el (lyskom-a-or-b-or-c-p): New function. Generalized
 	y-or-n-p sort of.
 
+>>>>>>> 44.678
 2002-09-12  David Byers  <david.byers@swipnet.se>
 
 	* english-strings.el,swedish-strings.el: Fixed speling error for

src/commands1.el

@@ -878,9 +878,10 @@ probably a general Q&A conference where you can ask."
          (anarchy (j-or-n-p (lyskom-get-string 'anonymous-allowed)))
          (secmem (and (lyskom-have-feature long-conf-types)
                       (not (lyskom-j-or-n-p (lyskom-get-string 'secret-members-allowed)))))
-	 (conf-no (blocking-do 'create-conf 
+	 (life-expectancy (lyskom-read-number 'new-garb-nice-q))
+	 (conf-no (blocking-do 'create-conf
 			       conf-name
-			       (lyskom-create-conf-type (not open) 
+			       (lyskom-create-conf-type (not open)
 							(not orig)
 							secret
 							nil
@@ -907,7 +908,8 @@ probably a general Q&A conference where you can ask."
 				 (if secret
 				     nil ; Don't write a presentation
 				   'lyskom-create-conf-handler-2)
-				 conf-no conf-name)))))
+				 conf-no conf-name)
+	(blocking-do 'set-garb-nice conf-no life-expectancy)))))
 
 
 (defun lyskom-create-conf-handler-2 (conf-no conf-name)

src/english-strings.el

@@ -783,7 +783,7 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
    
     (conf-to-set-garb-nice-q . "Set expiration time for which conference? ")
     (new-garb-nice-q . "After how many days shall texts be removed? ")
-    (garb-nice-for-is . "Changing expiration for %#1M to %#2d...")
+    (garb-nice-for-is . "Changing expiration for %#1M to %#2d days...")
 
     (really-shutdown . "Are you sure you want to shut down the server? ")
     (closing-server . "Shutting down the server...")

src/swedish-strings.el

@@ -814,8 +814,8 @@ M
     (submitters-conf-for-is . "ndra tilltna frfattare fr mte %#1M till\nmedlemmarna i %#2M...")
 
     (conf-to-set-garb-nice-q . "Vilket mte vill du stta livslngd fr? ")
-    (new-garb-nice-q . "Vilket vrde vill du stta livslngden till? ")
-    (garb-nice-for-is . "ndra livslngden fr %#1M till %#2d...")
+    (new-garb-nice-q . "Efter hur mnga dagar ska inlgg utplnas? ")
+    (garb-nice-for-is . "ndrar livslngden fr %#1M till %#2d dagar...")
 
     (really-shutdown . "r du sker p att du vill stnga av servern? ")
     (closing-server . "Stnga av servern...")