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

en lyskommissbrukande skurka

som sög åt sig sitt kom som en gurka
rättade en dag sig in
en lätt tystad login
för att hjälpa medsyndare lurka
parent 32562800
2001-11-21 Johan Sundstrm <>
* startup.el (lyskom): A `C-u' prefix argument makes the session
* startup.el (kom-start-anew): New argument `invisiblep'.
2001-11-19 David Byers <>
Make it possible to remove recipients by removing their name and
......@@ -52,11 +52,13 @@
so in this phase we wait for an empty line.")
(defun lyskom (&optional host username password session-priority)
(defun lyskom (&optional host username password session-priority invisiblep)
"Start a LysKOM session.
Optional arguments: HOST, USERNAME and PASSWORD.
See lyskom-mode for details."
A numeric prefix argument sets the session priority. A prefix argument
of `C-u', on the other hand, logs in the session without notifying other
clients of the event. See lyskom-mode for details on lyskom."
(interactive (list (lyskom-read-server-name
(lyskom-format 'server-q
(or (getenv "KOMSERVER")
......@@ -65,7 +67,8 @@ See lyskom-mode for details."
(if current-prefix-arg
(prefix-numeric-value current-prefix-arg)
(and current-prefix-arg (listp current-prefix-arg))))
(run-hooks 'lyskom-init-hook)
(setq username
......@@ -278,7 +281,7 @@ See lyskom-mode for details."
;; Can't use lyskom-end-of-command here.
(setq lyskom-executing-command nil)
;; Log in
(kom-start-anew t session-priority)
(kom-start-anew t session-priority invisiblep)
(if (memq lyskom-buffer lyskom-buffer-list)
(while (not (eq lyskom-buffer (car lyskom-buffer-list)))
(setq lyskom-buffer-list
......@@ -405,8 +408,9 @@ See lyskom-mode for details."
;;; Start anew
(defun kom-start-anew (&optional lyskom-first-time-around session-priority)
"Start as a new person."
(defun kom-start-anew (&optional lyskom-first-time-around session-priority invisiblep)
"Start/login as a new person. If INVISIBLEP is not nil, the login will not be
shown to other users."
(lyskom-start-of-command 'kom-start-anew)
......@@ -473,7 +477,7 @@ See lyskom-mode for details."
(or lyskom-is-new-user
(lyskom-get-string 'password))))
(if invisiblep 1 0))
(if lyskom-is-new-user
(blocking-do 'add-member
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