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

   1 ;;; gnus.el --- a newsreader for GNU Emacs
   2
   3 ;; Copyright (C) 1987-1990, 1993-1998, 2000-2011
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
   7 ;;      Lars Magne Ingebrigtsen <larsi@gnus.org>
   8 ;; Keywords: news, mail
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (eval '(run-hooks 'gnus-load-hook))
  30
  31 ;; For Emacs <22.2 and XEmacs.
  32 (eval-and-compile
  33   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
  34
  35 (eval-when-compile (require 'cl))
  36 (require 'wid-edit)
  37 (require 'mm-util)
  38 (require 'nnheader)
  39
  40 ;; These are defined afterwards with gnus-define-group-parameter
  41 (defvar gnus-ham-process-destinations)
  42 (defvar gnus-parameter-ham-marks-alist)
  43 (defvar gnus-parameter-spam-marks-alist)
  44 (defvar gnus-spam-autodetect)
  45 (defvar gnus-spam-autodetect-methods)
  46 (defvar gnus-spam-newsgroup-contents)
  47 (defvar gnus-spam-process-destinations)
  48 (defvar gnus-spam-resend-to)
  49 (defvar gnus-ham-resend-to)
  50 (defvar gnus-spam-process-newsgroups)
  51
  52
  53 (defgroup gnus nil
  54   "The coffee-brewing, all singing, all dancing, kitchen sink newsreader."
  55   :group 'news
  56   :group 'mail)
  57
  58 (defgroup gnus-start nil
  59   "Starting your favorite newsreader."
  60   :group 'gnus)
  61
  62 (defgroup gnus-format nil
  63   "Dealing with formatting issues."
  64   :group 'gnus)
  65
  66 (defgroup gnus-charset nil
  67   "Group character set issues."
  68   :link '(custom-manual "(gnus)Charsets")
  69   :version "21.1"
  70   :group 'gnus)
  71
  72 (defgroup gnus-cache nil
  73   "Cache interface."
  74   :link '(custom-manual "(gnus)Article Caching")
  75   :group 'gnus)
  76
  77 (defgroup gnus-registry nil
  78   "Article Registry."
  79   :group 'gnus)
  80
  81 (defgroup gnus-start-server nil
  82   "Server options at startup."
  83   :group 'gnus-start)
  84
  85 ;; These belong to gnus-group.el.
  86 (defgroup gnus-group nil
  87   "Group buffers."
  88   :link '(custom-manual "(gnus)Group Buffer")
  89   :group 'gnus)
  90
  91 (defgroup gnus-group-foreign nil
  92   "Foreign groups."
  93   :link '(custom-manual "(gnus)Foreign Groups")
  94   :group 'gnus-group)
  95
  96 (defgroup gnus-group-new nil
  97   "Automatic subscription of new groups."
  98   :group 'gnus-group)
  99
 100 (defgroup gnus-group-levels nil
 101   "Group levels."
 102   :link '(custom-manual "(gnus)Group Levels")
 103   :group 'gnus-group)
 104
 105 (defgroup gnus-group-select nil
 106   "Selecting a Group."
 107   :link '(custom-manual "(gnus)Selecting a Group")
 108   :group 'gnus-group)
 109
 110 (defgroup gnus-group-listing nil
 111   "Showing slices of the group list."
 112   :link '(custom-manual "(gnus)Listing Groups")
 113   :group 'gnus-group)
 114
 115 (defgroup gnus-group-visual nil
 116   "Sorting the group buffer."
 117   :link '(custom-manual "(gnus)Group Buffer Format")
 118   :group 'gnus-group
 119   :group 'gnus-visual)
 120
 121 (defgroup gnus-group-various nil
 122   "Various group options."
 123   :link '(custom-manual "(gnus)Scanning New Messages")
 124   :group 'gnus-group)
 125
 126 ;; These belong to gnus-sum.el.
 127 (defgroup gnus-summary nil
 128   "Summary buffers."
 129   :link '(custom-manual "(gnus)Summary Buffer")
 130   :group 'gnus)
 131
 132 (defgroup gnus-summary-exit nil
 133   "Leaving summary buffers."
 134   :link '(custom-manual "(gnus)Exiting the Summary Buffer")
 135   :group 'gnus-summary)
 136
 137 (defgroup gnus-summary-marks nil
 138   "Marks used in summary buffers."
 139   :link '(custom-manual "(gnus)Marking Articles")
 140   :group 'gnus-summary)
 141
 142 (defgroup gnus-thread nil
 143   "Ordering articles according to replies."
 144   :link '(custom-manual "(gnus)Threading")
 145   :group 'gnus-summary)
 146
 147 (defgroup gnus-summary-format nil
 148   "Formatting of the summary buffer."
 149   :link '(custom-manual "(gnus)Summary Buffer Format")
 150   :group 'gnus-summary)
 151
 152 (defgroup gnus-summary-choose nil
 153   "Choosing Articles."
 154   :link '(custom-manual "(gnus)Choosing Articles")
 155   :group 'gnus-summary)
 156
 157 (defgroup gnus-summary-maneuvering nil
 158   "Summary movement commands."
 159   :link '(custom-manual "(gnus)Summary Maneuvering")
 160   :group 'gnus-summary)
 161
 162 (defgroup gnus-picon nil
 163   "Show pictures of people, domains, and newsgroups."
 164   :group 'gnus-visual)
 165
 166 (defgroup gnus-summary-mail nil
 167   "Mail group commands."
 168   :link '(custom-manual "(gnus)Mail Group Commands")
 169   :group 'gnus-summary)
 170
 171 (defgroup gnus-summary-sort nil
 172   "Sorting the summary buffer."
 173   :link '(custom-manual "(gnus)Sorting the Summary Buffer")
 174   :group 'gnus-summary)
 175
 176 (defgroup gnus-summary-visual nil
 177   "Highlighting and menus in the summary buffer."
 178   :link '(custom-manual "(gnus)Summary Highlighting")
 179   :group 'gnus-visual
 180   :group 'gnus-summary)
 181
 182 (defgroup gnus-summary-various nil
 183   "Various summary buffer options."
 184   :link '(custom-manual "(gnus)Various Summary Stuff")
 185   :group 'gnus-summary)
 186
 187 (defgroup gnus-summary-pick nil
 188   "Pick mode in the summary buffer."
 189   :link '(custom-manual "(gnus)Pick and Read")
 190   :prefix "gnus-pick-"
 191   :group 'gnus-summary)
 192
 193 (defgroup gnus-summary-tree nil
 194   "Tree display of threads in the summary buffer."
 195   :link '(custom-manual "(gnus)Tree Display")
 196   :prefix "gnus-tree-"
 197   :group 'gnus-summary)
 198
 199 ;; Belongs to gnus-uu.el
 200 (defgroup gnus-extract-view nil
 201   "Viewing extracted files."
 202   :link '(custom-manual "(gnus)Viewing Files")
 203   :group 'gnus-extract)
 204
 205 ;; Belongs to gnus-score.el
 206 (defgroup gnus-score nil
 207   "Score and kill file handling."
 208   :group 'gnus)
 209
 210 (defgroup gnus-score-kill nil
 211   "Kill files."
 212   :group 'gnus-score)
 213
 214 (defgroup gnus-score-adapt nil
 215   "Adaptive score files."
 216   :group 'gnus-score)
 217
 218 (defgroup gnus-score-default nil
 219   "Default values for score files."
 220   :group 'gnus-score)
 221
 222 (defgroup gnus-score-expire nil
 223   "Expiring score rules."
 224   :group 'gnus-score)
 225
 226 (defgroup gnus-score-decay nil
 227   "Decaying score rules."
 228   :group 'gnus-score)
 229
 230 (defgroup gnus-score-files nil
 231   "Score and kill file names."
 232   :group 'gnus-score
 233   :group 'gnus-files)
 234
 235 (defgroup gnus-score-various nil
 236   "Various scoring and killing options."
 237   :group 'gnus-score)
 238
 239 ;; Other
 240 (defgroup gnus-visual nil
 241   "Options controlling the visual fluff."
 242   :group 'gnus
 243   :group 'faces)
 244
 245 (defgroup gnus-agent nil
 246   "Offline support for Gnus."
 247   :group 'gnus)
 248
 249 (defgroup gnus-files nil
 250   "Files used by Gnus."
 251   :group 'gnus)
 252
 253 (defgroup gnus-dribble-file nil
 254   "Auto save file."
 255   :link '(custom-manual "(gnus)Auto Save")
 256   :group 'gnus-files)
 257
 258 (defgroup gnus-newsrc nil
 259   "Storing Gnus state."
 260   :group 'gnus-files)
 261
 262 (defgroup gnus-server nil
 263   "Options related to newsservers and other servers used by Gnus."
 264   :group 'gnus)
 265
 266 (defgroup gnus-server-visual nil
 267   "Highlighting and menus in the server buffer."
 268   :group 'gnus-visual
 269   :group 'gnus-server)
 270
 271 (defgroup gnus-message '((message custom-group))
 272   "Composing replies and followups in Gnus."
 273   :group 'gnus)
 274
 275 (defgroup gnus-meta nil
 276   "Meta variables controlling major portions of Gnus.
 277 In general, modifying these variables does not take effect until Gnus
 278 is restarted, and sometimes reloaded."
 279   :group 'gnus)
 280
 281 (defgroup gnus-various nil
 282   "Other Gnus options."
 283   :link '(custom-manual "(gnus)Various Various")
 284   :group 'gnus)
 285
 286 (defgroup gnus-exit nil
 287   "Exiting Gnus."
 288   :link '(custom-manual "(gnus)Exiting Gnus")
 289   :group 'gnus)
 290
 291 (defgroup gnus-fun nil
 292   "Frivolous Gnus extensions."
 293   :link '(custom-manual "(gnus)Exiting Gnus")
 294   :group 'gnus)
 295
 296 (defconst gnus-version-number "0.14"
 297   "Version number for this version of Gnus.")
 298
 299 (defconst gnus-version (format "No Gnus v%s" gnus-version-number)
 300   "Version string for this version of Gnus.")
 301
 302 (defcustom gnus-inhibit-startup-message nil
 303   "If non-nil, the startup message will not be displayed.
 304 This variable is used before `.gnus.el' is loaded, so it should
 305 be set in `.emacs' instead."
 306   :group 'gnus-start
 307   :type 'boolean)
 308
 309 (unless (featurep 'gnus-xmas)
 310   (defalias 'gnus-make-overlay 'make-overlay)
 311   (defalias 'gnus-delete-overlay 'delete-overlay)
 312   (defalias 'gnus-overlay-get 'overlay-get)
 313   (defalias 'gnus-overlay-put 'overlay-put)
 314   (defalias 'gnus-move-overlay 'move-overlay)
 315   (defalias 'gnus-overlay-buffer 'overlay-buffer)
 316   (defalias 'gnus-overlay-start 'overlay-start)
 317   (defalias 'gnus-overlay-end 'overlay-end)
 318   (defalias 'gnus-overlays-in 'overlays-in)
 319   (defalias 'gnus-extent-detached-p 'ignore)
 320   (defalias 'gnus-extent-start-open 'ignore)
 321   (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
 322   (defalias 'gnus-character-to-event 'identity)
 323   (defalias 'gnus-assq-delete-all 'assq-delete-all)
 324   (defalias 'gnus-add-text-properties 'add-text-properties)
 325   (defalias 'gnus-put-text-property 'put-text-property)
 326   (defvar gnus-mode-line-image-cache t)
 327   (if (fboundp 'find-image)
 328       (defun gnus-mode-line-buffer-identification (line)
 329         (let ((str (car-safe line))
 330               (load-path (mm-image-load-path)))
 331           (if (and (stringp str)
 332                    (string-match "^Gnus:" str))
 333               (progn (add-text-properties
 334                       0 5
 335                       (list 'display
 336                             (if (eq t gnus-mode-line-image-cache)
 337                                 (setq gnus-mode-line-image-cache
 338                                       (find-image
 339                                        '((:type xpm :file "gnus-pointer.xpm"
 340                                                 :ascent center)
 341                                          (:type xbm :file "gnus-pointer.xbm"
 342                                                 :ascent center))))
 343                               gnus-mode-line-image-cache)
 344                             'help-echo (format
 345                                         "This is %s, %s."
 346                                         gnus-version (gnus-emacs-version)))
 347                       str)
 348                      (list str))
 349             line)))
 350     (defalias 'gnus-mode-line-buffer-identification 'identity))
 351   (defalias 'gnus-deactivate-mark 'deactivate-mark)
 352   (defalias 'gnus-window-edges 'window-edges)
 353   (defalias 'gnus-key-press-event-p 'numberp)
 354   ;;(defalias 'gnus-decode-rfc1522 'ignore)
 355   )
 356
 357 ;; We define these group faces here to avoid the display