* lyskom-rest.el: When running GNU Emacs let Emacs look up the

	string for mode-line-unread and frame-title-unread when setting
	the mode-line or frame-title (fixes bug 447 for GNU Emacs).

src/ChangeLog

 2002-04-08  Ulrik Haugen  <qha@lysator.liu.se>
 
+	* lyskom-rest.el: When running GNU Emacs let Emacs look up the
+	string for mode-line-unread and frame-title-unread when setting
+	the mode-line or frame-title (fixes bug 447 for GNU Emacs).
+
 	* english-strings.el (lyskom-message):
 	add-recpt-button-text-regex: updated the regex to reflect the
 	change to add-recpt-button-text some time ago.

src/lyskom-rest.el

@@ -3633,6 +3633,7 @@ One parameter - the prompt string."
                                           'lyskom-unread-title-format)))
 
   (lyskom-xemacs-or-gnu
+   ;;; XXX this doesn't allow "Unread" to be changed when the language changes
    (setq lyskom-unread-mode-line
          (list (list 'lyskom-sessions-with-unread 
                      (lyskom-get-string 'mode-line-unread))
@@ -3641,22 +3642,38 @@ One parameter - the prompt string."
                " "))
    (setq lyskom-unread-mode-line
          (list (list 'lyskom-sessions-with-unread 
-                     (let ((tmp (lyskom-get-string 'mode-line-unread)))
-                       (add-text-properties 0 (length tmp) (list 'local-map lyskom-modeline-keymap) tmp)
-                       tmp))
+                     (list ':eval
+                           '(let ((tmp (lyskom-get-string 'mode-line-unread)))
+                              (add-text-properties 0 (length tmp)
+                                                   (list 'local-map lyskom-modeline-keymap)
+                                                   tmp)
+                              tmp)))
                (list 'lyskom-sessions-with-unread-letters
-                     (let ((tmp (lyskom-get-string 'mode-line-letters)))
-                       (add-text-properties 0 (length tmp) (list 'local-map lyskom-modeline-keymap) tmp)
-                       tmp))
+                     (list ':eval
+                           '(let ((tmp (lyskom-get-string 'mode-line-letters)))
+                              (add-text-properties 0 (length tmp)
+                                                   (list 'local-map lyskom-modeline-keymap)
+                                                   tmp)
+                              tmp)))
                " ")))
 
-  (setq lyskom-unread-title-format
-        `(kom-show-unread-in-frame-title
-          (lyskom-session-has-unreads 
-           (" ("
-            ((lyskom-session-has-unreads ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1 t))
-             (lyskom-session-has-unread-letters ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1 t)))
-            ")"))))
+
+  (lyskom-xemacs-or-gnu
+   ;;; XXX this doesn't allow "Unread" to be changed when the language changes
+   (setq lyskom-unread-title-format
+         `(kom-show-unread-in-frame-title
+           (lyskom-session-has-unreads 
+            (" ("
+             ((lyskom-session-has-unreads ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1 t))
+              (lyskom-session-has-unread-letters ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1 t)))
+             ")"))))
+   (setq lyskom-unread-title-format
+         '(kom-show-unread-in-frame-title
+           (lyskom-session-has-unreads 
+            (" ("
+             ((lyskom-session-has-unreads (:eval (lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1 t)))
+              (lyskom-session-has-unread-letters (:eval (lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1 t))))
+             ")")))))
 
   (add-hook 'kill-buffer-hook 'lyskom-remove-buffer-from-lists)