Commit d23b6917 authored by Pontus Freyhult's avatar Pontus Freyhult
Browse files

Clean up (and actually enable usage) of lyskom-default-user-name and

lyskom-default-password. Enable automatic storing of the password in
the session buffer at login.
parent b1d8fc6b
2004-10-19 Pontus Freyhult <>
Clean up lyskom-default-password, enable password storing:
* english-strings.el, swedish-strings.el:
(lyskom-custom-strings): Added kom-remember-password-tag
and kom-remember-password-doc.
* option-edit.el (lyskom-customize-buffer-format): Added
(lyskom-custom-variables): Dito.
* (kom-remember-password): New variable.
* startup.el (lyskom): Use lyskom-default-user-name and
lyskom-default-password if set (with higher priority than
environment variables).
(kom-start-anew): Store the password used to login in
lyskom-default-password if kom-remember-password is true.
Handle texts with content-type image/something:
* english-strings.el, swedish-strings.el:
(lyskom-message): Added reformat-image and image-no-show.
......@@ -3663,6 +3663,13 @@ up menus.")
If this is on, the list of active users will include the connection time
and the inactivity period for each user.")
(kom-remember-password-doc . "\
When this setting is active the password used to login to LysKOM will
be saved in a local variable in the session buffer. This makes it
possible to relogin automatically if the session is lost. Note that the
password is saved in clear text so it can be read by anyone who gains
access to your LysKOM session buffer (even disconnected).")
(kom-idle-hide-doc . "\
The listing of active users normally only shows those users who have been
active recently. This setting determines how many minutes a user may be
......@@ -4309,6 +4316,7 @@ up menus.")
"Presence messages in the LysKOM buffer:")
(kom-page-before-command-tag . "Clear the screen:")
(kom-remember-password-tag . "Remember LysKOM session password:")
(kom-idle-hide-tag .
"Number of minutes of inactivity before session is hidden: ")
(kom-show-where-and-what-tag .
......@@ -74,6 +74,7 @@
......@@ -649,6 +650,7 @@ All key bindings:
:menu-tag some-persons))))
(kom-show-where-and-what (toggle (yes no)))
(kom-show-since-and-when (toggle (yes no)))
(kom-remember-password (toggle (yes no)))
(kom-idle-hide (number))
(kom-show-footnotes-immediately (toggle (yes no)))
(kom-follow-comments-outside-membership (toggle (yes no)))
......@@ -92,9 +92,11 @@ clients of the event. See lyskom-mode for details on lyskom."
(run-hooks 'lyskom-init-hook)
(setq username
(or username (getenv "KOMNAME")))
(or username lyskom-default-user-name
(getenv "KOMNAME")))
(setq password
(or password (getenv "KOMPASSWORD")))
(or password lyskom-default-password
(getenv "KOMPASSWORD")))
(if (zerop (length host))
(let* ((env-kom (getenv "KOMSERVER"))
(canon (or (lyskom-string-rassoc env-kom kom-server-aliases)
......@@ -575,19 +577,16 @@ shown to other users."
(lyskom-insert (concat (conf-stat->name conf-stat) "\n"))
(setq lyskom-first-time-around nil)
(if (blocking-do 'login new-me
(if lyskom-default-password
(setq lyskom-default-password nil)
(set-default 'lyskom-default-password
;; Use password read when creating
;; the person when loggin in new
;; users
(or lyskom-is-new-user
(lyskom-get-string 'password))))
(if invisiblep 1 0))
(setq lyskom-default-password
(if lyskom-default-password
;; Use password read when creating
;; the person when loggin in new
;; users
(or lyskom-is-new-user
(lyskom-get-string 'password)))))
(if invisiblep 1 0))
(if lyskom-is-new-user
(blocking-do 'add-member
......@@ -599,6 +598,7 @@ shown to other users."
nil nil nil nil nil nil nil nil)))
(setq login-successful t))
(lyskom-insert-string 'wrong-password)
(setq lyskom-default-password nil)
(when (lyskom-get-aux-item
(server-info->aux-item-list lyskom-server-info)
13) ; e-mail
......@@ -623,6 +623,10 @@ shown to other users."
(unless lyskom-dont-read-user-area
(setq ignored-user-area-vars (lyskom-read-options)))
(if (not kom-remember-password)
(setq lyskom-default-password nil))
(when (or session-priority kom-default-session-priority)
(setq lyskom-session-priority
(or session-priority kom-default-session-priority)))
......@@ -3763,6 +3763,14 @@ ta fram menyer.")
Information i vilkalistan om nr en person loggade in och hur lnge sedan
personen var aktiv.")
(kom-remember-password-doc . "\
Om denna instllning r pslagen sparas lsenordet till LysKOM-servern
som en lokal variabel i sessionsbufferten och kan p s vis anvndas
vid terinloggning ifall sessionen kopplas ner. OBS: Lsenordet sparas
i klartext, detta gr att om ngon fr tillgng till din LysKOM-
sessionsbuffer (ven nedkopplad sdan) kan han/hon f reda p ditt
lsenord ifall du aktiverar detta val.")
(kom-idle-hide-doc . "\
I vilkalistan visas normalt enbart de sessioner som har varit aktiva
under den senaste tiden. Denna instllning bestmmer hur mnga minuter
......@@ -4420,6 +4428,8 @@ ta fram menyer.")
"Nrvaromeddelanden i LysKOM-bufferten:")
(kom-page-before-command-tag . "Rensa skrmen:")
(kom-remember-password-tag . "Kom ihg LysKOM-sessionslsenordet:")
(kom-idle-hide-tag .
"Antal minuter en session fr vara inaktiv och nd visas: ")
(kom-show-where-and-what-tag .
......@@ -1720,6 +1720,15 @@ command is accepted from the keyboard. Unlike `lyskom-login-hook' it
can be stored in the server."
(def-kom-var kom-remember-password nil
"**Controls whatever to store the password in the session buffer.
When this is set to `t', the client will store the password for the
current session as a buffert local variable. This can be used in
conjunction with kom-relogin-behaviour to reattach dead sessions
(def-kom-var kom-confirm-add-recipients t
"**Controls confirmation when adding recipients.
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