Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children cf808b4c4290
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
36 :group 'emacs) 36 :group 'emacs)
37 37
38 (defgroup gnus-start nil 38 (defgroup gnus-start nil
39 "Starting your favorite newsreader." 39 "Starting your favorite newsreader."
40 :group 'gnus) 40 :group 'gnus)
41
42 (defgroup gnus-start-server nil
43 "Server options at startup."
44 :group 'gnus-start)
41 45
42 ;; These belong to gnus-group.el. 46 ;; These belong to gnus-group.el.
43 (defgroup gnus-group nil 47 (defgroup gnus-group nil
44 "Group buffers." 48 "Group buffers."
45 :link '(custom-manual "(gnus)The Group Buffer") 49 :link '(custom-manual "(gnus)The Group Buffer")
48 (defgroup gnus-group-foreign nil 52 (defgroup gnus-group-foreign nil
49 "Foreign groups." 53 "Foreign groups."
50 :link '(custom-manual "(gnus)Foreign Groups") 54 :link '(custom-manual "(gnus)Foreign Groups")
51 :group 'gnus-group) 55 :group 'gnus-group)
52 56
57 (defgroup gnus-group-new nil
58 "Automatic subscription of new groups."
59 :group 'gnus-group)
60
53 (defgroup gnus-group-levels nil 61 (defgroup gnus-group-levels nil
54 "Group levels." 62 "Group levels."
55 :link '(custom-manual "(gnus)Group Levels") 63 :link '(custom-manual "(gnus)Group Levels")
56 :group 'gnus-group) 64 :group 'gnus-group)
57 65
150 158
151 (defgroup gnus-score-adapt nil 159 (defgroup gnus-score-adapt nil
152 "Adaptive score files." 160 "Adaptive score files."
153 :group 'gnus-score) 161 :group 'gnus-score)
154 162
163 (defgroup gnus-score-default nil
164 "Default values for score files."
165 :group 'gnus-score)
166
167 (defgroup gnus-score-expire nil
168 "Expiring score rules."
169 :group 'gnus-score)
170
171 (defgroup gnus-score-decay nil
172 "Decaying score rules."
173 :group 'gnus-score)
174
155 (defgroup gnus-score-files nil 175 (defgroup gnus-score-files nil
156 "Score and kill file names." 176 "Score and kill file names."
157 :group 'gnus-score 177 :group 'gnus-score
158 :group 'gnus-files) 178 :group 'gnus-files)
159 179
164 ;; Other 184 ;; Other
165 (defgroup gnus-visual nil 185 (defgroup gnus-visual nil
166 "Options controling the visual fluff." 186 "Options controling the visual fluff."
167 :group 'gnus) 187 :group 'gnus)
168 188
169 (defgroup gnus-mail-expire nil
170 "Expiring articles in mail backends."
171 :group 'gnus-mail)
172
173 (defgroup gnus-files nil 189 (defgroup gnus-files nil
174 "Files used by Gnus." 190 "Files used by Gnus."
175 :group 'gnus) 191 :group 'gnus)
192
193 (defgroup gnus-dribble-file nil
194 "Auto save file."
195 :link '(custom-manual "(gnus)Auto Save")
196 :group 'gnus-files)
197
198 (defgroup gnus-newsrc nil
199 "Storing Gnus state."
200 :group 'gnus-files)
176 201
177 (defgroup gnus-server nil 202 (defgroup gnus-server nil
178 "Options related to newsservers and other servers used by Gnus." 203 "Options related to newsservers and other servers used by Gnus."
179 :group 'gnus) 204 :group 'gnus)
180 205
196 (defgroup gnus-exit nil 221 (defgroup gnus-exit nil
197 "Exiting gnus." 222 "Exiting gnus."
198 :link '(custom-manual "(gnus)Exiting Gnus") 223 :link '(custom-manual "(gnus)Exiting Gnus")
199 :group 'gnus) 224 :group 'gnus)
200 225
201 (defconst gnus-version-number "5.4.12" 226 (defconst gnus-version-number "5.4.15"
202 "Version number for this version of Gnus.") 227 "Version number for this version of Gnus.")
203 228
204 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 229 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
205 "Version string for this version of Gnus.") 230 "Version string for this version of Gnus.")
206 231
1172 1197
1173 (defcustom gnus-auto-expirable-newsgroups nil 1198 (defcustom gnus-auto-expirable-newsgroups nil
1174 "*Groups in which to automatically mark read articles as expirable. 1199 "*Groups in which to automatically mark read articles as expirable.
1175 If non-nil, this should be a regexp that should match all groups in 1200 If non-nil, this should be a regexp that should match all groups in
1176 which to perform auto-expiry. This only makes sense for mail groups." 1201 which to perform auto-expiry. This only makes sense for mail groups."
1177 :group 'gnus-mail-expire 1202 :group 'nnmail-expire
1178 :type '(choice (const nil) 1203 :type '(choice (const nil)
1179 regexp)) 1204 regexp))
1180 1205
1181 (defcustom gnus-total-expirable-newsgroups nil 1206 (defcustom gnus-total-expirable-newsgroups nil
1182 "*Groups in which to perform expiry of all read articles. 1207 "*Groups in which to perform expiry of all read articles.
1183 Use with extreme caution. All groups that match this regexp will be 1208 Use with extreme caution. All groups that match this regexp will be
1184 expiring - which means that all read articles will be deleted after 1209 expiring - which means that all read articles will be deleted after
1185 \(say) one week. (This only goes for mail groups and the like, of 1210 \(say) one week. (This only goes for mail groups and the like, of
1186 course.)" 1211 course.)"
1187 :group 'gnus-mail-expire 1212 :group 'nnmail-expire
1188 :type '(choice (const nil) 1213 :type '(choice (const nil)
1189 regexp)) 1214 regexp))
1190 1215
1191 (defcustom gnus-group-uncollapsed-levels 1 1216 (defcustom gnus-group-uncollapsed-levels 1
1192 "Number of group name elements to leave alone when making a short group name." 1217 "Number of group name elements to leave alone when making a short group name."
1575 gnus-uu-decode-unshar-and-save gnus-uu-decode-save 1600 gnus-uu-decode-unshar-and-save gnus-uu-decode-save
1576 gnus-uu-decode-binhex gnus-uu-decode-uu-view 1601 gnus-uu-decode-binhex gnus-uu-decode-uu-view
1577 gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view 1602 gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view
1578 gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view 1603 gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view
1579 gnus-uu-decode-binhex-view) 1604 gnus-uu-decode-binhex-view)
1580 ("gnus-uu" gnus-uu-delete-work-dir) 1605 ("gnus-uu" gnus-uu-delete-work-dir gnus-quote-arg-for-sh-or-csh)
1581 ("gnus-msg" (gnus-summary-send-map keymap) 1606 ("gnus-msg" (gnus-summary-send-map keymap)
1582 gnus-article-mail gnus-copy-article-buffer gnus-extended-version) 1607 gnus-article-mail gnus-copy-article-buffer gnus-extended-version)
1583 ("gnus-msg" :interactive t 1608 ("gnus-msg" :interactive t
1584 gnus-group-post-news gnus-group-mail gnus-summary-post-news 1609 gnus-group-post-news gnus-group-mail gnus-summary-post-news
1585 gnus-summary-followup gnus-summary-followup-with-original 1610 gnus-summary-followup gnus-summary-followup-with-original