]> code.delx.au - gnu-emacs/blobdiff - lisp/gnus/gnus-sum.el
Remove obsolete leading * from defcustom, defface doc strings.
[gnu-emacs] / lisp / gnus / gnus-sum.el
index 67b4268dbd98a7cced3d0da00e06009216031849..a81a4e24c41f852c050b50a89dccea3d36172b09 100644 (file)
@@ -56,7 +56,7 @@
 (autoload 'nnir-article-group "nnir" nil nil 'macro)
 
 (defcustom gnus-kill-summary-on-exit t
-  "*If non-nil, kill the summary buffer when you exit from it.
+  "If non-nil, kill the summary buffer when you exit from it.
 If nil, the summary will become a \"*Dead Summary*\" buffer, and
 it will be killed sometime later."
   :group 'gnus-summary-exit
@@ -78,7 +78,7 @@ See `gnus-group-goto-unread'."
   :type 'boolean)
 
 (defcustom gnus-fetch-old-headers nil
-  "*Non-nil means that Gnus will try to build threads by grabbing old headers.
+  "Non-nil means that Gnus will try to build threads by grabbing old headers.
 If an unread article in the group refers to an older, already
 read (or just marked as read) article, the old article will not
 normally be displayed in the Summary buffer.  If this variable is
@@ -105,14 +105,14 @@ leads to very slow summary generation."
                 (sexp :menu-tag "other" t)))
 
 (defcustom gnus-refer-thread-limit 500
-  "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
+  "The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
 If t, fetch all the available old headers."
   :group 'gnus-thread
   :type '(choice number
                 (sexp :menu-tag "other" t)))
 
 (defcustom gnus-refer-thread-use-nnir nil
-  "*Use nnir to search an entire server when referring threads. A
+  "Use nnir to search an entire server when referring threads. A
 nil value will only search for thread-related articles in the
 current group."
   :version "24.1"
@@ -120,7 +120,7 @@ current group."
   :type 'boolean)
 
 (defcustom gnus-summary-make-false-root 'adopt
-  "*nil means that Gnus won't gather loose threads.
+  "nil means that Gnus won't gather loose threads.
 If the root of a thread has expired or been read in a previous
 session, the information necessary to build a complete thread has been
 lost.  Instead of having many small sub-threads from this original thread
@@ -155,7 +155,7 @@ given by the `gnus-summary-same-subject' variable.)"
   :type 'boolean)
 
 (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
-  "*A regexp to match subjects to be excluded from loose thread gathering.
+  "A regexp to match subjects to be excluded from loose thread gathering.
 As loose thread gathering is done on subjects only, that means that
 there can be many false gatherings performed.  By rooting out certain
 common subjects, gathering might become saner."
@@ -163,7 +163,7 @@ common subjects, gathering might become saner."
   :type 'regexp)
 
 (defcustom gnus-summary-gather-subject-limit nil
-  "*Maximum length of subject comparisons when gathering loose threads.
+  "Maximum length of subject comparisons when gathering loose threads.
 Use nil to compare full subjects.  Setting this variable to a low
 number will help gather threads that have been corrupted by
 newsreaders chopping off subject lines, but it might also mean that
@@ -188,13 +188,13 @@ Useful functions to put in this list include:
   :type '(repeat function))
 
 (defcustom gnus-simplify-ignored-prefixes nil
-  "*Remove matches for this regexp from subject lines when simplifying fuzzily."
+  "Remove matches for this regexp from subject lines when simplifying fuzzily."
   :group 'gnus-thread
   :type '(choice (const :tag "off" nil)
                 regexp))
 
 (defcustom gnus-build-sparse-threads nil
-  "*If non-nil, fill in the gaps in threads.
+  "If non-nil, fill in the gaps in threads.
 If `some', only fill in the gaps that are needed to tie loose threads
 together.  If `more', fill in all leaf nodes that Gnus can find.  If
 non-nil and non-`some', fill in all gaps that Gnus manages to guess."
@@ -206,7 +206,7 @@ non-nil and non-`some', fill in all gaps that Gnus manages to guess."
 
 (defcustom gnus-summary-thread-gathering-function
   'gnus-gather-threads-by-subject
-  "*Function used for gathering loose threads.
+  "Function used for gathering loose threads.
 There are two pre-defined functions: `gnus-gather-threads-by-subject',
 which only takes Subjects into consideration; and
 `gnus-gather-threads-by-references', which compared the References
@@ -217,14 +217,14 @@ headers of the articles to find matches."
                (function :tag "other")))
 
 (defcustom gnus-summary-same-subject ""
-  "*String indicating that the current article has the same subject as the previous.
+  "String indicating that the current article has the same subject as the previous.
 This variable will only be used if the value of
 `gnus-summary-make-false-root' is `empty'."
   :group 'gnus-summary-format
   :type 'string)
 
 (defcustom gnus-summary-goto-unread nil
-  "*If t, many commands will go to the next unread article.
+  "If t, many commands will go to the next unread article.
 This applies to marking commands as well as other commands that
 \"naturally\" select the next article, like, for instance, `SPC' at
 the end of an article.
@@ -241,7 +241,7 @@ whether it is read or not."
                 (sexp :menu-tag "on" t)))
 
 (defcustom gnus-summary-default-score 0
-  "*Default article score level.
+  "Default article score level.
 All scores generated by the score files will be added to this score.
 If this variable is nil, scoring will be disabled."
   :group 'gnus-score-default
@@ -249,7 +249,7 @@ If this variable is nil, scoring will be disabled."
                 integer))
 
 (defcustom gnus-summary-default-high-score 0
-  "*Default threshold for a high scored article.
+  "Default threshold for a high scored article.
 An article will be highlighted as high scored if its score is greater
 than this score."
   :version "22.1"
@@ -257,7 +257,7 @@ than this score."
   :type 'integer)
 
 (defcustom gnus-summary-default-low-score 0
-  "*Default threshold for a low scored article.
+  "Default threshold for a low scored article.
 An article will be highlighted as low scored if its score is smaller
 than this score."
   :version "22.1"
@@ -265,14 +265,14 @@ than this score."
   :type 'integer)
 
 (defcustom gnus-summary-zcore-fuzz 0
-  "*Fuzziness factor for the zcore in the summary buffer.
+  "Fuzziness factor for the zcore in the summary buffer.
 Articles with scores closer than this to `gnus-summary-default-score'
 will not be marked."
   :group 'gnus-summary-format
   :type 'integer)
 
 (defcustom gnus-simplify-subject-fuzzy-regexp nil
-  "*Strings to be removed when doing fuzzy matches.
+  "Strings to be removed when doing fuzzy matches.
 This can either be a regular expression or list of regular expressions
 that will be removed from subject strings if fuzzy subject
 simplification is selected."
@@ -280,12 +280,12 @@ simplification is selected."
   :type '(repeat regexp))
 
 (defcustom gnus-show-threads t
-  "*If non-nil, display threads in summary mode."
+  "If non-nil, display threads in summary mode."
   :group 'gnus-thread
   :type 'boolean)
 
 (defcustom gnus-thread-hide-subtree nil
-  "*If non-nil, hide all threads initially.
+  "If non-nil, hide all threads initially.
 This can be a predicate specifier which says which threads to hide.
 If threads are hidden, you have to run the command
 `gnus-summary-show-thread' by hand or select an article."
@@ -298,19 +298,19 @@ If threads are hidden, you have to run the command
                (sexp :tag "Predicate specifier")))
 
 (defcustom gnus-thread-hide-killed t
-  "*If non-nil, hide killed threads automatically."
+  "If non-nil, hide killed threads automatically."
   :group 'gnus-thread
   :type 'boolean)
 
 (defcustom gnus-thread-ignore-subject t
-  "*If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
+  "If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
 If nil, articles that have different subjects from their parents will
 start separate threads."
   :group 'gnus-thread
   :type 'boolean)
 
 (defcustom gnus-thread-operation-ignore-subject t
-  "*If non-nil, subjects will be ignored when doing thread commands.
+  "If non-nil, subjects will be ignored when doing thread commands.
 This affects commands like `gnus-summary-kill-thread' and
 `gnus-summary-lower-thread'.
 
@@ -324,12 +324,12 @@ equal will be included."
                 (sexp :tag "on" t)))
 
 (defcustom gnus-thread-indent-level 4
-  "*Number that says how much each sub-thread should be indented."
+  "Number that says how much each sub-thread should be indented."
   :group 'gnus-thread
   :type 'integer)
 
 (defcustom gnus-auto-extend-newsgroup t
-  "*If non-nil, extend newsgroup forward and backward when requested."
+  "If non-nil, extend newsgroup forward and backward when requested."
   :group 'gnus-summary-choose
   :type 'boolean)
 
@@ -353,7 +353,7 @@ newsgroups, set the variable to nil in `gnus-select-group-hook'."
                 (sexp :menu-tag "first" t)))
 
 (defcustom gnus-auto-select-subject 'unseen-or-unread
-  "*Says what subject to place under point when entering a group.
+  "Says what subject to place under point when entering a group.
 
 This variable can either be the symbols `first' (place point on the
 first subject), `unread' (place point on the subject line of the first
@@ -373,7 +373,7 @@ place point on some subject line."
                 (function :tag "Function to call")))
 
 (defcustom gnus-auto-select-next t
-  "*If non-nil, offer to go to the next group from the end of the previous.
+  "If non-nil, offer to go to the next group from the end of the previous.
 If the value is t and the next newsgroup is empty, Gnus will exit
 summary mode and go back to group mode.  If the value is neither nil
 nor t, Gnus will select the following unread newsgroup.  In
@@ -391,7 +391,7 @@ will go to the next group without confirmation."
                 (sexp :menu-tag "on" t)))
 
 (defcustom gnus-auto-select-same nil
-  "*If non-nil, select the next article with the same subject.
+  "If non-nil, select the next article with the same subject.
 If there are no more articles with the same subject, go to
 the first unread article."
   :group 'gnus-summary-maneuvering
@@ -420,7 +420,7 @@ article selected before entering to the ephemeral group will appear."
                 (sexp :tag "other" :value nil)))
 
 (defcustom gnus-auto-goto-ignores 'unfetched
-  "*Says how to handle unfetched articles when maneuvering.
+  "Says how to handle unfetched articles when maneuvering.
 
 This variable can either be the symbols nil (maneuver to any
 article), `undownloaded' (maneuvering while unplugged ignores articles
@@ -438,7 +438,7 @@ and, when unplugged, a subset of the undownloaded article list."
                  (const :tag "Unfetched" unfetched)))
 
 (defcustom gnus-summary-check-current nil
-  "*If non-nil, consider the current article when moving.
+  "If non-nil, consider the current article when moving.
 The \"unread\" movement commands will stay on the same line if the
 current article is unread."
   :group 'gnus-summary-maneuvering
@@ -446,7 +446,7 @@ current article is unread."
 
 (defcustom gnus-auto-center-summary
   (max (or (bound-and-true-p scroll-margin) 0) 2)
-  "*If non-nil, always center the current summary buffer.
+  "If non-nil, always center the current summary buffer.
 In particular, if `vertical' do only vertical recentering.  If non-nil
 and non-`vertical', do both horizontal and vertical recentering."
   :group 'gnus-summary-maneuvering
@@ -461,18 +461,18 @@ and non-`vertical', do both horizontal and vertical recentering."
   :type 'boolean)
 
 (defcustom gnus-show-all-headers nil
-  "*If non-nil, don't hide any headers."
+  "If non-nil, don't hide any headers."
   :group 'gnus-article-hiding
   :group 'gnus-article-headers
   :type 'boolean)
 
 (defcustom gnus-summary-ignore-duplicates nil
-  "*If non-nil, ignore articles with identical Message-ID headers."
+  "If non-nil, ignore articles with identical Message-ID headers."
   :group 'gnus-summary
   :type 'boolean)
 
 (defcustom gnus-single-article-buffer nil
-  "*If non-nil, display all articles in the same buffer.
+  "If non-nil, display all articles in the same buffer.
 If nil, each group will get its own article buffer."
   :version "24.1"
   :group 'gnus-article-various
@@ -485,14 +485,14 @@ If nil, each group will get its own article buffer."
   :type 'boolean)
 
 (defcustom gnus-break-pages t
-  "*If non-nil, do page breaking on articles.
+  "If non-nil, do page breaking on articles.
 The page delimiter is specified by the `gnus-page-delimiter'
 variable."
   :group 'gnus-article-various
   :type 'boolean)
 
 (defcustom gnus-move-split-methods nil
-  "*Variable used to suggest where articles are to be moved to.
+  "Variable used to suggest where articles are to be moved to.
 It uses the same syntax as the `gnus-split-methods' variable.
 However, whereas `gnus-split-methods' specifies file names as targets,
 this variable specifies group names."
@@ -512,163 +512,163 @@ string with the suggested prefix."
 ;; using multibyte characters (Latin-1, UTF-8) doesn't work.  -- rs
 
 (defcustom gnus-unread-mark ?           ;Whitespace
-  "*Mark used for unread articles."
+  "Mark used for unread articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-ticked-mark ?!
-  "*Mark used for ticked articles."
+  "Mark used for ticked articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-dormant-mark ??
-  "*Mark used for dormant articles."
+  "Mark used for dormant articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-del-mark ?r
-  "*Mark used for del'd articles."
+  "Mark used for del'd articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-read-mark ?R
-  "*Mark used for read articles."
+  "Mark used for read articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-expirable-mark ?E
-  "*Mark used for expirable articles."
+  "Mark used for expirable articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-killed-mark ?K
-  "*Mark used for killed articles."
+  "Mark used for killed articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-spam-mark ?$
-  "*Mark used for spam articles."
+  "Mark used for spam articles."
   :version "22.1"
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-kill-file-mark ?X
-  "*Mark used for articles killed by kill files."
+  "Mark used for articles killed by kill files."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-low-score-mark ?Y
-  "*Mark used for articles with a low score."
+  "Mark used for articles with a low score."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-catchup-mark ?C
-  "*Mark used for articles that are caught up."
+  "Mark used for articles that are caught up."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-replied-mark ?A
-  "*Mark used for articles that have been replied to."
+  "Mark used for articles that have been replied to."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-forwarded-mark ?F
-  "*Mark used for articles that have been forwarded."
+  "Mark used for articles that have been forwarded."
   :version "22.1"
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-recent-mark ?N
-  "*Mark used for articles that are recent."
+  "Mark used for articles that are recent."
   :version "22.1"
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-cached-mark ?*
-  "*Mark used for articles that are in the cache."
+  "Mark used for articles that are in the cache."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-saved-mark ?S
-  "*Mark used for articles that have been saved."
+  "Mark used for articles that have been saved."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-unseen-mark ?.
-  "*Mark used for articles that haven't been seen."
+  "Mark used for articles that haven't been seen."
   :version "22.1"
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-no-mark ?               ;Whitespace
-  "*Mark used for articles that have no other secondary mark."
+  "Mark used for articles that have no other secondary mark."
   :version "22.1"
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-ancient-mark ?O
-  "*Mark used for ancient articles."
+  "Mark used for ancient articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-sparse-mark ?Q
-  "*Mark used for sparsely reffed articles."
+  "Mark used for sparsely reffed articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-canceled-mark ?G
-  "*Mark used for canceled articles."
+  "Mark used for canceled articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-duplicate-mark ?M
-  "*Mark used for duplicate articles."
+  "Mark used for duplicate articles."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-undownloaded-mark ?-
-  "*Mark used for articles that weren't downloaded."
+  "Mark used for articles that weren't downloaded."
   :version "22.1"
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-downloaded-mark ?+
-  "*Mark used for articles that were downloaded."
+  "Mark used for articles that were downloaded."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-downloadable-mark ?%
-  "*Mark used for articles that are to be downloaded."
+  "Mark used for articles that are to be downloaded."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-unsendable-mark ?=
-  "*Mark used for articles that won't be sent."
+  "Mark used for articles that won't be sent."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-score-over-mark ?+
-  "*Score mark used for articles with high scores."
+  "Score mark used for articles with high scores."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-score-below-mark ?-
-  "*Score mark used for articles with low scores."
+  "Score mark used for articles with low scores."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-empty-thread-mark ?     ;Whitespace
-  "*There is no thread under the article."
+  "There is no thread under the article."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-not-empty-thread-mark ?=
-  "*There is a thread under the article."
+  "There is a thread under the article."
   :group 'gnus-summary-marks
   :type 'character)
 
 (defcustom gnus-view-pseudo-asynchronously nil
-  "*If non-nil, Gnus will view pseudo-articles asynchronously."
+  "If non-nil, Gnus will view pseudo-articles asynchronously."
   :group 'gnus-extract-view
   :type 'boolean)
 
@@ -676,13 +676,13 @@ string with the suggested prefix."
   (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
        gnus-low-score-mark gnus-ancient-mark gnus-read-mark
        gnus-duplicate-mark)
-  "*The list of marks converted into expiration if a group is auto-expirable."
+  "The list of marks converted into expiration if a group is auto-expirable."
   :version "24.1"
   :group 'gnus-summary
   :type '(repeat character))
 
 (defcustom gnus-inhibit-user-auto-expire t
-  "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
+  "If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
   :version "21.1"
   :group 'gnus-summary
   :type 'boolean)
@@ -699,7 +699,7 @@ which auto-expire is turned on."
   :group 'gnus-summary-marks)
 
 (defcustom gnus-view-pseudos nil
-  "*If `automatic', pseudo-articles will be viewed automatically.
+  "If `automatic', pseudo-articles will be viewed automatically.
 If `not-confirm', pseudos will be viewed automatically, and the user
 will not be asked to confirm the command."
   :group 'gnus-extract-view
@@ -708,20 +708,20 @@ will not be asked to confirm the command."
                 (const not-confirm)))
 
 (defcustom gnus-view-pseudos-separately t
-  "*If non-nil, one pseudo-article will be created for each file to be viewed.
+  "If non-nil, one pseudo-article will be created for each file to be viewed.
 If nil, all files that use the same viewing command will be given as a
 list of parameters to that command."
   :group 'gnus-extract-view
   :type 'boolean)
 
 (defcustom gnus-insert-pseudo-articles t
-  "*If non-nil, insert pseudo-articles when decoding articles."
+  "If non-nil, insert pseudo-articles when decoding articles."
   :group 'gnus-extract-view
   :type 'boolean)
 
 (defcustom gnus-summary-dummy-line-format
   "   %(:                             :%) %S\n"
-  "*The format specification for the dummy roots in the summary buffer.
+  "The format specification for the dummy roots in the summary buffer.
 It works along the same lines as a normal formatting string,
 with some simple extensions.
 
@@ -734,7 +734,7 @@ See `(gnus)Formatting Variables'."
   :type 'string)
 
 (defcustom gnus-summary-mode-line-format "Gnus: %g [%A] %Z"
-  "*The format specification for the summary mode line.
+  "The format specification for the summary mode line.
 It works along the same lines as a normal formatting string,
 with some simple extensions:
 
@@ -767,7 +767,7 @@ This can also be a list of regexps."
                 (repeat :value (".*") regexp)))
 
 (defcustom gnus-summary-mark-below 0
-  "*Mark all articles with a score below this variable as read.
+  "Mark all articles with a score below this variable as read.
 This variable is local to each summary buffer and usually set by the
 score file."
   :group 'gnus-score-default
@@ -808,7 +808,7 @@ VALUE should have the form `(FOO nil)' or `(FOO t)', where FOO is an atom.
   :value-to-external 'gnus-widget-reversible-to-external)
 
 (defcustom gnus-article-sort-functions '(gnus-article-sort-by-number)
-  "*List of functions used for sorting articles in the summary buffer.
+  "List of functions used for sorting articles in the summary buffer.
 
 Each function takes two articles and returns non-nil if the first
 article should be sorted before the other.  If you use more than one
@@ -841,7 +841,7 @@ controls how articles are sorted."
                   (boolean :tag "Reverse order"))))
 
 (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
-  "*List of functions used for sorting threads in the summary buffer.
+  "List of functions used for sorting threads in the summary buffer.
 By default, threads are sorted by article number.
 
 Each function takes two threads and returns non-nil if the first
@@ -887,7 +887,7 @@ subthreads, customize `gnus-subthread-sort-functions'."
            (boolean :tag "Reverse order"))))
 
 (defcustom gnus-subthread-sort-functions 'gnus-thread-sort-functions
-  "*List of functions used for sorting subthreads in the summary buffer.
+  "List of functions used for sorting subthreads in the summary buffer.
 By default, subthreads are sorted the same as threads, i.e.,
 according to the value of `gnus-thread-sort-functions'."
   :version "24.4"
@@ -910,7 +910,7 @@ according to the value of `gnus-thread-sort-functions'."
            (boolean :tag "Reverse order")))))
 
 (defcustom gnus-thread-score-function '+
-  "*Function used for calculating the total score of a thread.
+  "Function used for calculating the total score of a thread.
 
 The function is called with the scores of the article and each
 subthread and should then return the score of the thread.
@@ -938,43 +938,43 @@ This variable is local to the summary buffers."
                 integer))
 
 (defcustom gnus-summary-mode-hook nil
-  "*A hook for Gnus summary mode.
+  "A hook for Gnus summary mode.
 This hook is run before any variables are set in the summary buffer."
   :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
   :group 'gnus-summary-various
   :type 'hook)
 
 (defcustom gnus-summary-menu-hook nil
-  "*Hook run after the creation of the summary mode menu."
+  "Hook run after the creation of the summary mode menu."
   :group 'gnus-summary-visual
   :type 'hook)
 
 (defcustom gnus-summary-exit-hook nil
-  "*A hook called on exit from the summary buffer.
+  "A hook called on exit from the summary buffer.
 It will be called with point in the group buffer."
   :group 'gnus-summary-exit
   :type 'hook)
 
 (defcustom gnus-summary-prepare-hook nil
-  "*A hook called after the summary buffer has been generated.
+  "A hook called after the summary buffer has been generated.
 If you want to modify the summary buffer, you can use this hook."
   :group 'gnus-summary-various
   :type 'hook)
 
 (defcustom gnus-summary-prepared-hook nil
-  "*A hook called as the last thing after the summary buffer has been generated."
+  "A hook called as the last thing after the summary buffer has been generated."
   :group 'gnus-summary-various
   :type 'hook)
 
 (defcustom gnus-summary-generate-hook nil
-  "*A hook run just before generating the summary buffer.
+  "A hook run just before generating the summary buffer.
 This hook is commonly used to customize threading variables and the
 like."
   :group 'gnus-summary-various
   :type 'hook)
 
 (defcustom gnus-select-group-hook nil
-  "*A hook called when a newsgroup is selected.
+  "A hook called when a newsgroup is selected.
 
 If you'd like to simplify subjects like the
 `gnus-summary-next-same-subject' command does, you can use the
@@ -992,32 +992,32 @@ following hook:
   :type 'hook)
 
 (defcustom gnus-select-article-hook nil
-  "*A hook called when an article is selected."
+  "A hook called when an article is selected."
   :group 'gnus-summary-choose
   :options '(gnus-agent-fetch-selected-article)
   :type 'hook)
 
 (defcustom gnus-visual-mark-article-hook
   (list 'gnus-highlight-selected-summary)
-  "*Hook run after selecting an article in the summary buffer.
+  "Hook run after selecting an article in the summary buffer.
 It is meant to be used for highlighting the article in some way.  It
 is not run if `gnus-visual' is nil."
   :group 'gnus-summary-visual
   :type 'hook)
 
 (defcustom gnus-parse-headers-hook nil
-  "*A hook called before parsing the headers."
+  "A hook called before parsing the headers."
   :group 'gnus-various
   :type 'hook)
 
 (defcustom gnus-exit-group-hook nil
-  "*A hook called when exiting summary mode.
+  "A hook called when exiting summary mode.
 This hook is not called from the non-updating exit commands like `Q'."
   :group 'gnus-various
   :type 'hook)
 
 (defcustom gnus-summary-update-hook nil
-  "*A hook called when a summary line is changed.
+  "A hook called when a summary line is changed.
 The hook will not be called if `gnus-visual' is nil.
 
 The default function `gnus-summary-highlight-line' will
@@ -1027,42 +1027,42 @@ variable."
   :type 'hook)
 
 (defcustom gnus-mark-article-hook '(gnus-summary-mark-read-and-unread-as-read)
-  "*A hook called when an article is selected for the first time.
+  "A hook called when an article is selected for the first time.
 The hook is intended to mark an article as read (or unread)
 automatically when it is selected."
   :group 'gnus-summary-choose
   :type 'hook)
 
 (defcustom gnus-group-no-more-groups-hook nil
-  "*A hook run when returning to group mode having no more (unread) groups."
+  "A hook run when returning to group mode having no more (unread) groups."
   :group 'gnus-group-select
   :type 'hook)
 
 (defcustom gnus-ps-print-hook nil
-  "*A hook run before ps-printing something from Gnus."
+  "A hook run before ps-printing something from Gnus."
   :group 'gnus-summary
   :type 'hook)
 
 (defcustom gnus-summary-article-move-hook nil
-  "*A hook called after an article is moved, copied, respooled, or crossposted."
+  "A hook called after an article is moved, copied, respooled, or crossposted."
   :version "22.1"
   :group 'gnus-summary
   :type 'hook)
 
 (defcustom gnus-summary-article-delete-hook nil
-  "*A hook called after an article is deleted."
+  "A hook called after an article is deleted."
   :version "22.1"
   :group 'gnus-summary
   :type 'hook)
 
 (defcustom gnus-summary-article-expire-hook nil
-  "*A hook called after an article is expired."
+  "A hook called after an article is expired."
   :version "22.1"
   :group 'gnus-summary
   :type 'hook)
 
 (defcustom gnus-summary-display-arrow (display-graphic-p)
-  "*If non-nil, display an arrow highlighting the current article."
+  "If non-nil, display an arrow highlighting the current article."
   :version "22.1"
   :group 'gnus-summary
   :type 'boolean)
@@ -1112,7 +1112,7 @@ automatically when it is selected."
      . gnus-summary-low-read)
     (t
      . gnus-summary-normal-read))
-  "*Controls the highlighting of summary buffer lines.
+  "Controls the highlighting of summary buffer lines.
 
 A list of (FORM . FACE) pairs.  When deciding how a particular
 summary line should be displayed, each form is evaluated.  The content
@@ -1148,7 +1148,7 @@ which it may alter in any way."
   "Function used to decode addresses with encoded words.")
 
 (defcustom gnus-extra-headers '(To Cc Keywords Gcc Newsgroups X-GM-LABELS)
-  "*Extra headers to parse."
+  "Extra headers to parse."
   :version "25.1"
   :group 'gnus-summary
   :type '(repeat symbol))
@@ -1157,7 +1157,7 @@ which it may alter in any way."
   (and user-mail-address
        (not (string= user-mail-address ""))
        (regexp-quote user-mail-address))
-  "*From headers that may be suppressed in favor of To headers.
+  "From headers that may be suppressed in favor of To headers.
 This can be a regexp, a list of regexps or a function.
 
 If a function, an email string is passed as the argument."
@@ -1173,14 +1173,14 @@ If a function, an email string is passed as the argument."
         (t (gmm-regexp-concat gnus-ignored-from-addresses))))
 
 (defcustom gnus-summary-to-prefix "-> "
-  "*String prefixed to the To field in the summary line when
+  "String prefixed to the To field in the summary line when
 using `gnus-ignored-from-addresses'."
   :version "22.1"
   :group 'gnus-summary
   :type 'string)
 
 (defcustom gnus-summary-newsgroup-prefix "=> "
-  "*String prefixed to the Newsgroup field in the summary
+  "String prefixed to the Newsgroup field in the summary
 line when using the option `gnus-ignored-from-addresses'."
   :version "22.1"
   :group 'gnus-summary
@@ -1264,13 +1264,13 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
   :group 'gnus-summary)
 
 (defcustom gnus-orphan-score nil
-  "*All orphans get this score added.  Set in the score file."
+  "All orphans get this score added.  Set in the score file."
   :group 'gnus-score-default
   :type '(choice (const nil)
                 integer))
 
 (defcustom gnus-summary-save-parts-default-mime "image/.*"
-  "*A regexp to match MIME parts when saving multiple parts of a
+  "A regexp to match MIME parts when saving multiple parts of a
 message with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).
 This regexp will be used by default when prompting the user for which
 type of files to save."