Fixed bug 717 and 728.

Fixed problem building single-language versions of the client

src/ChangeLog

+2002-09-08  David Byers  <david.byers@swipnet.se>
+
+	* Makefile (lyskom-%-$(CLIENTVERSION).el): Copy help strings into
+	single-language-version files.
+
+	Fix bug 717:
+	* commands2.el (lyskom-switch-to-kom-buffer): Applied patch from
+	Christer Ekholm. 
+
+	Fix bug 728:
+	* commands1.el (kom-set-motd-text): Applied patch from Per
+	Starbck. 
+
 2002-09-08  David Byers  <davby@metzengerstein.dyndns.org>
 
 	* Released 0.47

src/Makefile

@@ -160,7 +160,7 @@ $(TARGET-EL) lyskom-all-$(CLIENTVERSION).el: \
 %-help.el: help-%.xml
 	$(EMACS) -batch -l help-compile.el $^ -f lyskom-help-compile-to-el
 
-lyskom-%-$(CLIENTVERSION).el: $(HEADER) %-strings.el $(SOURCES)
+lyskom-%-$(CLIENTVERSION).el: $(HEADER) %-strings.el %-help.el $(SOURCES)
 	cat $^ >$@
 
 verbose: verbose-el $(TARGET)

src/commands1.el

@@ -1366,13 +1366,14 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
       'pres)))
 
 (def-kom-command kom-set-motd-text (arg)
-  "Add a presentation for a person or conference."
+  "Add a motd for a person or conference."
   (interactive "P")
    (let ((conf-no (lyskom-read-conf-no
-                   (lyskom-get-string 'what-to-set-pres-you)
+                   (lyskom-get-string 'what-to-set-motd-you)
                    '(all) t nil t))
-         (text-no (lyskom-read-text-no-prefix-arg 'what-text-to-set-as-pres-no t
-                                                  lyskom-previous-text)))
+         (text-no (lyskom-read-text-no-prefix-arg
+                   'what-text-to-set-as-motd-no t
+                   lyskom-previous-text)))
      (when (zerop conf-no)
          (setq conf-no lyskom-pers-no))
      (lyskom-set-pres-or-motd-2

src/commands2.el

@@ -1883,7 +1883,9 @@ Return-value: 'no-session if there is no suitable session to switch to
 
 (defun lyskom-switch-to-kom-buffer (buffer &optional current)
   (when buffer
-    (when (and kom-bury-buffers (eq current (current-buffer)))
+    (when (and kom-bury-buffers
+               (or (null current)
+                   (eq current (current-buffer))))
       (kom-bury))
 
     ;; Switch to the new buffer