Mercurial > emacs
comparison lisp/gnus.el @ 13699:e8358f30c41c
(gnus-group-set-mode-line): Allow user defined specs in the group
format mode line.
author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
---|---|
date | Fri, 08 Dec 1995 05:11:19 +0000 |
parents | 73433c3071a5 |
children | 7cbb1453aefd |
comparison
equal
deleted
inserted
replaced
13698:a5b05f960c30 | 13699:e8358f30c41c |
---|---|
3785 gnus-group-mode-line-format | 3785 gnus-group-mode-line-format |
3786 gnus-group-mode-line-format-alist)))) | 3786 gnus-group-mode-line-format-alist)))) |
3787 (news-server (car (cdr gnus-select-method))) | 3787 (news-server (car (cdr gnus-select-method))) |
3788 (news-method (car gnus-select-method)) | 3788 (news-method (car gnus-select-method)) |
3789 (max-len 60) | 3789 (max-len 60) |
3790 header ;Dummy binding for user-defined specs. | |
3790 (mode-string (eval gformat))) | 3791 (mode-string (eval gformat))) |
3791 (setq mode-string (eval gformat)) | 3792 (setq mode-string (eval gformat)) |
3792 (if (> (length mode-string) max-len) | 3793 (if (> (length mode-string) max-len) |
3793 (setq mode-string (substring mode-string 0 (- max-len 4)))) | 3794 (setq mode-string (substring mode-string 0 (- max-len 4)))) |
3794 (setq mode-line-buffer-identification mode-string) | 3795 (setq mode-line-buffer-identification mode-string) |