* english-strings.el, swedish-strings.el:

(lyskom-custom-strings): Added kom-relogin-inhibit-commands-tag
and kom-relogin-inhibit-commands-doc.

* option-edit.el (lyskom-customize-buffer-format): Added
kom-relogin-inhibit-commands.
(lyskom-custom-variables): Dito.

* vars.el.in (kom-relogin-inhibit-commands): New variable.

* command.el (lyskom-start-of-command): Treat commands in
kom-relogin-inhibit-commands as having dead-ok.

src/ChangeLog

+2005-01-11  Pontus Freyhult  <pont@soua.net>
+
+	* english-strings.el, swedish-strings.el: 
+	(lyskom-custom-strings): Added kom-relogin-inhibit-commands-tag
+	and kom-relogin-inhibit-commands-doc.
+
+	* option-edit.el (lyskom-customize-buffer-format): Added
+	kom-relogin-inhibit-commands.
+	(lyskom-custom-variables): Dito.
+
+	* vars.el.in (kom-relogin-inhibit-commands): New variable.
+
+	* command.el (lyskom-start-of-command): Treat commands in
+	kom-relogin-inhibit-commands as having dead-ok.
+
 2005-01-09  David Byers  <byers@lysator.liu.se>
 
 	* commands1.el (kom-move-text-tree): Handle missing text in the

src/command.el

@@ -587,7 +587,8 @@ chosen according to this"
              (and (null lyskom-proc) (null lyskom-buffer)))
          (lyskom-error "%s" (lyskom-get-string 'not-lyskom-buffer)))
 
-        ((and (not dead-ok)
+        ((and (not (or dead-ok
+		       (memq function kom-relogin-inhibit-commands)))
               (or (not lyskom-proc)
                   (memq (process-status lyskom-proc) '(closed signal exited nil))))
 	 (if (or (eq t kom-relogin-behaviour)

src/english-strings.el

@@ -3922,6 +3922,10 @@ up menus.")
   in a disconnected session. On means the client tries to reattach
   automatically, Off that it doesn't even ask.")
 
+    (kom-relogin-inhibit-commands-doc . "\
+  Commands for which reattachment is disabled. These commands will never
+  cause the client to reattach.")
+
     (kom-membership-default-placement-doc . "\
   This controls where new memberships are placed. First means before
   all existing memberships of the same priority. Last means after all
@@ -4456,6 +4460,7 @@ up menus.")
 
     (kom-show-week-number-tag . "Show week number:")
     (kom-relogin-behaviour-tag . "Reattach automatically:")
+    (kom-relogin-inhibit-commands-tag . "Commands for which reattachment is inhibited:")
     (kom-membership-default-placement-tag . "Placement of new memberships:")
     (kom-show-imported-importer-tag . "Show importer of imported messages:")
     (kom-show-imported-envelope-sender-tag . "Show sender of imported messages:")

src/option-edit.el

@@ -75,6 +75,7 @@
     "\n"
     [kom-idle-hide]
     [kom-relogin-behaviour]
+    [kom-relogin-inhibit-commands]
     [kom-remember-password]
     [kom-show-where-and-what]
     [kom-show-since-and-when]
@@ -677,6 +678,9 @@ All key bindings:
 					   :tag given-session-name
 					   :help-echo select-buffer))))			 
 
+    (kom-relogin-inhibit-commands (repeat (command nil :tag command)
+					  :indent 4))
+
     (kom-login-hook (repeat (command nil :tag command)
                             :indent 4))
     (kom-do-when-done (repeat (choice ((command nil :tag command)

src/swedish-strings.el

@@ -4046,6 +4046,10 @@ ta fram menyer.")
   kommando ges i en nedkopplad session. P betyder att det sker 
   automatiskt, av att klienten inte frgar om man vill teransluta.")
 
+    (kom-relogin-inhibit-commands-doc . "\
+  Kommandon som inte skall orsaka ngon teranslutning. Dessa kommandon
+  kommer inte att orsaka att en nedkopplad klient teransluter.")
+
     (kom-membership-default-placement-doc . "\
   Denna instllning styr var nya medlemskap hamnar. Frst betyder att nya
   medlemskap hamnar fre gamla med samma prioritet. Sist betyder att nya 
@@ -4579,6 +4583,7 @@ ta fram menyer.")
     (kom-show-week-number-tag . "Visa veckonummer:")
 
     (kom-relogin-behaviour-tag . "teranslut automatiskt:")
+    (kom-relogin-inhibit-commands-tag . "Kommandon fr vilka teranslutning aldrig sker automatiskt:")
     (kom-membership-default-placement-tag . "Placering av nya medlemskap:")
     (kom-show-imported-importer-tag . "Visa importr av importerade inlgg:")
     (kom-show-imported-envelope-sender-tag . "Visa avsndare av importerade inlgg:")

src/vars.el.in

@@ -1829,6 +1829,16 @@ command is accepted from the keyboard. Unlike `lyskom-login-hook' it
 can be stored in the server."
   server)
 
+(def-kom-var kom-relogin-inhibit-commands '(kom-next-kom 
+					    kom-previous-kom 
+					    kom-where-is 
+					    kom-next-unread-kom)
+  "**Commands for which relogin is disabled.
+
+This should be set to a list of commands for which relogin should not
+be offered or used."
+  server)
+
 (def-kom-var kom-relogin-behaviour 'ask
   "**Controls how to behave when commands are issued in dead sessions.