Commit 2e29d8f5 authored by David Kågedal's avatar David Kågedal
Browse files

(lyskom-change-pres-or-motd-2): Gör presentationen en kommentar till

den förra presentationen.
parent 7d72334f
......@@ -936,17 +936,22 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
(= lyskom-pers-no (conf-stat->conf-no conf-stat)))
(lyskom-dispatch-edit-text
lyskom-proc
(lyskom-create-misc-list 'recpt
(cond
((eq type 'motd)
(server-info->motd-conf lyskom-server-info))
((eq type 'pres)
(if (conf-type->letterbox
(conf-stat->conf-type conf-stat))
(server-info->pers-pres-conf
lyskom-server-info)
(server-info->conf-pres-conf
lyskom-server-info)))))
(apply 'lyskom-create-misc-list
(append (list 'recpt
(cond
((eq type 'motd)
(server-info->motd-conf lyskom-server-info))
((eq type 'pres)
(if (conf-type->letterbox
(conf-stat->conf-type conf-stat))
(server-info->pers-pres-conf
lyskom-server-info)
(server-info->conf-pres-conf
lyskom-server-info)))))
(if (and (eq type 'pres)
(not (zerop (conf-stat->presentation conf-stat))))
(list 'comm-to
(conf-stat->presentation conf-stat)))))
(conf-stat->name conf-stat)
(let ((text-mass (blocking-do 'get-text
(cond
......
Markdown is supported
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