diff options
Diffstat (limited to 'lisp/gnus.el')
-rw-r--r-- | lisp/gnus.el | 40 |
1 files changed, 15 insertions, 25 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index d12951e9d4f..92aeed5e56d 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2842,6 +2842,16 @@ that that variable is buffer-local to the summary buffers." "Return the quit-config of GROUP." (nth 1 (assoc 'quit-config (gnus-find-method-for-group group)))) +(defun gnus-simplify-mode-line () + "Make mode lines a bit simpler." + (setq mode-line-modified "-- ") + (if (listp mode-line-format) + (progn + (make-local-variable 'mode-line-format) + (setq mode-line-format (copy-sequence mode-line-format)) + (and (equal (nth 3 mode-line-format) " ") + (setcar (nthcdr 3 mode-line-format) ""))))) + ;;; List and range functions (defun gnus-last-element (list) @@ -3218,11 +3228,7 @@ The following commands are available: (interactive) (if gnus-visual (gnus-group-make-menu-bar)) (kill-all-local-variables) - (setq mode-line-modified "-- ") - (make-local-variable 'mode-line-format) - (setq mode-line-format (copy-sequence mode-line-format)) - (and (equal (nth 3 mode-line-format) " ") - (setcar (nthcdr 3 mode-line-format) "")) + (gnus-simplify-mode-line) (setq major-mode 'gnus-group-mode) (setq mode-name "Group") (gnus-group-set-mode-line) @@ -5158,11 +5164,7 @@ buffer. (interactive) (kill-all-local-variables) (if gnus-visual (gnus-browse-make-menu-bar)) - (setq mode-line-modified "-- ") - (make-local-variable 'mode-line-format) - (setq mode-line-format (copy-sequence mode-line-format)) - (and (equal (nth 3 mode-line-format) " ") - (setcar (nthcdr 3 mode-line-format) "")) + (gnus-simplify-mode-line) (setq major-mode 'gnus-browse-mode) (setq mode-name "Browse Server") (setq mode-line-process nil) @@ -5643,11 +5645,7 @@ The following commands are available: (set (car locals) nil)) (setq locals (cdr locals)))) (gnus-make-thread-indent-array) - (setq mode-line-modified "-- ") - (make-local-variable 'mode-line-format) - (setq mode-line-format (copy-sequence mode-line-format)) - (and (equal (nth 3 mode-line-format) " ") - (setcar (nthcdr 3 mode-line-format) "")) + (gnus-simplify-mode-line) (setq major-mode 'gnus-summary-mode) (setq mode-name "Summary") (make-local-variable 'minor-mode-alist) @@ -10769,11 +10767,7 @@ The following commands are available: (interactive) (if gnus-visual (gnus-article-make-menu-bar)) (kill-all-local-variables) - (setq mode-line-modified "-- ") - (make-local-variable 'mode-line-format) - (setq mode-line-format (copy-sequence mode-line-format)) - (and (equal (nth 3 mode-line-format) " ") - (setcar (nthcdr 3 mode-line-format) "")) + (gnus-simplify-mode-line) (setq mode-name "Article") (setq major-mode 'gnus-article-mode) (make-local-variable 'minor-mode-alist) @@ -13617,11 +13611,7 @@ The following commands are available: (interactive) (if gnus-visual (gnus-server-make-menu-bar)) (kill-all-local-variables) - (setq mode-line-modified "-- ") - (make-local-variable 'mode-line-format) - (setq mode-line-format (copy-sequence mode-line-format)) - (and (equal (nth 3 mode-line-format) " ") - (setcar (nthcdr 3 mode-line-format) "")) + (gnus-simplify-mode-line) (setq major-mode 'gnus-server-mode) (setq mode-name "Server") ; (gnus-group-set-mode-line) |