Fix bug 1536:

* command.el (lyskom-start-of-command): Pass port if non-standard.
Also explicitly send current password (if available).

src/ChangeLog

+2005-02-24  Pontus Freyhult  <pont@soua.net>
+
+	Fix bug 1536:
+	* command.el (lyskom-start-of-command): Pass port if non-standard.
+	Also explicitly send current password (if available).
+
 2005-02-15  David Byers  <byers@lysator.liu.se>
 
 	Fix bug 1512:

src/command.el

@@ -594,7 +594,13 @@ chosen according to this"
 	 (if (or (eq t kom-relogin-behaviour)
 		 (and (eq 'ask kom-relogin-behaviour) 
 		      (lyskom-j-or-n-p (lyskom-get-string 'resurrect-session))))
-	     (lyskom lyskom-server-name lyskom-pers-no)
+	     (lyskom (if (= 4894 lyskom-server-port) ; Should we do this different?
+		       lyskom-server-name
+		       (concat lyskom-server-name 
+			       ":" 
+			       (int-to-string lyskom-server-port)))
+		     lyskom-pers-no
+		     lyskom-default-password)
       (lyskom-error "%s" (lyskom-get-string 'dead-session)))))
 
   (if (and lyskom-is-waiting