Commit a3bf25c4 authored by Johan Sundström's avatar Johan Sundström
Browse files

Ask conference creators for a suitable expiration time.

parent badd689a
2003-03-03 Johan Sundström <>
* 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 <>
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 <>
* english-strings.el,swedish-strings.el: Fixed speling error for
......@@ -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
(lyskom-create-conf-type (not open)
(lyskom-create-conf-type (not open)
(not orig)
......@@ -907,7 +908,8 @@ probably a general Q&A conference where you can ask."
(if secret
nil ; Don't write a presentation
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)
......@@ -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...")
......@@ -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...")
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment