Commit cef311bf authored by Pontus Freyhult's avatar Pontus Freyhult

* 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.
parent 80cfb08b
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
......
......@@ -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)
......
......@@ -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:")
......
......@@ -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)
......
......@@ -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:")
......
......@@ -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.
......
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