Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
1 ;;; gnus.el --- a newsreader for GNU Emacs 1 ;;; gnus.el --- a newsreader for GNU Emacs
2 ;; Copyright (C) 1987,88,89,90,93,94,95,96,97 Free Software Foundation, Inc. 2 ;; Copyright (C) 1987,88,89,90,93,94,95,96,97 Free Software Foundation, Inc.
3 3
4 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 4 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
5 ;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 5 ;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
6 ;; Keywords: news 6 ;; Keywords: news, mail
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 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 11 ;; it under the terms of the GNU General Public License as published by
31 (require 'custom) 31 (require 'custom)
32 (require 'gnus-load) 32 (require 'gnus-load)
33 33
34 (defgroup gnus nil 34 (defgroup gnus nil
35 "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." 35 "The coffee-brewing, all singing, all dancing, kitchen sink newsreader."
36 :group 'emacs) 36 :group 'news
37 :group 'mail)
37 38
38 (defgroup gnus-start nil 39 (defgroup gnus-start nil
39 "Starting your favorite newsreader." 40 "Starting your favorite newsreader."
40 :group 'gnus) 41 :group 'gnus)
41 42
182 :group 'gnus-score) 183 :group 'gnus-score)
183 184
184 ;; Other 185 ;; Other
185 (defgroup gnus-visual nil 186 (defgroup gnus-visual nil
186 "Options controling the visual fluff." 187 "Options controling the visual fluff."
187 :group 'gnus) 188 :group 'gnus
189 :group 'faces)
188 190
189 (defgroup gnus-files nil 191 (defgroup gnus-files nil
190 "Files used by Gnus." 192 "Files used by Gnus."
191 :group 'gnus) 193 :group 'gnus)
192 194
221 (defgroup gnus-exit nil 223 (defgroup gnus-exit nil
222 "Exiting gnus." 224 "Exiting gnus."
223 :link '(custom-manual "(gnus)Exiting Gnus") 225 :link '(custom-manual "(gnus)Exiting Gnus")
224 :group 'gnus) 226 :group 'gnus)
225 227
226 (defconst gnus-version-number "5.4.16" 228 (defconst gnus-version-number "5.4.17"
227 "Version number for this version of Gnus.") 229 "Version number for this version of Gnus.")
228 230
229 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 231 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
230 "Version string for this version of Gnus.") 232 "Version string for this version of Gnus.")
231 233
2306 name (concat name ".")) 2308 name (concat name "."))
2307 (setq name (concat foreign name group) 2309 (setq name (concat foreign name group)
2308 group nil))) 2310 group nil)))
2309 name)) 2311 name))
2310 2312
2313 (defun gnus-narrow-to-body ()
2314 "Narrow to the body of an article."
2315 (narrow-to-region
2316 (progn
2317 (goto-char (point-min))
2318 (or (search-forward "\n\n" nil t)
2319 (point-max)))
2320 (point-max)))
2321
2311 2322
2312 ;;; 2323 ;;;
2313 ;;; Kill file handling. 2324 ;;; Kill file handling.
2314 ;;; 2325 ;;;
2315 2326