Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

*** empty log message ***

  • Loading branch information...
commit b3ff1683e7dae3919a69965b9cbf79d9d931420e 1 parent 6fe83ab
Lars Ingebrigtsen authored February 22, 1998
25  lisp/ChangeLog
... ...
@@ -1,3 +1,28 @@
  1
+Sun Feb 22 04:21:15 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  2
+
  3
+	* gnus.el: Quassia Gnus v0.31 is released.
  4
+
  5
+Sun Feb 22 02:09:35 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  6
+
  7
+	* gnus-sum.el (gnus-summary-highlight): Give undownloaded marks a
  8
+	better face.
  9
+
  10
+	* gnus-score.el (gnus-score-set): Take optional "warn".
  11
+	(gnus-summary-score-entry): Use it.
  12
+
  13
+	* gnus.el: Removed spurious * in defcustoms.
  14
+
  15
+	* gnus-score.el (gnus-score-load-file): Reverse logic.
  16
+
  17
+	* gnus-cite.el (gnus-article-hide-citation): Use markers to make
  18
+	things work when wrapping.
  19
+
  20
+	* gnus-sum.el (gnus-summary-exit): Stop prefetch.
  21
+
  22
+Sat Feb 21 02:12:42 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  23
+
  24
+	* gnus-sum.el (gnus-get-newsgroup-headers): Buggy regexp.
  25
+
1 26
 Sat Feb 21 00:51:22 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
2 27
 
3 28
 	* gnus.el: Quassia Gnus v0.30 is released.
3  lisp/earcon.el
@@ -45,7 +45,7 @@
45 45
   :group 'earcon)
46 46
 
47 47
 (defcustom earcon-suffix "**"
48  
-  "*String denoting the end of an earcon."
  48
+  "String denoting the end of an earcon."
49 49
   :type 'string
50 50
   :group 'earcon)
51 51
 
@@ -71,7 +71,6 @@
71 71
 		       (integer :tag "Match")
72 72
 		       (string :tag "Sound")))
73 73
   :group 'earcon)
74  
-
75 74
 (defvar earcon-button-marker-list nil)
76 75
 (make-variable-buffer-local 'earcon-button-marker-list)
77 76
 
8  lisp/gnus-agent.el
@@ -30,22 +30,22 @@
30 30
 (eval-when-compile (require 'cl))
31 31
 
32 32
 (defcustom gnus-agent-directory (nnheader-concat gnus-directory "agent/")
33  
-  "*Where the Gnus agent will store its files."
  33
+  "Where the Gnus agent will store its files."
34 34
   :group 'gnus-agent
35 35
   :type 'directory)
36 36
 
37 37
 (defcustom gnus-agent-plugged-hook nil
38  
-  "*Hook run when plugging into the network."
  38
+  "Hook run when plugging into the network."
39 39
   :group 'gnus-agent
40 40
   :type 'hook)
41 41
 
42 42
 (defcustom gnus-agent-unplugged-hook nil
43  
-  "*Hook run when unplugging from the network."
  43
+  "Hook run when unplugging from the network."
44 44
   :group 'gnus-agent
45 45
   :type 'hook)
46 46
 
47 47
 (defcustom gnus-agent-handle-level gnus-level-subscribed
48  
-  "*Groups on levels higher than this variable will be ignored by the Agent."
  48
+  "Groups on levels higher than this variable will be ignored by the Agent."
49 49
   :group 'gnus-agent
50 50
   :type 'integer)
51 51
 
40  lisp/gnus-art.el
@@ -104,7 +104,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
104 104
   :group 'gnus-article-hiding)
105 105
 
106 106
 (defcustom gnus-visible-headers
107  
-  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
  107
+  "From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:"
108 108
   "*All headers that do not match this regexp will be hidden.
109 109
 This variable can also be a list of regexp of headers to remain visible.
110 110
 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
@@ -127,7 +127,7 @@ this list."
127 127
   :group 'gnus-article-hiding)
128 128
 
129 129
 (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
130  
-  "*Headers that are only to be displayed if they have interesting data.
  130
+  "Headers that are only to be displayed if they have interesting data.
131 131
 Possible values in this list are `empty', `newsgroups', `followup-to',
132 132
 `reply-to', `date', `long-to', and `many-to'."
133 133
   :type '(set (const :tag "Headers with no content." empty)
@@ -140,7 +140,7 @@ Possible values in this list are `empty', `newsgroups', `followup-to',
140 140
   :group 'gnus-article-hiding)
141 141
 
142 142
 (defcustom gnus-signature-separator '("^-- $" "^-- *$")
143  
-  "*Regexp matching signature separator.
  143
+  "Regexp matching signature separator.
144 144
 This can also be a list of regexps.  In that case, it will be checked
145 145
 from head to tail looking for a separator.  Searches will be done from
146 146
 the end of the buffer."
@@ -148,7 +148,7 @@ the end of the buffer."
148 148
   :group 'gnus-article-signature)
149 149
 
150 150
 (defcustom gnus-signature-limit nil
151  
-   "*Provide a limit to what is considered a signature.
  151
+   "Provide a limit to what is considered a signature.
152 152
 If it is a number, no signature may not be longer (in characters) than
153 153
 that number.  If it is a floating point number, no signature may be
154 154
 longer (in lines) than that number.  If it is a function, the function
@@ -162,12 +162,12 @@ regexp.  If it matches, the text in question is not a signature."
162 162
   :group 'gnus-article-signature)
163 163
 
164 164
 (defcustom gnus-hidden-properties '(invisible t intangible t)
165  
-  "*Property list to use for hiding text."
  165
+  "Property list to use for hiding text."
166 166
   :type 'sexp
167 167
   :group 'gnus-article-hiding)
168 168
 
169 169
 (defcustom gnus-article-x-face-command
170  
-  "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -"
  170
+  " echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -"
171 171
   "*String or function to be executed to display an X-Face header.
172 172
 If it is a string, the command will be executed in a sub-shell
173 173
 asynchronously.	 The compressed face will be piped to this command."
@@ -175,7 +175,7 @@ asynchronously.	 The compressed face will be piped to this command."
175 175
   :group 'gnus-article-washing)
176 176
 
177 177
 (defcustom gnus-article-x-face-too-ugly nil
178  
-  "*Regexp matching posters whose face shouldn't be shown automatically."
  178
+  "Regexp matching posters whose face shouldn't be shown automatically."
179 179
   :type '(choice regexp (const nil))
180 180
   :group 'gnus-article-washing)
181 181
 
@@ -246,7 +246,7 @@ Esample: (_/*word*/_)."
246 246
   :group 'gnus-article-emphasis)
247 247
 
248 248
 (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z"
249  
-  "*Format for display of Date headers in article bodies.
  249
+  "Format for display of Date headers in article bodies.
250 250
 See `format-time-string' for the possible values.
251 251
 
252 252
 The variable can also be function, which should return a complete Date
@@ -280,7 +280,7 @@ each invocation of the saving commands."
280 280
 		 (sexp :tag "once" :format "%t\n" :value t)))
281 281
 
282 282
 (defcustom gnus-saved-headers gnus-visible-headers
283  
-  "*Headers to keep if `gnus-save-all-headers' is nil.
  283
+  "Headers to keep if `gnus-save-all-headers' is nil.
284 284
 If `gnus-save-all-headers' is non-nil, this variable will be ignored.
285 285
 If that variable is nil, however, all headers that match this regexp
286 286
 will be kept while the rest will be deleted before saving."
@@ -288,7 +288,7 @@ will be kept while the rest will be deleted before saving."
288 288
   :type 'regexp)
289 289
 
290 290
 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
291  
-  "*A function to save articles in your favourite format.
  291
+  "A function to save articles in your favourite format.
292 292
 The function must be interactively callable (in other words, it must
293 293
 be an Emacs command).
294 294
 
@@ -309,25 +309,25 @@ Gnus provides the following functions:
309 309
 		(function-item gnus-summary-write-to-file)))
310 310
 
311 311
 (defcustom gnus-rmail-save-name 'gnus-plain-save-name
312  
-  "*A function generating a file name to save articles in Rmail format.
  312
+  "A function generating a file name to save articles in Rmail format.
313 313
 The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
314 314
   :group 'gnus-article-saving
315 315
   :type 'function)
316 316
 
317 317
 (defcustom gnus-mail-save-name 'gnus-plain-save-name
318  
-  "*A function generating a file name to save articles in Unix mail format.
  318
+  "A function generating a file name to save articles in Unix mail format.
319 319
 The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
320 320
   :group 'gnus-article-saving
321 321
   :type 'function)
322 322
 
323 323
 (defcustom gnus-folder-save-name 'gnus-folder-save-name
324  
-  "*A function generating a file name to save articles in MH folder.
  324
+  "A function generating a file name to save articles in MH folder.
325 325
 The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER."
326 326
   :group 'gnus-article-saving
327 327
   :type 'function)
328 328
 
329 329
 (defcustom gnus-file-save-name 'gnus-numeric-save-name
330  
-  "*A function generating a file name to save articles in article format.
  330
+  "A function generating a file name to save articles in article format.
331 331
 The function is called with NEWSGROUP, HEADERS, and optional
332 332
 LAST-FILE."
333 333
   :group 'gnus-article-saving
@@ -366,7 +366,7 @@ be used as possible file names."
366 366
   :type 'boolean)
367 367
 
368 368
 (defcustom gnus-show-mime-method 'metamail-buffer
369  
-  "*Function to process a MIME message.
  369
+  "Function to process a MIME message.
370 370
 The function is called from the article buffer."
371 371
   :group 'gnus-article-mime
372 372
   :type 'function)
@@ -412,7 +412,7 @@ If you want to run a special decoding program like nkf, use this hook."
412 412
   :group 'gnus-article-various)
413 413
 
414 414
 (defcustom gnus-article-button-face 'bold
415  
-  "*Face used for highlighting buttons in the article buffer.
  415
+  "Face used for highlighting buttons in the article buffer.
416 416
 
417 417
 An article button is a piece of text that you can activate by pressing
418 418
 `RET' or `mouse-2' above it."
@@ -420,7 +420,7 @@ An article button is a piece of text that you can activate by pressing
420 420
   :group 'gnus-article-buttons)
421 421
 
422 422
 (defcustom gnus-article-mouse-face 'highlight
423  
-  "*Face used for mouse highlighting in the article buffer.
  423
+  "Face used for mouse highlighting in the article buffer.
424 424
 
425 425
 Article buttons will be displayed in this face when the cursor is
426 426
 above them."
@@ -428,7 +428,7 @@ above them."
428 428
   :group 'gnus-article-buttons)
429 429
 
430 430
 (defcustom gnus-signature-face 'gnus-signature-face
431  
-  "*Face used for highlighting a signature in the article buffer.
  431
+  "Face used for highlighting a signature in the article buffer.
432 432
 Obsolete; use the face `gnus-signature-face' for customizations instead."
433 433
   :type 'face
434 434
   :group 'gnus-article-highlight
@@ -2552,7 +2552,7 @@ If given a prefix, show the hidden text instead."
2552 2552
 ;;;
2553 2553
 
2554 2554
 (defcustom gnus-article-edit-mode-hook nil
2555  
-  "*Hook run in article edit mode buffers."
  2555
+  "Hook run in article edit mode buffers."
2556 2556
   :group 'gnus-article-various
2557 2557
   :type 'hook)
2558 2558
 
@@ -2702,7 +2702,7 @@ groups."
2702 2702
 ;;; Internal Variables:
2703 2703
 
2704 2704
 (defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)"
2705  
-  "*Regular expression that matches URLs."
  2705
+  "Regular expression that matches URLs."
2706 2706
   :group 'gnus-article-buttons
2707 2707
   :type 'regexp)
2708 2708
 
4  lisp/gnus-async.el
@@ -51,7 +51,7 @@ if t, prefetch as many articles as possible."
51 51
 		 (integer :tag "some" 0)))
52 52
 
53 53
 (defcustom gnus-prefetched-article-deletion-strategy '(read exit)
54  
-  "*List of symbols that say when to remove articles from the prefetch buffer.
  54
+  "List of symbols that say when to remove articles from the prefetch buffer.
55 55
 Possible values in this list are `read', which means that
56 56
 articles are removed as they are read, and `exit', which means
57 57
 that all articles belonging to a group are removed on exit
@@ -65,7 +65,7 @@ from that group."
65 65
   :type 'boolean)
66 66
 
67 67
 (defcustom gnus-async-prefetch-article-p 'gnus-async-unread-p
68  
-  "*Function called to say whether an article should be prefetched or not.
  68
+  "Function called to say whether an article should be prefetched or not.
69 69
 The function is called with one parameter -- the article data.
70 70
 It should return non-nil if the article is to be prefetched."
71 71
   :group 'gnus-asynchronous
4  lisp/gnus-cache.el
@@ -51,12 +51,12 @@
51 51
   :type 'file)
52 52
 
53 53
 (defcustom gnus-cache-enter-articles '(ticked dormant)
54  
-  "*Classes of articles to enter into the cache."
  54
+  "Classes of articles to enter into the cache."
55 55
   :group 'gnus-cache
56 56
   :type '(set (const ticked) (const dormant) (const unread) (const read)))
57 57
 
58 58
 (defcustom gnus-cache-remove-articles '(read)
59  
-  "*Classes of articles to remove from the cache."
  59
+  "Classes of articles to remove from the cache."
60 60
   :group 'gnus-cache
61 61
   :type '(set (const ticked) (const dormant) (const unread) (const read)))
62 62
 
30  lisp/gnus-cite.el
@@ -47,37 +47,37 @@ article has citations."
47 47
   :type 'string)
48 48
 
49 49
 (defcustom gnus-cite-always-check nil
50  
-  "*Check article always for citations. Set it t to check all articles."
  50
+  "Check article always for citations. Set it t to check all articles."
51 51
   :group 'gnus-cite
52 52
   :type '(choice (const :tag "no" nil)
53 53
 		  (const :tag "yes" t)))
54 54
 
55 55
 (defcustom gnus-cited-text-button-line-format "%(%{[...]%}%)\n"
56  
-  "*Format of cited text buttons."
  56
+  "Format of cited text buttons."
57 57
   :group 'gnus-cite
58 58
   :type 'string)
59 59
 
60 60
 (defcustom gnus-cited-lines-visible nil
61  
-  "*The number of lines of hidden cited text to remain visible."
  61
+  "The number of lines of hidden cited text to remain visible."
62 62
   :group 'gnus-cite
63 63
   :type '(choice (const :tag "none" nil)
64 64
 		 integer))
65 65
 
66 66
 (defcustom gnus-cite-parse-max-size 25000
67  
-  "*Maximum article size (in bytes) where parsing citations is allowed.
  67
+  "Maximum article size (in bytes) where parsing citations is allowed.
68 68
 Set it to nil to parse all articles."
69 69
   :group 'gnus-cite
70 70
   :type '(choice (const :tag "all" nil)
71 71
 		 integer))
72 72
 
73 73
 (defcustom gnus-cite-prefix-regexp
74  
-    "^[]>|:}+ ]*[]>|:}+]\\(.*>\\)?\\|^.*>"
  74
+  "^[]>|:}+ ]*[]>|:}+]\\(.*>\\)?\\|^.*>"
75 75
   "*Regexp matching the longest possible citation prefix on a line."
76 76
   :group 'gnus-cite
77 77
   :type 'regexp)
78 78
 
79 79
 (defcustom gnus-cite-max-prefix 20
80  
-  "*Maximum possible length for a citation prefix."
  80
+  "Maximum possible length for a citation prefix."
81 81
   :group 'gnus-cite
82 82
   :type 'integer)
83 83
 
@@ -90,18 +90,18 @@ The first grouping must match prefixes added by other packages."
90 90
   :type 'regexp)
91 91
 
92 92
 (defcustom gnus-supercite-secondary-regexp "^.*\"\\([^\"\n]+\\)\" +=="
93  
-  "*Regexp matching mangled Supercite attribution lines.
  93
+  "Regexp matching mangled Supercite attribution lines.
94 94
 The first regexp group should match the Supercite attribution."
95 95
   :group 'gnus-cite
96 96
   :type 'regexp)
97 97
 
98 98
 (defcustom gnus-cite-minimum-match-count 2
99  
-  "*Minimum number of identical prefixes before we believe it's a citation."
  99
+  "Minimum number of identical prefixes before we believe it's a citation."
100 100
   :group 'gnus-cite
101 101
   :type 'integer)
102 102
 
103 103
 (defcustom gnus-cite-attribution-prefix 
104  
-  "in article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),"
  104
+  "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),"
105 105
   "*Regexp matching the beginning of an attribution line."
106 106
   :group 'gnus-cite
107 107
   :type 'regexp)
@@ -118,7 +118,7 @@ The text matching the first grouping will be used as a button."
118 118
   "Face used for attribution lines.")
119 119
 
120 120
 (defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face
121  
-  "*Face used for attribution lines.
  121
+  "Face used for attribution lines.
122 122
 It is merged with the face for the cited text belonging to the attribution."
123 123
   :group 'gnus-cite
124 124
   :type 'face)
@@ -246,12 +246,12 @@ This should make it easier to see who wrote what."
246 246
   :type '(repeat face))
247 247
 
248 248
 (defcustom gnus-cite-hide-percentage 50
249  
-  "*Only hide excess citation if above this percentage of the body."
  249
+  "Only hide excess citation if above this percentage of the body."
250 250
   :group 'gnus-cite
251 251
   :type 'number)
252 252
 
253 253
 (defcustom gnus-cite-hide-absolute 10
254  
-  "*Only hide excess citation if above this number of lines in the body."
  254
+  "Only hide excess citation if above this number of lines in the body."
255 255
   :group 'gnus-cite
256 256
   :type 'integer)
257 257
 
@@ -495,7 +495,11 @@ always hide."
495 495
 	       (gnus-article-add-button
496 496
 		(point)
497 497
 		(progn (eval gnus-cited-text-button-line-format-spec) (point))
498  
-		`gnus-article-toggle-cited-text (cons beg end))
  498
+		`gnus-article-toggle-cited-text
  499
+		;; We use markers for the end-points to facilitate later
  500
+		;; wrapping and mangling of text.
  501
+		(cons (set-marker (make-marker) beg)
  502
+		      (set-marker (make-marker) end)))
499 503
 	       (point))
500 504
 	     'article-type 'annotation)
501 505
 	    (set-marker beg (point)))))))))
2  lisp/gnus-demon.el
@@ -41,7 +41,7 @@
41 41
   :group 'gnus)
42 42
 
43 43
 (defcustom gnus-demon-handlers nil
44  
-  "*Alist of daemonic handlers to be run at intervals.
  44
+  "Alist of daemonic handlers to be run at intervals.
45 45
 Each handler is a list on the form
46 46
 
47 47
 \(FUNCTION TIME IDLE)
4  lisp/gnus-eform.el
@@ -37,12 +37,12 @@
37 37
   :group 'gnus)
38 38
 
39 39
 (defcustom gnus-edit-form-mode-hook nil
40  
-  "*Hook run in `gnus-edit-form-mode' buffers."
  40
+  "Hook run in `gnus-edit-form-mode' buffers."
41 41
   :group 'gnus-edit-form
42 42
   :type 'hook)
43 43
 
44 44
 (defcustom gnus-edit-form-menu-hook nil
45  
-  "*Hook run when creating menus in `gnus-edit-form-mode' buffers."
  45
+  "Hook run when creating menus in `gnus-edit-form-mode' buffers."
46 46
   :group 'gnus-edit-form
47 47
   :type 'hook)
48 48
 
26  lisp/gnus-group.el
@@ -37,13 +37,13 @@
37 37
 (require 'gnus-undo)
38 38
 
39 39
 (defcustom gnus-group-archive-directory
40  
-  "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/"
  40
+  "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list/"
41 41
   "*The address of the (ding) archives."
42 42
   :group 'gnus-group-foreign
43 43
   :type 'directory)
44 44
 
45 45
 (defcustom gnus-group-recent-archive-directory
46  
-  "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/"
  46
+  "*ftp@ftp.hpc.uh.edu:/pub/emacs/ding-list-recent/"
47 47
   "*The address of the most recent (ding) articles."
48 48
   :group 'gnus-group-foreign
49 49
   :type 'directory)
@@ -196,24 +196,24 @@ with some simple extensions:
196 196
   :type 'string)
197 197
 
198 198
 (defcustom gnus-group-mode-hook nil
199  
-  "*Hook for Gnus group mode."
  199
+  "Hook for Gnus group mode."
200 200
   :group 'gnus-group-various
201 201
   :options '(gnus-topic-mode)
202 202
   :type 'hook)
203 203
 
204 204
 (defcustom gnus-group-menu-hook nil
205  
-  "*Hook run after the creation of the group mode menu."
  205
+  "Hook run after the creation of the group mode menu."
206 206
   :group 'gnus-group-various
207 207
   :type 'hook)
208 208
 
209 209
 (defcustom gnus-group-catchup-group-hook nil
210  
-  "*Hook run when catching up a group from the group buffer."
  210
+  "Hook run when catching up a group from the group buffer."
211 211
   :group 'gnus-group-various
212 212
   :link '(custom-manual "(gnus)Group Data")
213 213
   :type 'hook)
214 214
 
215 215
 (defcustom gnus-group-update-group-hook nil
216  
-  "*Hook called when updating group lines."
  216
+  "Hook called when updating group lines."
217 217
   :group 'gnus-group-visual
218 218
   :type 'hook)
219 219
 
@@ -230,28 +230,28 @@ The only current function implemented is `gnus-group-prepare-flat'."
230 230
   :type 'function)
231 231
 
232 232
 (defcustom gnus-group-prepare-hook nil
233  
-  "*Hook called after the group buffer has been generated.
  233
+  "Hook called after the group buffer has been generated.
234 234
 If you want to modify the group buffer, you can use this hook."
235 235
   :group 'gnus-group-listing
236 236
   :type 'hook)
237 237
 
238 238
 (defcustom gnus-suspend-gnus-hook nil
239  
-  "*Hook called when suspending (not exiting) Gnus."
  239
+  "Hook called when suspending (not exiting) Gnus."
240 240
   :group 'gnus-exit
241 241
   :type 'hook)
242 242
 
243 243
 (defcustom gnus-exit-gnus-hook nil
244  
-  "*Hook called when exiting Gnus."
  244
+  "Hook called when exiting Gnus."
245 245
   :group 'gnus-exit
246 246
   :type 'hook)
247 247
 
248 248
 (defcustom gnus-after-exiting-gnus-hook nil
249  
-  "*Hook called after exiting Gnus."
  249
+  "Hook called after exiting Gnus."
250 250
   :group 'gnus-exit
251 251
   :type 'hook)
252 252
 
253 253
 (defcustom gnus-group-update-hook '(gnus-group-highlight-line)
254  
-  "*Hook called when a group line is changed.
  254
+  "Hook called when a group line is changed.
255 255
 The hook will not be called if `gnus-visual' is nil.
256 256
 
257 257
 The default function `gnus-group-highlight-line' will
@@ -261,7 +261,7 @@ variable."
261 261
   :type 'hook)
262 262
 
263 263
 (defcustom gnus-useful-groups
264  
-  `(("(ding) mailing list mirrored at sunsite.auc.dk"
  264
+  '(("(ding) mailing list mirrored at sunsite.auc.dk"
265 265
      "emacs.ding"
266 266
      (nntp "sunsite.auc.dk"
267 267
 	   (nntp-address "sunsite.auc.dk")))
@@ -343,7 +343,7 @@ ticked: The number of ticked articles."
343 343
   :type '(repeat (cons (sexp :tag "Form") face)))
344 344
 
345 345
 (defcustom gnus-new-mail-mark ?%
346  
-  "*Mark used for groups with new mail."
  346
+  "Mark used for groups with new mail."
347 347
   :group 'gnus-group-visual
348 348
   :type 'character)
349 349
 
2  lisp/gnus-int.el
@@ -30,7 +30,7 @@
30 30
 (require 'gnus)
31 31
 
32 32
 (defcustom gnus-open-server-hook nil
33  
-  "*Hook called just before opening connection to the news server."
  33
+  "Hook called just before opening connection to the news server."
34 34
   :group 'gnus-start
35 35
   :type 'hook)
36 36
 
4  lisp/gnus-kill.el
@@ -33,7 +33,7 @@
33 33
 (require 'gnus-range)
34 34
 
35 35
 (defcustom gnus-kill-file-mode-hook nil
36  
-  "*Hook for Gnus kill file mode."
  36
+  "Hook for Gnus kill file mode."
37 37
   :group 'gnus-score-kill
38 38
   :type 'hook)
39 39
 
@@ -49,7 +49,7 @@
49 49
   :type 'boolean)
50 50
 
51 51
 (defcustom gnus-winconf-kill-file nil
52  
-  "*What does this do, Lars?"
  52
+  "What does this do, Lars?"
53 53
   :group 'gnus-score-kill
54 54
   :type 'sexp)
55 55
 
6  lisp/gnus-picon.el
@@ -43,13 +43,13 @@ also add gnus-article-display-picons to gnus-article-display-hook."
43 43
   :group 'gnus-visual)
44 44
 
45 45
 (defcustom gnus-picons-display-where 'picons
46  
-  "*Where to display the group and article icons.
  46
+  "Where to display the group and article icons.
47 47
 Legal values are `article' and `picons'."
48 48
   :type '(choice symbol string)
49 49
   :group 'picons)
50 50
 
51 51
 (defcustom gnus-picons-has-modeline-p t
52  
-  "*Wether the picons window should have a modeline.
  52
+  "*Whether the picons window should have a modeline.
53 53
 This is only useful if `gnus-picons-display-where' is `picons'."
54 54
   :type 'boolean
55 55
   :group 'picons)
@@ -90,7 +90,7 @@ Some people may want to add \"unknown\" to this list."
90 90
   :group 'picons)
91 91
 
92 92
 (defcustom gnus-picons-x-face-file-name
93  
-  (format "/tmp/picon-xface.%s.xbm" (user-login-name))
  93
+  '(format "/tmp/picon-xface.%s.xbm" (user-login-name))
94 94
   "*The name of the file in which to store the converted X-face header."
95 95
   :type 'string
96 96
   :group 'picons)
10  lisp/gnus-salt.el
@@ -43,7 +43,7 @@
43 43
   :group 'gnus-summary-pick)
44 44
 
45 45
 (defcustom gnus-pick-mode-hook nil
46  
-  "*Hook run in summary pick mode buffers."
  46
+  "Hook run in summary pick mode buffers."
47 47
   :type 'hook
48 48
   :group 'gnus-summary-pick)
49 49
 
@@ -53,12 +53,12 @@
53 53
   :group 'gnus-summary-pick)
54 54
 
55 55
 (defcustom gnus-pick-elegant-flow t
56  
-  "*If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked."
  56
+  "If non-nil, gnus-pick-start-reading will run gnus-summary-next-group when no articles have been picked."
57 57
   :type 'boolean
58 58
   :group 'gnus-summary-pick)
59 59
 
60 60
 (defcustom gnus-summary-pick-line-format
61  
-  "%-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n"
  61
+  "-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n"
62 62
   "*The format specification of the lines in pick buffers.
63 63
 It accepts the same format specs that `gnus-summary-line-format' does."
64 64
   :type 'string
@@ -355,12 +355,12 @@ This must be bound to a button-down mouse event."
355 355
 ;;;
356 356
 
357 357
 (defcustom gnus-tree-line-format "%(%[%3,3n%]%)"
358  
-  "*Format of tree elements."
  358
+  "Format of tree elements."
359 359
   :type 'string
360 360
   :group 'gnus-summary-tree)
361 361
 
362 362
 (defcustom gnus-tree-minimize-window t
363  
-  "*If non-nil, minimize the tree buffer window.
  363
+  "If non-nil, minimize the tree buffer window.
364 364
 If a number, never let the tree buffer grow taller than that number of
365 365
 lines."
366 366
   :type 'boolean
49  lisp/gnus-score.el
@@ -34,7 +34,7 @@
34 34
 (require 'message)
35 35
 
36 36
 (defcustom gnus-global-score-files nil
37  
-  "*List of global score files and directories.
  37
+  "List of global score files and directories.
38 38
 Set this variable if you want to use people's score files.  One entry
39 39
 for each score file or each score file directory.  Gnus will decide
40 40
 by itself what score files are applicable to which group.
@@ -50,7 +50,7 @@ score files in the \"/ftp.some-where:/pub/score\" directory.
50 50
   :type '(repeat file))
51 51
 
52 52
 (defcustom gnus-score-file-single-match-alist nil
53  
-  "*Alist mapping regexps to lists of score files.
  53
+  "Alist mapping regexps to lists of score files.
54 54
 Each element of this alist should be of the form
55 55
 	(\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... )
56 56
 
@@ -65,7 +65,7 @@ gnus-score-find-score-files-function (which see)."
65 65
   :type '(repeat (cons regexp (repeat file))))
66 66
 
67 67
 (defcustom gnus-score-file-multiple-match-alist nil
68  
-  "*Alist mapping regexps to lists of score files.
  68
+  "Alist mapping regexps to lists of score files.
69 69
 Each element of this alist should be of the form
70 70
 	(\"REGEXP\" [ \"SCORE-FILE-1\" ] [ \"SCORE-FILE-2\" ] ... )
71 71
 
@@ -81,18 +81,18 @@ gnus-score-find-score-files-function (which see)."
81 81
   :type '(repeat (cons regexp (repeat file))))
82 82
 
83 83
 (defcustom gnus-score-file-suffix "SCORE"
84  
-  "*Suffix of the score files."
  84
+  "Suffix of the score files."
85 85
   :group 'gnus-score-files
86 86
   :type 'string)
87 87
 
88 88
 (defcustom gnus-adaptive-file-suffix "ADAPT"
89  
-  "*Suffix of the adaptive score files."
  89
+  "Suffix of the adaptive score files."
90 90
   :group 'gnus-score-files
91 91
   :group 'gnus-score-adapt
92 92
   :type 'string)
93 93
 
94 94
 (defcustom gnus-score-find-score-files-function 'gnus-score-find-bnews
95  
-  "*Function used to find score files.
  95
+  "Function used to find score files.
96 96
 The function will be called with the group name as the argument, and
97 97
 should return a list of score files to apply to that group.  The score
98 98
 files do not actually have to exist.
@@ -107,7 +107,11 @@ See the documentation to these functions for more information.
107 107
 
108 108
 This variable can also be a list of functions to be called.  Each
109 109
 function should either return a list of score files, or a list of
110  
-score alists."
  110
+score alists.
  111
+
  112
+If functions other than these pre-defined functions are used,
  113
+the `a' symbolic prefix to the score commands will always use
  114
+\"all.SCORE\"."
111 115
   :group 'gnus-score-files
112 116
   :type '(radio (function-item gnus-score-find-single)
113 117
 		(function-item gnus-score-find-hierarchical)
@@ -162,7 +166,7 @@ It is called with one parameter -- the score to be decayed."
162 166
   :type 'number)
163 167
 
164 168
 (defcustom gnus-home-score-file nil
165  
-  "*Variable to control where interactive score entries are to go.
  169
+  "Variable to control where interactive score entries are to go.
166 170
 It can be:
167 171
 
168 172
  * A string
@@ -199,7 +203,7 @@ It can be:
199 203
 		 (function :value fun)))
200 204
 
201 205
 (defcustom gnus-home-adapt-file nil
202  
-  "*Variable to control where new adaptive score entries are to go.
  206
+  "Variable to control where new adaptive score entries are to go.
203 207
 This variable allows the same syntax as `gnus-home-score-file'."
204 208
   :group 'gnus-score-adapt
205 209
   :group 'gnus-score-files
@@ -226,7 +230,7 @@ This variable allows the same syntax as `gnus-home-score-file'."
226 230
 				   (integer :tag "Score"))))))
227 231
 
228 232
 (defcustom gnus-ignored-adaptive-words nil
229  
-  "*List of words to be ignored when doing adaptive word scoring."
  233
+  "List of words to be ignored when doing adaptive word scoring."
230 234
   :group 'gnus-score-adapt
231 235
   :type '(repeat string))
232 236
 
@@ -260,7 +264,7 @@ This variable allows the same syntax as `gnus-home-score-file'."
260 264
 		     (integer :tag "Score"))))
261 265
 
262 266
 (defcustom gnus-adaptive-word-minimum nil
263  
-  "*If a number, this is the minimum score value that can be assigned to a word."
  267
+  "If a number, this is the minimum score value that can be assigned to a word."
264 268
   :group 'gnus-score-adapt
265 269
   :type '(choice (const nil) integer))
266 270
 
@@ -281,13 +285,13 @@ If this variable is nil, exact matching will always be used."
281 285
   :type '(choice (const nil) integer))
282 286
 
283 287
 (defcustom gnus-score-uncacheable-files "ADAPT$"
284  
-  "*All score files that match this regexp will not be cached."
  288
+  "All score files that match this regexp will not be cached."
285 289
   :group 'gnus-score-adapt
286 290
   :group 'gnus-score-files
287 291
   :type 'regexp)
288 292
 
289 293
 (defcustom gnus-score-default-header nil
290  
-  "*Default header when entering new scores.
  294
+  "Default header when entering new scores.
291 295
 
292 296
 Should be one of the following symbols.
293 297
 
@@ -317,7 +321,7 @@ If nil, the user will be asked for a header."
317 321
 		 (const :tag "ask" nil)))
318 322
 
319 323
 (defcustom gnus-score-default-type nil
320  
-  "*Default match type when entering new scores.
  324
+  "Default match type when entering new scores.
321 325
 
322 326
 Should be one of the following symbols.
323 327
 
@@ -347,12 +351,12 @@ If nil, the user will be asked for a match type."
347 351
 		 (const :tag "ask" nil)))
348 352
 
349 353
 (defcustom gnus-score-default-fold nil
350  
-  "*Use case folding for new score file entries iff not nil."
  354
+  "Use case folding for new score file entries iff not nil."
351 355
   :group 'gnus-score-default
352 356
   :type 'boolean)
353 357
 
354 358
 (defcustom gnus-score-default-duration nil
355  
-  "*Default duration of effect when entering new scores.
  359
+  "Default duration of effect when entering new scores.
356 360
 
357 361
 Should be one of the following symbols.
358 362
 
@@ -368,12 +372,12 @@ If nil, the user will be asked for a duration."
368 372
 		 (const :tag "ask" nil)))
369 373
 
370 374
 (defcustom gnus-score-after-write-file-function nil
371  
-  "*Function called with the name of the score file just written to disk."
  375
+  "Function called with the name of the score file just written to disk."
372 376
   :group 'gnus-score-files
373 377
   :type 'function)
374 378
 
375 379
 (defcustom gnus-score-thread-simplify nil
376  
-  "*If non-nil, subjects will simplified as in threading."
  380
+  "If non-nil, subjects will simplified as in threading."
377 381
   :group 'gnus-score-various
378 382
   :type 'boolean) 
379 383
 
@@ -818,7 +822,7 @@ If optional argument `SILENT' is nil, show effect of score entry."
818 822
 				  (or (nth 1 new)
819 823
 				      gnus-score-interactive-default-score)))
820 824
 	  ;; Nope, we have to add a new elem.
821  
-	  (gnus-score-set header (if old (cons new old) (list new))))
  825
+	  (gnus-score-set header (if old (cons new old) (list new)) nil t))
822 826
 	(gnus-score-set 'touched '(t))))
823 827
 
824 828
     ;; Score the current buffer.
@@ -968,7 +972,7 @@ SCORE is the score to add."
968 972
 	     "references" id 's
969 973
 	     score (current-time-string))))))))
970 974
 
971  
-(defun gnus-score-set (symbol value &optional alist)
  975
+(defun gnus-score-set (symbol value &optional alist warn)
972 976
   ;; Set SYMBOL to VALUE in ALIST.
973 977
   (let* ((alist
974 978
 	  (or alist
@@ -977,7 +981,8 @@ SCORE is the score to add."
977 981
 	 (entry (assoc symbol alist)))
978 982
     (cond ((gnus-score-get 'read-only alist)
979 983
 	   ;; This is a read-only score file, so we do nothing.
980  
-	   )
  984
+	   (when warn
  985
+	     (gnus-message 4 "Note: read-only score file; entry discarded")))
981 986
 	  (entry
982 987
 	   (setcdr entry value))
983 988
 	  ((null alist)
@@ -1143,7 +1148,7 @@ SCORE is the score to add."
1143 1148
 		  (expand-file-name sfile gnus-kill-files-directory)))
1144 1149
 	       exclude-files))
1145 1150
 	     gnus-scores-exclude-files))
1146  
-      (unless local
  1151
+      (when local
1147 1152
 	(save-excursion
1148 1153
 	  (set-buffer gnus-summary-buffer)
1149 1154
 	  (while local
26  lisp/gnus-start.el
@@ -35,13 +35,13 @@
35 35
 (eval-when-compile (require 'cl))
36 36
 
37 37
 (defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc")
38  
-  "*Your `.newsrc' file.
  38
+  "Your `.newsrc' file.
39 39
 `.newsrc-SERVER' will be used instead if that exists."
40 40
   :group 'gnus-start
41 41
   :type 'file)
42 42
 
43 43
 (defcustom gnus-init-file (nnheader-concat gnus-home-directory ".gnus")
44  
-  "*Your Gnus Emacs-Lisp startup file name.
  44
+  "Your Gnus Emacs-Lisp startup file name.
45 45
 If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
46 46
   :group 'gnus-start
47 47
   :type 'file)
@@ -58,7 +58,7 @@ If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
58 58
   :type '(choice file (const nil)))
59 59
 
60 60
 (defcustom gnus-default-subscribed-newsgroups nil
61  
-  "*List of newsgroups to subscribe, when a user runs Gnus the first time.
  61
+  "List of newsgroups to subscribe, when a user runs Gnus the first time.
62 62
 The value should be a list of strings.
63 63
 If it is t, Gnus will not do anything special the first time it is
64 64
 started; it'll just use the normal newsgroups subscription methods."
@@ -289,7 +289,7 @@ hierarchy in its entirety."
289 289
   :type 'boolean)
290 290
 
291 291
 (defcustom gnus-auto-subscribed-groups
292  
-  "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl"
  292
+  "nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl"
293 293
   "*All new groups that match this regexp will be subscribed automatically.
294 294
 Note that this variable only deals with new groups.  It has no effect
295 295
 whatsoever on old groups.
@@ -328,34 +328,34 @@ disc."
328 328
   :type 'boolean)
329 329
 
330 330
 (defcustom gnus-check-bogus-groups-hook nil
331  
-  "*A hook run after removing bogus groups."
  331
+  "A hook run after removing bogus groups."
332 332
   :group 'gnus-start-server
333 333
   :type 'hook)
334 334
 
335 335
 (defcustom gnus-startup-hook nil
336  
-  "*A hook called at startup.
  336
+  "A hook called at startup.
337 337
 This hook is called after Gnus is connected to the NNTP server."
338 338
   :group 'gnus-start
339 339
   :type 'hook)
340 340
 
341 341
 (defcustom gnus-before-startup-hook nil
342  
-  "*A hook called at before startup.
  342
+  "A hook called at before startup.
343 343
 This hook is called as the first thing when Gnus is started."
344 344
   :group 'gnus-start
345 345
   :type 'hook)
346 346
 
347 347
 (defcustom gnus-started-hook nil
348  
-  "*A hook called as the last thing after startup."
  348
+  "A hook called as the last thing after startup."
349 349
   :group 'gnus-start
350 350
   :type 'hook)
351 351
 
352 352
 (defcustom gnus-setup-news-hook nil
353  
-  "*A hook after reading the .newsrc file, but before generating the buffer."
  353
+  "A hook after reading the .newsrc file, but before generating the buffer."
354 354
   :group 'gnus-start
355 355
   :type 'hook)
356 356
 
357 357
 (defcustom gnus-get-new-news-hook nil
358  
-  "*A hook run just before Gnus checks for new news."
  358
+  "A hook run just before Gnus checks for new news."
359 359
   :group 'gnus-group-new
360 360
   :type 'hook)
361 361
 
@@ -367,18 +367,18 @@ This hook is called as the first thing when Gnus is started."
367 367
   :type 'hook)
368 368
 
369 369
 (defcustom gnus-save-newsrc-hook nil
370  
-  "*A hook called before saving any of the newsrc files."
  370
+  "A hook called before saving any of the newsrc files."
371 371
   :group 'gnus-newsrc
372 372
   :type 'hook)
373 373
 
374 374
 (defcustom gnus-save-quick-newsrc-hook nil
375  
-  "*A hook called just before saving the quick newsrc file.
  375
+  "A hook called just before saving the quick newsrc file.
376 376
 Can be used to turn version control on or off."
377 377
   :group 'gnus-newsrc
378 378
   :type 'hook)
379 379
 
380 380
 (defcustom gnus-save-standard-newsrc-hook nil
381  
-  "*A hook called just before saving the standard newsrc file.
  381
+  "A hook called just before saving the standard newsrc file.
382 382
 Can be used to turn version control on or off."
383 383
   :group 'gnus-newsrc
384 384
   :type 'hook)
37  lisp/gnus-sum.el
@@ -121,7 +121,7 @@ comparing subjects."
121 121
 		 (sexp :menu-tag "on" t)))
122 122
 
123 123
 (defcustom gnus-simplify-subject-functions nil
124  
-  "*List of functions taking a string argument that simplify subjects.
  124
+  "List of functions taking a string argument that simplify subjects.
125 125
 The functions are applied recursively."
126 126
   :group 'gnus-thread
127 127
   :type '(repeat (list function)))
@@ -489,7 +489,7 @@ list of parameters to that command."
489 489
   :type 'boolean)
490 490
 
491 491
 (defcustom gnus-summary-dummy-line-format
492  
-  "*  %(:                          :%) %S\n"
  492
+  "  %(:                          :%) %S\n"
493 493
   "*The format specification for the dummy roots in the summary buffer.
494 494
 It works along the same lines as a normal formatting string,
495 495
 with some simple extensions.
@@ -572,14 +572,14 @@ Some functions you can use are `+', `max', or `min'."
572 572
   :type 'function)
573 573
 
574 574
 (defcustom gnus-summary-expunge-below nil
575  
-  "*All articles that have a score less than this variable will be expunged.
  575
+  "All articles that have a score less than this variable will be expunged.
576 576
 This variable is local to the summary buffers."
577 577
   :group 'gnus-score-default
578 578
   :type '(choice (const :tag "off" nil)
579 579
 		 integer))
580 580
 
581 581
 (defcustom gnus-thread-expunge-below nil
582  
-  "*All threads that have a total score less than this variable will be expunged.
  582
+  "All threads that have a total score less than this variable will be expunged.
583 583
 See `gnus-thread-score-function' for en explanation of what a
584 584
 \"thread score\" is.
585 585
 
@@ -657,12 +657,12 @@ is not run if `gnus-visual' is nil."
657 657
   :type 'hook)
658 658
 
659 659
 (defcustom gnus-structured-field-decoder 'identity
660  
-  "*Function to decode non-ASCII characters in structured field for summary."
  660
+  "Function to decode non-ASCII characters in structured field for summary."
661 661
   :group 'gnus-various
662 662
   :type 'function)
663 663
 
664 664
 (defcustom gnus-unstructured-field-decoder 'identity
665  
-  "*Function to decode non-ASCII characters in unstructured field for summary."
  665
+  "Function to decode non-ASCII characters in unstructured field for summary."
666 666
   :group 'gnus-various
667 667
   :type 'function)
668 668
 
@@ -706,7 +706,7 @@ automatically when it is selected."
706 706
   :type 'hook)
707 707
 
708 708
 (defcustom gnus-summary-selected-face 'gnus-summary-selected-face
709  
-  "*Face used for highlighting the current article in the summary buffer."
  709
+  "Face used for highlighting the current article in the summary buffer."
710 710
   :group 'gnus-summary-visual
711 711
   :type 'face)
712 712
 
@@ -734,8 +734,15 @@ automatically when it is selected."
734 734
      . gnus-summary-high-unread-face)
735 735
     ((and (< score default) (= mark gnus-unread-mark))
736 736
      . gnus-summary-low-unread-face)
737  
-    ((memq mark (list gnus-unread-mark gnus-downloadable-mark
738  
-		      gnus-undownloaded-mark))
  737
+    ((= mark gnus-unread-mark)
  738
+     . gnus-summary-normal-unread-face)
  739
+    ((and (> score default) (memq mark (list gnus-downloadable-mark
  740
+					     gnus-undownloaded-mark)))
  741
+     . gnus-summary-high-unread-face)
  742
+    ((and (< score default) (memq mark (list gnus-downloadable-mark
  743
+					     gnus-undownloaded-mark)))
  744
+     . gnus-summary-low-unread-face)
  745
+    ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))
739 746
      . gnus-summary-normal-unread-face)
740 747
     ((> score default)
741 748
      . gnus-summary-high-read-face)
@@ -761,7 +768,7 @@ mark:    The articles mark."
761 768
 		       face)))
762 769
 
763 770
 (defcustom gnus-alter-header-function nil
764  
-  "*Function called to allow alteration of article header structures.
  771
+  "Function called to allow alteration of article header structures.
765 772
 The function is called with one parameter, the article header vector,
766 773
 which it may alter in any way.")
767 774
 
@@ -4346,11 +4353,11 @@ The resulting hash table is returned, or nil if no Xrefs were found."
4346 4353
 	    (progn
4347 4354
 	      (goto-char p)
4348 4355
 	      (setq id (if (re-search-forward
4349  
-			    "^message-id: *\\(<[^\n\t> ]>\\)" nil t)
  4356
+			    "^message-id: *\\(<[^\n\t> ]+>\\)" nil t)
4350 4357
 			   ;; We do it this way to make sure the Message-ID
4351 4358
 			   ;; is (somewhat) syntactically valid.
4352  
-			   (buffer-substring (match-beginning 0)
4353  
-					     (match-end 0))
  4359
+			   (buffer-substring (match-beginning 1)
  4360
+					     (match-end 1))
4354 4361
 			 ;; If there was no message-id, we just fake one
4355 4362
 			 ;; to make subsequent routines simpler.
4356 4363
 			 (nnheader-generate-fake-message-id))))
@@ -5072,6 +5079,7 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
5072 5079
   (interactive)
5073 5080
   (gnus-set-global-variables)
5074 5081
   (gnus-kill-save-kill-buffer)
  5082
+  (gnus-async-halt-prefetch)
5075 5083
   (let* ((group gnus-newsgroup-name)
5076 5084
 	 (quit-config (gnus-group-quit-config gnus-newsgroup-name))
5077 5085
 	 (mode major-mode)
@@ -5157,6 +5165,7 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
5157 5165
     (when (or no-questions
5158 5166
 	      gnus-expert-user
5159 5167
 	      (gnus-y-or-n-p "Discard changes to this group and exit? "))
  5168
+      (gnus-async-halt-prefetch)
5160 5169
       ;; If we have several article buffers, we kill them at exit.
5161 5170
       (unless gnus-single-article-buffer
5162 5171
 	(gnus-kill-buffer gnus-article-buffer)
@@ -7097,7 +7106,7 @@ re-spool using this method."
7097 7106
   (gnus-summary-move-article n nil nil 'crosspost))
7098 7107
 
7099 7108
 (defcustom gnus-summary-respool-default-method nil
7100  
-  "*Default method for respooling an article.
  7109
+  "Default method for respooling an article.
7101 7110
 If nil, use to the current newsgroup method."
7102 7111
   :type `(choice (gnus-select-method :value (nnml ""))
7103 7112
 		 (const nil))
4  lisp/gnus-topic.el
@@ -40,12 +40,12 @@
40 40
   "Minor mode for Gnus group buffers.")
41 41
 
42 42
 (defcustom gnus-topic-mode-hook nil
43  
-  "*Hook run in topic mode buffers."
  43
+  "Hook run in topic mode buffers."
44 44
   :type 'hook
45 45
   :group 'gnus-topic)
46 46
 
47 47
 (defcustom gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n"
48  
-  "*Format of topic lines.
  48
+  "Format of topic lines.
49 49
 It works along the same lines as a normal formatting string,
50 50
 with some simple extensions.
51 51
 
18  lisp/gnus-uu.el
@@ -103,7 +103,7 @@ match."
103 103
   :type '(repeat (group regexp (string :tag "Command"))))
104 104
 
105 105
 (defcustom gnus-uu-user-view-rules nil
106  
-  "*What actions are to be taken to view a file.
  106
+  "What actions are to be taken to view a file.
107 107
 See the documentation on the `gnus-uu-default-view-rules' variable for
108 108
 details."
109 109
   :group 'gnus-extract-view
@@ -137,7 +137,7 @@ details."
137 137
   (list "uncompress" "gunzip"))
138 138
 
139 139
 (defcustom gnus-uu-user-archive-rules nil
140  
-  "*A list that can be set to override the default archive unpacking commands.
  140
+  "A list that can be set to override the default archive unpacking commands.
141 141
 To use, for instance, 'untar' to unpack tar files and 'zip -x' to
142 142
 unpack zip files, say the following:
143 143
   (setq gnus-uu-user-archive-rules
@@ -234,7 +234,7 @@ Only the user viewing rules will be consulted.  Default is nil."
234 234
   :type 'boolean)
235 235
 
236 236
 (defcustom gnus-uu-grabbed-file-functions nil
237  
-  "*Functions run on each file after successful decoding.
  237
+  "Functions run on each file after successful decoding.
238 238
 They will be called with the name of the file as the argument.
239 239
 Likely functions you can use in this list are `gnus-uu-grab-view'
240 240
 and `gnus-uu-grab-move'."
@@ -284,7 +284,7 @@ so I simply dropped them."
284 284
   :type 'boolean)
285 285
 
286 286
 (defcustom gnus-uu-pre-uudecode-hook nil
287  
-  "*Hook run before sending a message to uudecode."
  287
+  "Hook run before sending a message to uudecode."
288 288
   :group 'gnus-extract
289 289
   :type 'hook)
290 290
 
@@ -1749,7 +1749,7 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
1749 1749
 ;; and "spiral.jpg", respectively.) The function should return nil if
1750 1750
 ;; the encoding wasn't successful.
1751 1751
 (defcustom gnus-uu-post-encode-method 'gnus-uu-post-encode-uuencode
1752  
-  "*Function used for encoding binary files.
  1752
+  "Function used for encoding binary files.
1753 1753
 There are three functions supplied with gnus-uu for encoding files:
1754 1754
 `gnus-uu-post-encode-uuencode', which does straight uuencoding;
1755 1755
 `gnus-uu-post-encode-mime', which encodes with base64 and adds MIME
@@ -1762,21 +1762,21 @@ uuencode and adds MIME headers."
1762 1762
 		(function :tag "Other")))
1763 1763
 
1764 1764
 (defcustom gnus-uu-post-include-before-composing nil
1765  
-  "*Non-nil means that gnus-uu will ask for a file to encode before you compose the article.
  1765
+  "Non-nil means that gnus-uu will ask for a file to encode before you compose the article.
1766 1766
 If this variable is t, you can either include an encoded file with
1767 1767
 \\[gnus-uu-post-insert-binary-in-article] or have one included for you when you post the article."
1768 1768
   :group 'gnus-extract-post
1769 1769
   :type 'boolean)
1770 1770
 
1771 1771
 (defcustom gnus-uu-post-length 990
1772  
-  "*Maximum length of an article.
  1772
+  "Maximum length of an article.
1773 1773
 The encoded file will be split into how many articles it takes to
1774 1774
 post the entire file."
1775 1775
   :group 'gnus-extract-post
1776 1776
   :type 'integer)
1777 1777
 
1778 1778
 (defcustom gnus-uu-post-threaded nil
1779  
-  "*Non-nil means that gnus-uu will post the encoded file in a thread.
  1779
+  "Non-nil means that gnus-uu will post the encoded file in a thread.
1780 1780
 This may not be smart, as no other decoder I have seen are able to
1781 1781
 follow threads when collecting uuencoded articles.  (Well, I have seen
1782 1782
 one package that does that - gnus-uu, but somehow, I don't think that
@@ -1785,7 +1785,7 @@ counts...)  The default is nil."
1785 1785
   :type 'boolean)
1786 1786
 
1787 1787
 (defcustom gnus-uu-post-separate-description t
1788  
-  "*Non-nil means that the description will be posted in a separate article.
  1788
+  "Non-nil means that the description will be posted in a separate article.
1789 1789
 The first article will typically be numbered (0/x).  If this variable
1790 1790
 is nil, the description the user enters will be included at the
1791 1791
 beginning of the first article, which will be numbered (1/x).  Default
2  lisp/gnus-xmas.el
@@ -34,7 +34,7 @@
34 34
   :group 'gnus)
35 35
 
36 36
 (defcustom gnus-xmas-glyph-directory nil
37  
-  "*Directory where Gnus logos and icons are located.
  37
+  "Directory where Gnus logos and icons are located.
38 38
 If this variable is nil, Gnus will try to locate the directory
39 39
 automatically."
40 40
   :type '(choice (const :tag "autodetect" nil)
36  lisp/gnus.el