Commit dea41be0 authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

* 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).
parent df7b2498
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.
......
......@@ -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)
......
Markdown is supported
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