cgit.sxemacs.org Git - gnus/blob - lisp/gnus-group.el

   1 ;;; gnus-group.el --- group mode commands for Gnus
   2
   3 ;; Copyright (C) 1996-2015 Free Software Foundation, Inc.
   4
   5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   6 ;; Keywords: news
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Commentary:
  24
  25 ;;; Code:
  26
  27 (eval-when-compile
  28   (require 'cl))
  29 (defvar tool-bar-mode)
  30
  31 (require 'gnus)
  32 (require 'gnus-start)
  33 (require 'nnmail)
  34 (require 'gnus-spec)
  35 (require 'gnus-int)
  36 (require 'gnus-range)
  37 (require 'gnus-win)
  38 (require 'gnus-undo)
  39 (require 'gmm-utils)
  40 (require 'time-date)
  41 (require 'gnus-ems)
  42
  43 (eval-when-compile
  44   (require 'mm-url)
  45   (let ((features (cons 'gnus-group features)))
  46     (require 'gnus-sum))
  47   (unless (boundp 'gnus-cache-active-hashtb)
  48     (defvar gnus-cache-active-hashtb nil)))
  49
  50 (autoload 'gnus-agent-total-fetched-for "gnus-agent")
  51 (autoload 'gnus-cache-total-fetched-for "gnus-cache")
  52
  53 (autoload 'gnus-group-make-nnir-group "nnir")
  54
  55 (defcustom gnus-no-groups-message "No news is good news"
  56   "*Message displayed by Gnus when no groups are available."
  57   :group 'gnus-start
  58   :type 'string)
  59
  60 (defcustom gnus-keep-same-level nil
  61   "*Non-nil means that the next newsgroup after the current will be on the same level.
  62 When you type, for instance, `n' after reading the last article in the
  63 current newsgroup, you will go to the next newsgroup.  If this variable
  64 is nil, the next newsgroup will be the next from the group
  65 buffer.
  66 If this variable is non-nil, Gnus will either put you in the
  67 next newsgroup with the same level, or, if no such newsgroup is
  68 available, the next newsgroup with the lowest possible level higher
  69 than the current level.
  70 If this variable is `best', Gnus will make the next newsgroup the one
  71 with the best level."
  72   :group 'gnus-group-levels
  73   :type '(choice (const nil)
  74                  (const best)
  75                  (sexp :tag "other" t)))
  76
  77 (defcustom gnus-group-goto-unread t
  78   "*If non-nil, movement commands will go to the next unread and subscribed group."
  79   :link '(custom-manual "(gnus)Group Maneuvering")
  80   :group 'gnus-group-various
  81   :type 'boolean)
  82
  83 (defcustom gnus-goto-next-group-when-activating t
  84   "*If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group."
  85   :link '(custom-manual "(gnus)Scanning New Messages")
  86   :group 'gnus-group-various
  87   :type 'boolean)
  88
  89 (defcustom gnus-permanently-visible-groups nil
  90   "*Regexp to match groups that should always be listed in the group buffer.
  91 This means that they will still be listed even when there are no