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.

src/ChangeLog

 2004-10-19  Pontus Freyhult  <pont@soua.net>
 
+	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 
+	kom-remember-password.
+	(lyskom-custom-variables): Dito.
+
+	* vars.el.in (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.

src/english-strings.el

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

src/option-edit.el

@@ -74,6 +74,7 @@
     [kom-auto-confirm-new-conferences]
     "\n"
     [kom-idle-hide]
+    [kom-remember-password]
     [kom-show-where-and-what]
     [kom-show-since-and-when]
     "\n"
@@ -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)))

src/startup.el

@@ -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
-                                         (prog1
-                                             lyskom-default-password
-                                           (setq lyskom-default-password nil)
-                                           (set-default 'lyskom-default-password
-                                                        nil))
-                                       ;; Use password read when creating
-                                       ;; the person when loggin in new
-                                       ;; users
-                                       (or lyskom-is-new-user
-                                           (silent-read
-                                            (lyskom-get-string 'password))))
-                                     (if invisiblep 1 0))
+                                     (setq lyskom-default-password
+					   (if lyskom-default-password
+					       lyskom-default-password
+					     ;; Use password read when creating
+					     ;; the person when loggin in new
+					     ;; users
+					     (or lyskom-is-new-user
+						 (silent-read
+						  (lyskom-get-string 'password)))))
+					   (if invisiblep 1 0))
                         (progn
                           (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)))

src/swedish-strings.el

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

src/vars.el.in

@@ -1720,6 +1720,15 @@ command is accepted from the keyboard. Unlike `lyskom-login-hook' it
 can be stored in the server."
   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
+automatically."
+  server)
+
 (def-kom-var kom-confirm-add-recipients t
   "**Controls confirmation when adding recipients.