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

src/ChangeLog

+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.

src/command.el

@@ -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

src/commands1.el

@@ -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))

src/distribution-README

@@ -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

src/lyskom-rest.el

@@ -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))