Mercurial > emacs

comparison lisp/gnus.el @ 13732:b09b073f6b77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus.el (gnus-summary-mode-line-format, gnus-article-mode-line-format, gnus-group-mode-line-format): Include the buffer name in the default mode strings. (gnus-mode-non-string-length): Changed the default to not limit/pad mode line lengths. (gnus-set-mode-line): Supply new values for the mode string variables. (gnus-summary-remove-lines-marked-with): Put point on the current article after expunging lines.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Thu, 14 Dec 1995 12:05:03 +0000
parents 7cbb1453aefd
children 4d9ed72b9a02
comparison
equal deleted inserted replaced
13731:f9bffca29486 13732:b09b073f6b77
971 It works along the same lines as a normal formatting string, 971 It works along the same lines as a normal formatting string,
972 with some simple extensions. 972 with some simple extensions.
973 973
974 %S The subject") 974 %S The subject")
975 975
976 (defvar gnus-summary-mode-line-format "Gnus %G/%A %Z" 976 (defvar gnus-summary-mode-line-format "Gnus: %b [%A] %Z"
977 "*The format specification for the summary mode line.") 977 "*The format specification for the summary mode line.")
978 978
979 (defvar gnus-article-mode-line-format "Gnus %G/%A %S" 979 (defvar gnus-article-mode-line-format "Gnus: %b %S"
980 "*The format specification for the article mode line.") 980 "*The format specification for the article mode line.")
981 981
982 (defvar gnus-group-mode-line-format "Gnus List of groups {%M:%S} " 982 (defvar gnus-group-mode-line-format "Gnus: %b {%M:%S} "
983 "*The format specification for the group mode line.") 983 "*The format specification for the group mode line.")
984 984
985 (defvar gnus-valid-select-methods 985 (defvar gnus-valid-select-methods
986 '(("nntp" post address prompt-address) 986 '(("nntp" post address prompt-address)
987 ("nnspool" post) 987 ("nnspool" post)
1011 the corresponding symbol is present, Gnus will keep that mode line 1011 the corresponding symbol is present, Gnus will keep that mode line
1012 updated with information that may be pertinent. 1012 updated with information that may be pertinent.
1013 If this variable is nil, screen refresh may be quicker.") 1013 If this variable is nil, screen refresh may be quicker.")
1014 1014
1015 ;; Added by Keinonen Kari <kk85613@cs.tut.fi>. 1015 ;; Added by Keinonen Kari <kk85613@cs.tut.fi>.
1016 (defvar gnus-mode-non-string-length 21 1016 (defvar gnus-mode-non-string-length nil
1017 "*Max length of mode-line non-string contents. 1017 "*Max length of mode-line non-string contents.
1018 If this is nil, Gnus will take space as is needed, leaving the rest 1018 If this is nil, Gnus will take space as is needed, leaving the rest
1019 of the modeline intact.") 1019 of the modeline intact.")
1020 1020
1021 ;see gnus-cus.el 1021 ;see gnus-cus.el
1337 (list ?V 'gnus-version ?s) 1337 (list ?V 'gnus-version ?s)
1338 (list ?U 'unread ?d) 1338 (list ?U 'unread ?d)
1339 (list ?S 'subject ?s) 1339 (list ?S 'subject ?s)
1340 (list ?e 'unselected ?d) 1340 (list ?e 'unselected ?d)
1341 (list ?u 'user-defined ?s) 1341 (list ?u 'user-defined ?s)
1342 (list ?b 'buffer-name ?s)
1342 (list ?s '(gnus-current-score-file-nondirectory) ?s))) 1343 (list ?s '(gnus-current-score-file-nondirectory) ?s)))
1343 1344
1344 (defconst gnus-group-mode-line-format-alist 1345 (defconst gnus-group-mode-line-format-alist
1345 (list (list ?S 'news-server ?s) 1346 (list (list ?S 'news-server ?s)
1346 (list ?M 'news-method ?s) 1347 (list ?M 'news-method ?s)
1348 (list ?b '(buffer-name) ?s)
1347 (list ?u 'user-defined ?s))) 1349 (list ?u 'user-defined ?s)))
1348 1350
1349 (defvar gnus-have-read-active-file nil) 1351 (defvar gnus-have-read-active-file nil)
1350 1352
1351 (defconst gnus-maintainer 1353 (defconst gnus-maintainer
6975 (save-excursion 6977 (save-excursion
6976 (set-buffer gnus-summary-buffer) 6978 (set-buffer gnus-summary-buffer)
6977 (let* ((mformat (if (eq where 'article) 6979 (let* ((mformat (if (eq where 'article)
6978 gnus-article-mode-line-format-spec 6980 gnus-article-mode-line-format-spec
6979 gnus-summary-mode-line-format-spec)) 6981 gnus-summary-mode-line-format-spec))
6982 (buffer-name (if (eq where 'article)
6983 (buffer-name
6984 (get-buffer gnus-article-buffer))
6985 (buffer-name)))
6980 (group-name gnus-newsgroup-name) 6986 (group-name gnus-newsgroup-name)
6981 (article-number (or gnus-current-article 0)) 6987 (article-number (or gnus-current-article 0))
6982 (unread (- (length gnus-newsgroup-unreads) 6988 (unread (- (length gnus-newsgroup-unreads)
6983 (length gnus-newsgroup-dormant))) 6989 (length gnus-newsgroup-dormant)))
6984 (unread-and-unticked 6990 (unread-and-unticked
9768 (interactive "sMarks: ") 9774 (interactive "sMarks: ")
9769 ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>. 9775 ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>.
9770 (gnus-set-global-variables) 9776 (gnus-set-global-variables)
9771 (let ((buffer-read-only nil) 9777 (let ((buffer-read-only nil)
9772 (orig-article 9778 (orig-article
9773 (progn 9779 (let ((gnus-summary-check-current t))
9774 (gnus-summary-search-forward t) 9780 (gnus-summary-search-forward t)
9775 (gnus-summary-article-number))) 9781 (gnus-summary-article-number)))
9776 (marks (concat "^[" marks "]"))) 9782 (marks (concat "^[" marks "]")))
9777 (goto-char (point-min)) 9783 (goto-char (point-min))
9778 (if gnus-newsgroup-adaptive 9784 (if gnus-newsgroup-adaptive