Commit be68a32a authored by David Byers's avatar David Byers

Undvik oändlig loop när sessionen dör, fixa informationsläcka för anonyma användare.

parent 336feb9e
2000-10-05 David Byers <davby@ida.liu.se>
* lyskom-rest.el (lyskom-sentinel): Use dead-ok argument to
lyskom-start-of-command.
* command.el (lyskom-start-of-command): Added dead-ok argument.
2000-09-22 David Byers <davby@sen2.ida.liu.se>
* commands1.el (lyskom-go-to-empty-conf): Check
lyskom-is-anonymous.
2000-10-01 Per Cederqvist <ceder@moria>
* commands1.el (lyskom-make-re-case-insensitive): New function.
......
......@@ -391,7 +391,7 @@ and back of the string."
t))))))
(defun lyskom-start-of-command (function &optional may-interrupt)
(defun lyskom-start-of-command (function &optional may-interrupt dead-ok)
"This function is run at the beginning of every LysKOM command.
It moves the cursor one line down, and +++ later it will tell the server
that the previous text has been read.
......@@ -403,6 +403,9 @@ command name in lyskom-commands and writes this in the message buffer.
If optional argument MAY-INTERRUPT is present and non-nil,
don't signal an error if this call is interrupting another command.
If optional DEAD-OK is non-nil, don't signal an error if the session
has been closed.
Special: if lyskom-is-waiting then we are allowed to break if we set
lyskom-is-waiting nil.
......@@ -415,8 +418,9 @@ chosen according to this"
(and (null lyskom-proc) (null lyskom-buffer)))
(lyskom-error "%s" (lyskom-get-string 'not-lyskom-buffer)))
((or (not lyskom-proc)
(memq (process-status lyskom-proc) '(closed signal exited nil)))
((and (not dead-ok)
(or (not lyskom-proc)
(memq (process-status lyskom-proc) '(closed signal exited nil))))
(lyskom-error "%s" (lyskom-get-string 'dead-session))))
(if (and lyskom-is-waiting
......
......@@ -1406,7 +1406,8 @@ Args: CONF-STAT MEMBERSHIP"
(defun lyskom-go-to-empty-conf (conf-stat)
"Go to a conference with no unseen messages. Args: CONF-STAT."
(blocking-do 'pepsi (conf-stat->conf-no conf-stat))
(unless lyskom-is-anonymous
(blocking-do 'pepsi (conf-stat->conf-no conf-stat)))
(lyskom-run-hook-with-args 'lyskom-change-conf-hook
lyskom-current-conf
(conf-stat->conf-no conf-stat))
......
......@@ -126,7 +126,7 @@
This procedure should work on any system, including Windows.
1. Compile the client with the command `emacs -batch -f
batch-byte-compile-file lyskom-@@CLIENTVERSION@@.el'
batch-byte-compile lyskom-@@CLIENTVERSION@@.el'
You may see some warnings when you compile. Most of these can
be ignored. When compilation is done you should have a new file
......
......@@ -3262,7 +3262,7 @@ If MEMBERSHIPs prioriy is 0, it always returns nil."
"Handles changes in the lyskom-process."
(lyskom-remove-unread-buffer proc)
(set-buffer (process-buffer proc))
(lyskom-start-of-command (lyskom-get-string 'process-signal) t)
(lyskom-start-of-command (lyskom-get-string 'process-signal) t t)
(lyskom-format-insert 'closed-connection sentinel
(lyskom-client-date-string 'time-format-exact))
(setq mode-line-process (lyskom-get-string 'mode-line-down))
......
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