Remove obsolete leading * from defcustom, defface doc strings.

* lisp/cedet/ede/linux.el, lisp/cedet/ede/project-am.el: * lisp/cedet/ede/simple.el, lisp/cedet/semantic/bovine/c.el: * lisp/cedet/semantic/complete.el, lisp/cedet/semantic/db.el: * lisp/cedet/semantic/decorate/include.el: * lisp/cedet/semantic/decorate/mode.el, lisp/cedet/semantic/format.el: * lisp/cedet/semantic/ia.el, lisp/cedet/semantic/idle.el: * lisp/cedet/semantic/imenu.el, lisp/cedet/semantic/lex-spp.el: * lisp/cedet/semantic/mru-bookmark.el, lisp/cedet/semantic/sb.el: * lisp/cedet/srecode/fields.el, lisp/ecomplete.el: * lisp/gnus/gnus-agent.el, lisp/gnus/gnus-art.el: * lisp/gnus/gnus-async.el, lisp/gnus/gnus-cache.el: * lisp/gnus/gnus-cite.el, lisp/gnus/gnus-delay.el: * lisp/gnus/gnus-diary.el, lisp/gnus/gnus-dup.el: * lisp/gnus/gnus-fun.el, lisp/gnus/gnus-group.el: * lisp/gnus/gnus-kill.el, lisp/gnus/gnus-msg.el: * lisp/gnus/gnus-picon.el, lisp/gnus/gnus-salt.el: * lisp/gnus/gnus-score.el, lisp/gnus/gnus-start.el: * lisp/gnus/gnus-sum.el, lisp/gnus/gnus-topic.el: * lisp/gnus/gnus-util.el, lisp/gnus/gnus-uu.el, lisp/gnus/gnus-win.el: * lisp/gnus/gnus.el, lisp/gnus/mail-source.el, lisp/gnus/message.el: * lisp/gnus/mm-url.el, lisp/gnus/mm-uu.el, lisp/gnus/mml.el: * lisp/gnus/nndiary.el, lisp/gnus/nnir.el, lisp/gnus/nnmail.el: * lisp/gnus/smiley.el, lisp/gnus/smime.el, lisp/mail/mail-extr.el: * lisp/mh-e/mh-e.el, lisp/net/mailcap.el, lisp/net/pop3.el: * lisp/net/starttls.el, lisp/progmodes/cc-vars.el: * lisp/progmodes/cperl-mode.el, test/manual/cedet/tests/test.el: Remove obsolete leading * from defcustom, defface doc strings.
author: Glenn Morris 2016-06-09 20:13:12 -0400
committer: Glenn Morris 2016-06-09 20:13:12 -0400
commit: f9af5eddc835bbed2ca100838f8f294901b60c2d (patch)
tree: 35c399aced8ccdc46ed933a76d297d3572887db4
parent: 1c09423880e1c48d6ba02a196430e829d1d87d57 (diff)
download: emacs-f9af5eddc835bbed2ca100838f8f294901b60c2d.tar.gz
emacs-f9af5eddc835bbed2ca100838f8f294901b60c2d.zip
57 files changed, 647 insertions, 647 deletions
diff --git a/lisp/cedet/ede/linux.el b/lisp/cedet/ede/linux.el
index 010bfde54dc..d7ea35a43f7 100644
--- a/lisp/cedet/ede/linux.el
+++ b/lisp/cedet/ede/linux.el
@@ -64,12 +64,12 @@
 (defcustom project-linux-compile-target-command (concat ede-make-command " -k -C %s SUBDIRS=%s")
-  "*Default command used to compile a target."
+  "Default command used to compile a target."
  :group 'project-linux
  :type 'string)
 (defcustom project-linux-compile-project-command (concat ede-make-command " -k -C %s")
-  "*Default command used to compile a project."
+  "Default command used to compile a project."
  :group 'project-linux
  :type 'string)
diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el
index 715f3cf46d5..72c0bc60107 100644
--- a/lisp/cedet/ede/project-am.el
+++ b/lisp/cedet/ede/project-am.el
@@ -53,17 +53,17 @@
  )
 (defcustom project-am-compile-project-command nil
-  "*Default command used to compile a project."
+  "Default command used to compile a project."
  :group 'project-am
  :type '(choice (const nil) string))
 (defcustom project-am-compile-target-command (concat ede-make-command " -k %s")
-  "*Default command used to compile a project."
+  "Default command used to compile a project."
  :group 'project-am
  :type 'string)
 (defcustom project-am-debug-target-function 'gdb
-  "*Default Emacs command used to debug a target."
+  "Default Emacs command used to debug a target."
  :group 'project-am
  :type 'function) ; make this be a list some day
diff --git a/lisp/cedet/ede/simple.el b/lisp/cedet/ede/simple.el
index 380c8dbc586..74b6e056a2a 100644
--- a/lisp/cedet/ede/simple.el
+++ b/lisp/cedet/ede/simple.el
@@ -55,12 +55,12 @@
             t)
 (defcustom ede-simple-save-directory "~/.ede"
-  "*Directory where simple EDE project overlays are saved."
+  "Directory where simple EDE project overlays are saved."
 :group 'ede
 :type 'directory)
 (defcustom ede-simple-save-file-name "ProjSimple.ede"
-  "*File name used for simple project wrappers."
+  "File name used for simple project wrappers."
  :group 'ede
  :type 'string)
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 821f05a5732..904410f6cf3 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -296,7 +296,7 @@ Return the defined symbol as a special spp lex token."
 ;;; Conditional Skipping
 ;;
 (defcustom semantic-c-obey-conditional-section-parsing-flag t
-  "*Non-nil means to interpret preprocessor #if sections.
+  "Non-nil means to interpret preprocessor #if sections.
 This implies that some blocks of code will not be parsed based on the
 values of the conditions in the #if blocks."
  :group 'c
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index de762326c3e..14b5f3f016c 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -568,7 +568,7 @@ if INLINE, then completion is happening inline in a buffer."
     (:underline "yellow"))
    (((class color) (background light))
     (:underline "brown")))
-  "*Face used to show the region being completed inline.
+  "Face used to show the region being completed inline.
 The face is used in `semantic-complete-inline-tag-engine'."
  :group 'semantic-faces)
@@ -1370,7 +1370,7 @@ This object type doesn't do focus, so will never have a focus object."
 ;; Traditional displayor
 (defcustom semantic-completion-displayor-format-tag-function
  #'semantic-format-tag-name
-  "*A Tag format function to use when showing completions."
+  "A Tag format function to use when showing completions."
  :group 'semantic
  :type semantic-format-tag-custom-list)
@@ -1871,7 +1871,7 @@ Use this to enable custom editing.")
 (defcustom semantic-complete-inline-analyzer-displayor-class
  'semantic-displayor-traditional
-  "*Class for displayor to use with inline completion."
+  "Class for displayor to use with inline completion."
  :group 'semantic
  :type semantic-complete-inline-custom-type
  )
@@ -2075,7 +2075,7 @@ completion works."
 (defcustom semantic-complete-inline-analyzer-idle-displayor-class
  'semantic-displayor-ghost
-  "*Class for displayor to use with inline completion at idle time."
+  "Class for displayor to use with inline completion at idle time."
  :group 'semantic
  :type semantic-complete-inline-custom-type
  )
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index a72e78402ea..1b3f07aa0f6 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -814,7 +814,7 @@ local variable."
 ;; associated databases.
 (defcustom semanticdb-project-roots nil
-  "*List of directories, where each directory is the root of some project.
+  "List of directories, where each directory is the root of some project.
 All subdirectories of a root project are considered a part of one project.
 Values in this string can be overridden by project management programs
 via the `semanticdb-project-root-functions' variable."
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index e12fff1a2a8..3ea2a48a9fa 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -49,7 +49,7 @@
 ;;
 (defface semantic-decoration-on-includes
  nil
-  "*Overlay Face used on includes that are not in some other state.
+  "Overlay Face used on includes that are not in some other state.
 Used by the decoration style: `semantic-decoration-on-includes'."
  :group 'semantic-faces)
@@ -119,7 +119,7 @@ Used by the decoration style: `semantic-decoration-on-includes'."
     (:background "#900000"))
    (((class color) (background light))
     (:background "#fff0f0")))
-  "*Face used to show includes that cannot be found.
+  "Face used to show includes that cannot be found.
 Used by the decoration style: `semantic-decoration-on-unknown-includes'."
  :group 'semantic-faces)
@@ -182,7 +182,7 @@ Used by the decoration style: `semantic-decoration-on-unknown-includes'."
     (:background "#009000"))
    (((class color) (background light))
     (:background "#f0fdf0")))
-  "*Face used to show includes that have no file, but do have a DB table.
+  "Face used to show includes that have no file, but do have a DB table.
 Used by the decoration style: `semantic-decoration-on-fileless-includes'."
  :group 'semantic-faces)
@@ -245,7 +245,7 @@ Used by the decoration style: `semantic-decoration-on-fileless-includes'."
     (:background "#555500"))
    (((class color) (background light))
     (:background "#ffff55")))
-  "*Face used to show includes that have not yet been parsed.
+  "Face used to show includes that have not yet been parsed.
 Used by the decoration style: `semantic-decoration-on-unparsed-includes'."
  :group 'semantic-faces)
diff --git a/lisp/cedet/semantic/decorate/mode.el b/lisp/cedet/semantic/decorate/mode.el
index fca9c3c4650..d4385e165c8 100644
--- a/lisp/cedet/semantic/decorate/mode.el
+++ b/lisp/cedet/semantic/decorate/mode.el
@@ -455,7 +455,7 @@ Does not provide overlines for prototypes.")
     (:overline "cyan"))
    (((class color) (background light))
     (:overline "blue")))
-  "*Face used to show long tags in.
+  "Face used to show long tags in.
 Used by decoration style: `semantic-tag-boundary'."
  :group 'semantic-faces)
@@ -504,7 +504,7 @@ Used by decoration style: `semantic-tag-boundary'."
     (:background "#200000"))
    (((class color) (background light))
     (:background "#8fffff")))
-  "*Face used to show privately scoped tags in.
+  "Face used to show privately scoped tags in.
 Used by the decoration style: `semantic-decoration-on-private-members'."
  :group 'semantic-faces)
@@ -526,7 +526,7 @@ Use a primary decoration."
     (:background "#000020"))
    (((class color) (background light))
     (:background "#fffff8")))
-  "*Face used to show protected scoped tags in.
+  "Face used to show protected scoped tags in.
 Used by the decoration style: `semantic-decoration-on-protected-members'."
  :group 'semantic-faces)
diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el
index 1fe703fd09a..0a984ebb32d 100644
--- a/lisp/cedet/semantic/format.el
+++ b/lisp/cedet/semantic/format.el
@@ -559,14 +559,14 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
 ;;; UML display styles
 ;;
 (defcustom semantic-uml-colon-string " : "
-  "*String used as a color separator between parts of a UML string.
+  "String used as a color separator between parts of a UML string.
 In UML, a variable may appear as `varname : type'.
 Change this variable to change the output separator."
  :group 'semantic
  :type 'string)
 (defcustom semantic-uml-no-protection-string ""
-  "*String used to describe when no protection is specified.
+  "String used to describe when no protection is specified.
 Used by `semantic-format-tag-uml-protection-to-string'."
  :group 'semantic
  :type 'string)
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index 214fbb50f98..a4dabe66083 100644
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -146,7 +146,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
 (defcustom semantic-ia-completion-menu-format-tag-function
  'semantic-format-tag-uml-concise-prototype
-  "*Function used to convert a tag to a string during completion."
+  "Function used to convert a tag to a string during completion."
  :group 'semantic
  :type semantic-format-tag-custom-list)
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 549a30ac0bc..5f902622ac6 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -141,7 +141,7 @@ Use the command `semantic-idle-scheduler-mode' to change this variable.")
 (make-variable-buffer-local 'semantic-idle-scheduler-mode)
 (defcustom semantic-idle-scheduler-max-buffer-size 0
-  "*Maximum size in bytes of buffers where idle-scheduler is enabled.
+  "Maximum size in bytes of buffers where idle-scheduler is enabled.
 If this value is less than or equal to 0, idle-scheduler is enabled in
 all buffers regardless of their size."
  :group 'semantic
@@ -303,13 +303,13 @@ call additional functions registered with the timer calls."
 ;; Unlike the shorter timer, the WORK timer will kick of tasks that
 ;; may take a long time to complete.
 (defcustom semantic-idle-work-parse-neighboring-files-flag nil
-  "*Non-nil means to parse files in the same dir as the current buffer.
+  "Non-nil means to parse files in the same dir as the current buffer.
 Disable to prevent lots of excessive parsing in idle time."
  :group 'semantic
  :type 'boolean)
 (defcustom semantic-idle-work-update-headers-flag nil
-  "*Non-nil means to parse through header files in idle time.
+  "Non-nil means to parse through header files in idle time.
 Disable to prevent idle time parsing of many files.  If completion
 is called that work will be done then instead."
  :group 'semantic
diff --git a/lisp/cedet/semantic/imenu.el b/lisp/cedet/semantic/imenu.el
index 4983d6c9f44..cfff253a793 100644
--- a/lisp/cedet/semantic/imenu.el
+++ b/lisp/cedet/semantic/imenu.el
@@ -57,7 +57,7 @@
 ;;;###autoload
 (defcustom semantic-imenu-summary-function 'semantic-format-tag-abbreviate
-  "*Function to use when creating items in Imenu.
+  "Function to use when creating items in Imenu.
 Some useful functions are found in `semantic-format-tag-functions'."
  :group 'semantic-imenu
  :type semantic-format-tag-custom-list)
@@ -65,20 +65,20 @@ Some useful functions are found in `semantic-format-tag-functions'."
 ;;;###autoload
 (defcustom semantic-imenu-bucketize-file t
-  "*Non-nil if tags in a file are to be grouped into buckets."
+  "Non-nil if tags in a file are to be grouped into buckets."
  :group 'semantic-imenu
  :type 'boolean)
 (make-variable-buffer-local 'semantic-imenu-bucketize-file)
 (defcustom semantic-imenu-adopt-external-members t
-  "*Non-nil if types in a file should adopt externally defined members.
+  "Non-nil if types in a file should adopt externally defined members.
 C++ and CLOS can define methods that are not in the body of a class
 definition."
  :group 'semantic-imenu
  :type 'boolean)
 (defcustom semantic-imenu-buckets-to-submenu t
-  "*Non-nil if buckets of tags are to be turned into submenus.
+  "Non-nil if buckets of tags are to be turned into submenus.
 This option is ignored if `semantic-imenu-bucketize-file' is nil."
  :group 'semantic-imenu
  :type 'boolean)
@@ -86,7 +86,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
 ;;;###autoload
 (defcustom semantic-imenu-expand-type-members t
-  "*Non-nil if types should have submenus with members in them."
+  "Non-nil if types should have submenus with members in them."
  :group 'semantic-imenu
  :type 'boolean)
 (make-variable-buffer-local 'semantic-imenu-expand-type-members)
@@ -94,7 +94,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
                            'semantic-imenu-expand-type-members "23.2")
 (defcustom semantic-imenu-bucketize-type-members t
-  "*Non-nil if members of a type should be grouped into buckets.
+  "Non-nil if members of a type should be grouped into buckets.
 A nil value means to keep them in the same order.
 Overridden to nil if `semantic-imenu-bucketize-file' is nil."
  :group 'semantic-imenu
@@ -104,7 +104,7 @@ Overridden to nil if `semantic-imenu-bucketize-file' is nil."
                            'semantic-imenu-bucketize-type-members "23.2")
 (defcustom semantic-imenu-sort-bucket-function nil
-  "*Function to use when sorting tags in the buckets of functions.
+  "Function to use when sorting tags in the buckets of functions.
 See `semantic-bucketize' and the FILTER argument for more details on this function."
  :group 'semantic-imenu
  :type '(radio (const :tag "No Sorting" nil)
@@ -120,7 +120,7 @@ See `semantic-bucketize' and the FILTER argument for more details on this functi
 (make-variable-buffer-local 'semantic-imenu-sort-bucket-function)
 (defcustom semantic-imenu-index-directory nil
-  "*Non nil to index the entire directory for tags.
+  "Non nil to index the entire directory for tags.
 Doesn't actually parse the entire directory, but displays tags for all files
 currently listed in the current Semantic database.
 This variable has no meaning if semanticdb is not active."
@@ -128,7 +128,7 @@ This variable has no meaning if semanticdb is not active."
  :type 'boolean)
 (defcustom semantic-imenu-auto-rebuild-directory-indexes nil
-  "*If non-nil automatically rebuild directory index imenus.
+  "If non-nil automatically rebuild directory index imenus.
 That is when a directory index imenu is updated, automatically rebuild
 other buffer local ones based on the same semanticdb."
  :group 'semantic-imenu
@@ -498,7 +498,7 @@ Clears all imenu menus that may be depending on the database."
  "Function to convert semantic tags into `which-function' text.")
 (defcustom semantic-which-function-use-color nil
-  "*Use color when displaying the current function with `which-function'."
+  "Use color when displaying the current function with `which-function'."
  :group 'semantic-imenu
  :type 'boolean)
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index b48f5aedd68..fe90a047f86 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -1239,7 +1239,7 @@ of type `spp-macro-undef' is to be created."
 ;; written yet.
 ;;
 (defcustom semantic-lex-spp-use-headers-flag nil
-  "*Non-nil means to pre-parse headers as we go.
+  "Non-nil means to pre-parse headers as we go.
 For languages that use the Semantic pre-processor, this can
 improve the accuracy of parsed files where include files
 can change the state of what's parsed in the current file.
diff --git a/lisp/cedet/semantic/mru-bookmark.el b/lisp/cedet/semantic/mru-bookmark.el
index 4146b4e5b2c..1e15773952d 100644
--- a/lisp/cedet/semantic/mru-bookmark.el
+++ b/lisp/cedet/semantic/mru-bookmark.el
@@ -263,7 +263,7 @@ If ARG is positive or nil, enable, if it is negative, disable."
   'semantic-mru-bookmark-mode (if global-semantic-mru-bookmark-mode 1 -1)))
 (defcustom semantic-mru-bookmark-mode-hook nil
-  "*Hook run at the end of function `semantic-mru-bookmark-mode'."
+  "Hook run at the end of function `semantic-mru-bookmark-mode'."
  :group 'semantic
  :type 'hook)
diff --git a/lisp/cedet/semantic/sb.el b/lisp/cedet/semantic/sb.el
index 7eac255fe37..a06955067d9 100644
--- a/lisp/cedet/semantic/sb.el
+++ b/lisp/cedet/semantic/sb.el
@@ -38,7 +38,7 @@
 (declare-function semanticdb-file-stream "semantic/db")
 (defcustom semantic-sb-autoexpand-length 1
-  "*Length of a semantic bucket to autoexpand in place.
+  "Length of a semantic bucket to autoexpand in place.
 This will replace the named bucket that would have usually occurred here."
  :group 'speedbar
  :type 'integer)
@@ -49,12 +49,12 @@ Make this buffer local for modes that have different types of tags
 that should be ignored.")
 (defcustom semantic-sb-button-format-tag-function 'semantic-format-tag-abbreviate
-  "*Function called to create the text for a but from a token."
+  "Function called to create the text for a but from a token."
  :group 'speedbar
  :type semantic-format-tag-custom-list)
 (defcustom semantic-sb-info-format-tag-function 'semantic-format-tag-summarize
-  "*Function called to create the text for info display from a token."
+  "Function called to create the text for info display from a token."
  :group 'speedbar
  :type semantic-format-tag-custom-list)
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el
index 1b7715c39d3..e4b54b83645 100644
--- a/lisp/cedet/srecode/fields.el
+++ b/lisp/cedet/srecode/fields.el
@@ -55,7 +55,7 @@ Once an insertion set is done, these fields will be activated.")
     (:underline "green"))
    (((class color) (background light))
     (:underline "green4")))
-  "*Face used to specify editable fields from a template."
+  "Face used to specify editable fields from a template."
  :group 'semantic-faces)
 (defcustom srecode-fields-exit-confirmation nil
diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index cb50cce6056..b9f4b1ab846 100644
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -32,7 +32,7 @@
  :group 'mail)
 (defcustom ecomplete-database-file "~/.ecompleterc"
-  "*The name of the file to store the ecomplete data."
+  "The name of the file to store the ecomplete data."
  :group 'ecomplete
  :type 'file)
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 6c1915ba909..364fb7f1516 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -161,7 +161,7 @@ enable expiration per categories, topics, and groups."
                (const :format "Disable " DISABLE)))
 (defcustom gnus-agent-expire-unagentized-dirs t
-  "*Whether expiration should expire in unagentized directories.
+  "Whether expiration should expire in unagentized directories.
 Have gnus-agent-expire scan the directories under
 \(gnus-agent-directory) for groups that are no longer agentized.
 When found, offer to remove them."
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index c103e1cbb91..3b94a3d6c12 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -158,7 +158,7 @@
     "Envelope-To" "X-Spam-Score" "System-Type" "X-Injected-Via-Gmane"
     "X-Gmane-NNTP-Posting-Host" "Jabber-ID" "Archived-At"
     "Envelope-Sender" "Envelope-Recipients"))
-  "*All headers that start with this regexp will be hidden.
+  "All headers that start with this regexp will be hidden.
 This variable can also be a list of regexps of headers to be ignored.
 If `gnus-visible-headers' is non-nil, this variable will be ignored."
  :type '(choice regexp
@@ -167,7 +167,7 @@ If `gnus-visible-headers' is non-nil, this variable will be ignored."
 (defcustom gnus-visible-headers
  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:"
-  "*All headers that do not match this regexp will be hidden.
+  "All headers that do not match this regexp will be hidden.
 This variable can also be a list of regexp of headers to remain visible.
 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
  :type '(choice
@@ -184,7 +184,7 @@ If this variable is non-nil, `gnus-ignored-headers' will be ignored."
 (defcustom gnus-sorted-header-list
  '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:"
    "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:")
-  "*This variable is a list of regular expressions.
+  "This variable is a list of regular expressions.
 If it is non-nil, headers that match the regular expressions will
 be placed first in the article buffer in the sequence specified by
 this list."
@@ -271,7 +271,7 @@ This can also be a list of the above values."
    "{ echo \
 '/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */'\
 ; uncompface; } | icontopbm | display -")
-  "*String or function to be executed to display an X-Face header.
+  "String or function to be executed to display an X-Face header.
 If it is a string, the command will be executed in a sub-shell
 asynchronously.  The compressed face will be piped to this command."
  :type `(choice string
@@ -389,7 +389,7 @@ advertisements.  For example:
       ;; 2 3 gnus-emphasis-strikethru)
       ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)"
        2 3 gnus-emphasis-underline))))
-  "*Alist that says how to fontify certain phrases.
+  "Alist that says how to fontify certain phrases.
 Each item looks like this:
  (\"_\\\\(\\\\w+\\\\)_\" 0 1 \\='underline)
@@ -498,7 +498,7 @@ be fed to `format-time-string'."
  :group 'gnus-article-washing)
 (defcustom gnus-save-all-headers t
-  "*If non-nil, don't remove any headers before saving.
+  "If non-nil, don't remove any headers before saving.
 This will be overridden by the `:headers' property that the symbol of
 the saver function, which is specified by `gnus-default-article-saver',
 might have."
@@ -506,7 +506,7 @@ might have."
  :type 'boolean)
 (defcustom gnus-prompt-before-saving 'always
-  "*This variable says how much prompting is to be done when saving articles.
+  "This variable says how much prompting is to be done when saving articles.
 If it is nil, no prompting will be done, and the articles will be
 saved to the default files.  If this variable is `always', each and
 every article that is saved will be preceded by a prompt, even when
@@ -653,7 +653,7 @@ LAST-FILE."
 (defcustom gnus-split-methods
  '((gnus-article-archive-name)
    (gnus-article-nndoc-name))
-  "*Variable used to suggest where articles are to be saved.
+  "Variable used to suggest where articles are to be saved.
 For instance, if you would like to save articles related to Gnus in
 the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
 you could set this variable to something like:
@@ -679,14 +679,14 @@ used as possible file names."
                         (sexp :value nil))))
 (defcustom gnus-page-delimiter "^\^L"
-  "*Regexp describing what to use as article page delimiters.
+  "Regexp describing what to use as article page delimiters.
 The default value is \"^\^L\", which is a form linefeed at the
 beginning of a line."
  :type 'regexp
  :group 'gnus-article-various)
 (defcustom gnus-article-mode-line-format "Gnus: %g %S%m"
-  "*The format specification for the article mode line.
+  "The format specification for the article mode line.
 See `gnus-summary-mode-line-format' for a closer description.
 The following additional specs are available:
@@ -698,17 +698,17 @@ The following additional specs are available:
  :group 'gnus-article-various)
 (defcustom gnus-article-mode-hook nil
-  "*A hook for Gnus article mode."
+  "A hook for Gnus article mode."
  :type 'hook
  :group 'gnus-article-various)
 (defcustom gnus-article-menu-hook nil
-  "*Hook run after the creation of the article mode menu."
+  "Hook run after the creation of the article mode menu."
  :type 'hook
  :group 'gnus-article-various)
 (defcustom gnus-article-prepare-hook nil
-  "*A hook called after an article has been prepared in the article buffer."
+  "A hook called after an article has been prepared in the article buffer."
  :type 'hook
  :group 'gnus-article-various)
@@ -846,7 +846,7 @@ articles."
    ("Subject" nil gnus-header-subject)
    ("Newsgroups:.*," nil gnus-header-newsgroups)
    ("" gnus-header-name gnus-header-content))
-  "*Controls highlighting of article headers.
+  "Controls highlighting of article headers.
 An alist of the form (HEADER NAME CONTENT).
@@ -892,7 +892,7 @@ images in Emacs."
 (defcustom gnus-article-decode-hook
  '(article-decode-charset article-decode-encoded-words
                           article-decode-group-name article-decode-idna-rhs)
-  "*Hook run to decode charsets in articles."
+  "Hook run to decode charsets in articles."
  :group 'gnus-article-headers
  :type 'hook)
@@ -7643,7 +7643,7 @@ Calls `describe-variable' or `describe-function'."
      (find-file-read-only file))))
 (defcustom gnus-button-man-level 5
-  "*Integer that says how many man-related buttons Gnus will show.
+  "Integer that says how many man-related buttons Gnus will show.
 The higher the number, the more buttons will appear and the more false
 positives are possible.  Note that you can set this variable local to
 specific groups.  Setting it higher in Unix groups is probably a good idea.
@@ -7655,7 +7655,7 @@ how to set variables in specific groups."
  :type 'integer)
 (defcustom gnus-button-emacs-level 5
-  "*Integer that says how many emacs-related buttons Gnus will show.
+  "Integer that says how many emacs-related buttons Gnus will show.
 The higher the number, the more buttons will appear and the more false
 positives are possible.  Note that you can set this variable local to
 specific groups.  Setting it higher in Emacs or Gnus related groups is
@@ -7667,7 +7667,7 @@ probably a good idea.  See Info node `(gnus)Group Parameters' and the variable
  :type 'integer)
 (defcustom gnus-button-message-level 5
-  "*Integer that says how many buttons for news or mail messages will appear.
+  "Integer that says how many buttons for news or mail messages will appear.
 The higher the number, the more buttons will appear and the more false
 positives are possible."
  ;; mail addresses, MIDs, URLs for news, ...
@@ -7676,7 +7676,7 @@ positives are possible."
  :type 'integer)
 (defcustom gnus-button-browse-level 5
-  "*Integer that says how many buttons for browsing will appear.
+  "Integer that says how many buttons for browsing will appear.
 The higher the number, the more buttons will appear and the more false
 positives are possible."
  ;; stuff handled by `browse-url' or `gnus-button-embedded-url'
@@ -7797,7 +7797,7 @@ positives are possible."
    ;; so that non-ambiguous entries (see above) match first.
    (gnus-button-mid-or-mail-regexp
     0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1))
-  "*Alist of regexps matching buttons in article bodies.
+  "Alist of regexps matching buttons in article bodies.
 Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
 REGEXP: is the string (case insensitive) matching text around the button (can
@@ -7839,7 +7839,7 @@ variable it the real callback function."
     0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
    ("^[^:]+:" "\\(<\\(url: \\)?\\(nntp\\|news\\):\\([^>\n ]*\\)>\\)"
     1 (>= gnus-button-message-level 0) gnus-button-message-id 4))
-  "*Alist of headers and regexps to match buttons in article heads.
+  "Alist of headers and regexps to match buttons in article heads.
 This alist is very similar to `gnus-button-alist', except that each
 alist has an additional HEADER element first in each entry:
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index ba72d820431..19867d83ae7 100644
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -35,7 +35,7 @@
  :group 'gnus)
 (defcustom gnus-use-article-prefetch 30
-  "*If non-nil, prefetch articles in groups that allow this.
+  "If non-nil, prefetch articles in groups that allow this.
 If a number, prefetch only that many articles forward;
 if t, prefetch as many articles as possible."
  :group 'gnus-asynchronous
@@ -44,7 +44,7 @@ if t, prefetch as many articles as possible."
                 (integer :tag "some" 0)))
 (defcustom gnus-asynchronous nil
-  "*If nil, inhibit all Gnus asynchronicity.
+  "If nil, inhibit all Gnus asynchronicity.
 If non-nil, let the other asynch variables be heeded."
  :group 'gnus-asynchronous
  :type 'boolean)
@@ -59,7 +59,7 @@ from that group."
  :type '(set (const read) (const exit)))
 (defcustom gnus-use-header-prefetch nil
-  "*If non-nil, prefetch the headers to the next group."
+  "If non-nil, prefetch the headers to the next group."
  :group 'gnus-asynchronous
  :type 'boolean)
diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el
index 050e8cd7895..aa2d0185c26 100644
--- a/lisp/gnus/gnus-cache.el
+++ b/lisp/gnus/gnus-cache.el
@@ -35,7 +35,7 @@
 (defcustom gnus-cache-active-file
  (expand-file-name "active" gnus-cache-directory)
-  "*The cache active file."
+  "The cache active file."
  :group 'gnus-cache
  :type 'file)
@@ -50,7 +50,7 @@
  :type '(set (const ticked) (const dormant) (const unread) (const read)))
 (defcustom gnus-cacheable-groups nil
-  "*Groups that match this regexp will be cached.
+  "Groups that match this regexp will be cached.
 If you only want to cache your nntp groups, you could set this
 variable to \"^nntp\".
@@ -62,7 +62,7 @@ it's not cached."
                 regexp))
 (defcustom gnus-uncacheable-groups nil
-  "*Groups that match this regexp will not be cached.
+  "Groups that match this regexp will not be cached.
 If you want to avoid caching your nnml groups, you could set this
 variable to \"^nnml\".
diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index 4f05d2ee9d5..03ed71d50c6 100644
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -72,7 +72,7 @@ Set it to nil to parse all articles."
 (defcustom gnus-supercite-regexp
  (concat "^\\(" message-cite-prefix-regexp "\\)? *"
          ">>>>> +\"\\([^\"\n]+\\)\" +==")
-  "*Regexp matching normal Supercite attribution lines.
+  "Regexp matching normal Supercite attribution lines.
 The first grouping must match prefixes added by other packages."
  :group 'gnus-cite
  :type 'regexp)
@@ -107,13 +107,13 @@ The first regexp group should match the Supercite attribution."
 (defcustom gnus-cite-attribution-prefix
  "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|----- ?Original Message ?-----"
-  "*Regexp matching the beginning of an attribution line."
+  "Regexp matching the beginning of an attribution line."
  :group 'gnus-cite
  :type 'regexp)
 (defcustom gnus-cite-attribution-suffix
  "\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\|----- ?Original Message ?-----\\)[ \t]*$"
-  "*Regexp matching the end of an attribution line.
+  "Regexp matching the end of an attribution line.
 The text matching the first grouping will be used as a button."
  :group 'gnus-cite
  :type 'regexp)
@@ -304,7 +304,7 @@ It is merged with the face for the cited text belonging to the attribution."
 (defcustom gnus-cite-face-list
  '(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6
                gnus-cite-7 gnus-cite-8 gnus-cite-9 gnus-cite-10 gnus-cite-11)
-  "*List of faces used for highlighting citations.
+  "List of faces used for highlighting citations.
 When there are citations from multiple articles in the same message,
 Gnus will try to give each citation from each article its own face.
diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el
index 2f387fc336b..37e8cdc7ecd 100644
--- a/lisp/gnus/gnus-delay.el
+++ b/lisp/gnus/gnus-delay.el
@@ -53,12 +53,12 @@
  :group 'gnus-delay)
 (defcustom gnus-delay-default-delay "3d"
-  "*Default length of delay."
+  "Default length of delay."
  :type 'string
  :group 'gnus-delay)
 (defcustom gnus-delay-default-hour 8
-  "*If deadline is given as date, then assume this time of day."
+  "If deadline is given as date, then assume this time of day."
  :version "22.1"
  :type 'integer
  :group 'gnus-delay)
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index 12ca9fcad66..4dc4f7a022b 100644
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -50,19 +50,19 @@
  :group 'gnus)
 (defcustom gnus-diary-summary-line-format "%U%R%z %uD: %(%s%) (%ud)\n"
-  "*Summary line format for nndiary groups."
+  "Summary line format for nndiary groups."
  :type 'string
  :group 'gnus-diary
  :group 'gnus-summary-format)
 (defcustom gnus-diary-time-format "%a, %b %e %y, %H:%M"
-  "*Time format to display appointments in nndiary summary buffers.
+  "Time format to display appointments in nndiary summary buffers.
 Please refer to `format-time-string' for information on possible values."
  :type 'string
  :group 'gnus-diary)
 (defcustom gnus-diary-delay-format-function 'gnus-diary-delay-format-english
-  "*Function called to format a diary delay string.
+  "Function called to format a diary delay string.
 It is passed two arguments.  The first one is non-nil if the delay is in
 the past.  The second one is of the form ((NUM . UNIT) ...) where NUM is
 an integer and UNIT is one of 'year 'month 'week 'day 'hour or 'minute.
diff --git a/lisp/gnus/gnus-dup.el b/lisp/gnus/gnus-dup.el
index bc11ba18519..4492c9aa635 100644
--- a/lisp/gnus/gnus-dup.el
+++ b/lisp/gnus/gnus-dup.el
@@ -39,19 +39,19 @@
  :group 'gnus)
 (defcustom gnus-save-duplicate-list nil
-  "*If non-nil, save the duplicate list when shutting down Gnus.
+  "If non-nil, save the duplicate list when shutting down Gnus.
 If nil, duplicate suppression will only work on duplicates
 seen in the same session."
  :group 'gnus-duplicate
  :type 'boolean)
 (defcustom gnus-duplicate-list-length 10000
-  "*The number of Message-IDs to keep in the duplicate suppression list."
+  "The number of Message-IDs to keep in the duplicate suppression list."
  :group 'gnus-duplicate
  :type 'integer)
 (defcustom gnus-duplicate-file (nnheader-concat gnus-directory "suppression")
-  "*The name of the file to store the duplicate suppression list."
+  "The name of the file to store the duplicate suppression list."
  :group 'gnus-duplicate
  :type 'file)
diff --git a/lisp/gnus/gnus-fun.el b/lisp/gnus/gnus-fun.el
index c1dd333ee50..0ffd243de0e 100644
--- a/lisp/gnus/gnus-fun.el
+++ b/lisp/gnus/gnus-fun.el
@@ -34,7 +34,7 @@
 (defvar gnus-face-properties-alist)
 (defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
-  "*Directory where X-Face PBM files are stored."
+  "Directory where X-Face PBM files are stored."
  :version "22.1"
  :group 'gnus-fun
  :type 'directory)
@@ -46,7 +46,7 @@
  :type '(choice (const nil) string))
 (defcustom gnus-face-directory (expand-file-name "faces" gnus-directory)
-  "*Directory where Face PNG files are stored."
+  "Directory where Face PNG files are stored."
  :version "25.1"
  :group 'gnus-fun
  :type 'directory)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 53a4ca75042..ed114c2c392 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -52,12 +52,12 @@
 (autoload 'gnus-group-make-nnir-group "nnir")
 (defcustom gnus-no-groups-message "No news is good news"
-  "*Message displayed by Gnus when no groups are available."
+  "Message displayed by Gnus when no groups are available."
  :group 'gnus-start
  :type 'string)
 (defcustom gnus-keep-same-level nil
-  "*Non-nil means that the next newsgroup after the current will be on the same level.
+  "Non-nil means that the next newsgroup after the current will be on the same level.
 When you type, for instance, `n' after reading the last article in the
 current newsgroup, you will go to the next newsgroup.  If this variable
 is nil, the next newsgroup will be the next from the group
@@ -74,19 +74,19 @@ with the best level."
                 (sexp :tag "other" t)))
 (defcustom gnus-group-goto-unread t
-  "*If non-nil, movement commands will go to the next unread and subscribed group."
+  "If non-nil, movement commands will go to the next unread and subscribed group."
  :link '(custom-manual "(gnus)Group Maneuvering")
  :group 'gnus-group-various
  :type 'boolean)
 (defcustom gnus-goto-next-group-when-activating t
-  "*If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group."
+  "If non-nil, the \\<gnus-group-mode-map>\\[gnus-group-get-new-news-this-group] command will advance point to the next group."
  :link '(custom-manual "(gnus)Scanning New Messages")
  :group 'gnus-group-various
  :type 'boolean)
 (defcustom gnus-permanently-visible-groups nil
-  "*Regexp to match groups that should always be listed in the group buffer.
+  "Regexp to match groups that should always be listed in the group buffer.
 This means that they will still be listed even when there are no
 unread articles in the groups.
@@ -107,7 +107,7 @@ effective only when emacs-w3m renders html articles, i.e., in the case
                 (const nil)))
 (defcustom gnus-list-groups-with-ticked-articles t
-  "*If non-nil, list groups that have only ticked articles.
+  "If non-nil, list groups that have only ticked articles.
 If nil, only list groups that have unread articles."
  :group 'gnus-group-listing
  :type 'boolean)
@@ -120,13 +120,13 @@ Ignored if `gnus-group-use-permanent-levels' is non-nil."
                 (function :tag "Function returning level")))
 (defcustom gnus-group-list-inactive-groups t
-  "*If non-nil, inactive groups will be listed."
+  "If non-nil, inactive groups will be listed."
  :group 'gnus-group-listing
  :group 'gnus-group-levels
  :type 'boolean)
 (defcustom gnus-group-sort-function 'gnus-group-sort-by-alphabet
-  "*Function used for sorting the group buffer.
+  "Function used for sorting the group buffer.
 This function will be called with group info entries as the arguments
 for the groups to be sorted.  Pre-made functions include
 `gnus-group-sort-by-alphabet', `gnus-group-sort-by-real-name',
@@ -155,7 +155,7 @@ list."
                         (function :tag "other" nil))))
 (defcustom gnus-group-line-format "%M\ %S\ %p\ %P\ %5y:%B%(%g%)\n"
-  "*Format of group lines.
+  "Format of group lines.
 It works along the same lines as a normal formatting string,
 with some simple extensions.
@@ -213,7 +213,7 @@ See Info node `(gnus)Formatting Variables'."
  :type 'string)
 (defcustom gnus-group-mode-line-format "Gnus: %%b {%M\ %:%S}"
-  "*The format specification for the group mode line.
+  "The format specification for the group mode line.
 It works along the same lines as a normal formatting string,
 with some simple extensions:
@@ -240,7 +240,7 @@ with some simple extensions:
  :type 'hook)
 (defcustom gnus-group-prepare-function 'gnus-group-prepare-flat
-  "*A function that is called to generate the group buffer.
+  "A function that is called to generate the group buffer.
 The function is called with three arguments: The first is a number;
 all group with a level less or equal to that number should be listed,
 if the second is non-nil, empty groups should also be displayed.  If
@@ -297,7 +297,7 @@ If you want to modify the group buffer, you can use this hook."
                       (unless file
                         (error "Couldn't find doc group"))
                       file))))))
-  "*Alist of useful group-server pairs."
+  "Alist of useful group-server pairs."
  :group 'gnus-group-listing
  :type '(repeat (list (string :tag "Description")
                       (string :tag "Name")
@@ -350,7 +350,7 @@ If you want to modify the group buffer, you can use this hook."
     gnus-group-news-low-empty)
    (t .
     gnus-group-news-low))
-  "*Controls the highlighting of group buffer lines.
+  "Controls the highlighting of group buffer lines.
 Below is a list of `Form'/`Face' pairs.  When deciding how a
 particular group line should be displayed, each form is
@@ -385,7 +385,7 @@ ticked: The number of ticked articles."
 (defcustom gnus-group-icon-list
  nil
-  "*Controls the insertion of icons into group buffer lines.
+  "Controls the insertion of icons into group buffer lines.
 Below is a list of `Form'/`File' pairs.  When deciding how a
 particular group line should be displayed, each form is evaluated.
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el
index 059a5cdf27d..b4b74c98f9f 100644
--- a/lisp/gnus/gnus-kill.el
+++ b/lisp/gnus/gnus-kill.el
@@ -37,13 +37,13 @@
  :type 'hook)
 (defcustom gnus-kill-expiry-days 7
-  "*Number of days before expiring unused kill file entries."
+  "Number of days before expiring unused kill file entries."
  :group 'gnus-score-kill
  :group 'gnus-score-expire
  :type 'integer)
 (defcustom gnus-kill-save-kill-file nil
-  "*If non-nil, will save kill files after processing them."
+  "If non-nil, will save kill files after processing them."
  :group 'gnus-score-kill
  :type 'boolean)
@@ -52,7 +52,7 @@
 I don't know, Per.")
 (defcustom gnus-kill-killed t
-  "*If non-nil, Gnus will apply kill files to already killed articles.
+  "If non-nil, Gnus will apply kill files to already killed articles.
 If it is nil, Gnus will never apply kill files to articles that have
 already been through the scoring process, which might very well save lots
 of time."
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 8cabe01168b..10927cd5260 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -33,7 +33,7 @@
 (require 'gnus-util)
 (defcustom gnus-post-method 'current
-  "*Preferred method for posting USENET news.
+  "Preferred method for posting USENET news.
 If this variable is `current' (which is the default), Gnus will use
 the \"current\" select method when posting.  If it is `native', Gnus
@@ -71,7 +71,7 @@ of names)."
 (make-obsolete-variable 'gnus-outgoing-message-group 'gnus-message-archive-group "24.1")
 (defcustom gnus-mailing-list-groups nil
-  "*If non-nil a regexp matching groups that are really mailing lists.
+  "If non-nil a regexp matching groups that are really mailing lists.
 This is useful when you're reading a mailing list that has been
 gatewayed to a newsgroup, and you want to followup to an article in
 the group."
@@ -80,7 +80,7 @@ the group."
                 (const nil)))
 (defcustom gnus-add-to-list nil
-  "*If non-nil, add a `to-list' parameter automatically."
+  "If non-nil, add a `to-list' parameter automatically."
  :group 'gnus-message
  :type 'boolean)
@@ -111,12 +111,12 @@ the second with the current group name."
  :type 'hook)
 (defcustom gnus-bug-create-help-buffer t
-  "*Should we create the *Gnus Help Bug* buffer?"
+  "Should we create the *Gnus Help Bug* buffer?"
  :group 'gnus-message
  :type 'boolean)
 (defcustom gnus-posting-styles nil
-  "*Alist of styles to use when posting.
+  "Alist of styles to use when posting.
 See Info node `(gnus)Posting Styles'."
  :group 'gnus-message
  :link '(custom-manual "(gnus)Posting Styles")
diff --git a/lisp/gnus/gnus-picon.el b/lisp/gnus/gnus-picon.el
index 1b0acd24030..8b2088be06e 100644
--- a/lisp/gnus/gnus-picon.el
+++ b/lisp/gnus/gnus-picon.el
@@ -45,17 +45,17 @@
 ;;; User variables:
 (defcustom gnus-picon-news-directories '("news")
-  "*List of directories to search for newsgroups faces."
+  "List of directories to search for newsgroups faces."
  :type '(repeat string)
  :group 'gnus-picon)
 (defcustom gnus-picon-user-directories '("users" "usenix" "local" "misc")
-  "*List of directories to search for user faces."
+  "List of directories to search for user faces."
  :type '(repeat string)
  :group 'gnus-picon)
 (defcustom gnus-picon-domain-directories '("domains")
-  "*List of directories to search for domain faces.
+  "List of directories to search for domain faces.
 Some people may want to add \"unknown\" to this list."
  :type '(repeat string)
  :group 'gnus-picon)
@@ -67,7 +67,7 @@ Some people may want to add \"unknown\" to this list."
    (when (gnus-image-type-available-p 'xpm)
      (push "xpm" types))
    types)
-  "*List of suffixes on picon file names to try."
+  "List of suffixes on picon file names to try."
  :type '(repeat string)
  :group 'gnus-picon)
diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index fc85bd69baf..2c3aff54898 100644
--- a/lisp/gnus/gnus-salt.el
+++ b/lisp/gnus/gnus-salt.el
@@ -35,7 +35,7 @@
 ;;;
 (defcustom gnus-pick-display-summary nil
-  "*Display summary while reading."
+  "Display summary while reading."
  :type 'boolean
  :group 'gnus-summary-pick)
@@ -45,7 +45,7 @@
  :group 'gnus-summary-pick)
 (defcustom gnus-mark-unpicked-articles-as-read nil
-  "*If non-nil, mark all unpicked articles as read."
+  "If non-nil, mark all unpicked articles as read."
  :type 'boolean
  :group 'gnus-summary-pick)
@@ -57,7 +57,7 @@
 (defcustom gnus-summary-pick-line-format
  "%-5P %U\ %R\ %z\ %I\ %(%[%4L: %-23,23n%]%) %s\n"
-  "*The format specification of the lines in pick buffers.
+  "The format specification of the lines in pick buffers.
 It accepts the same format specs that `gnus-summary-line-format' does."
  :type 'string
  :group 'gnus-summary-pick)
@@ -373,7 +373,7 @@ lines."
  :group 'gnus-summary-tree)
 (defcustom gnus-selected-tree-face 'mode-line
-  "*Face used for highlighting selected articles in the thread tree."
+  "Face used for highlighting selected articles in the thread tree."
  :type 'face
  :group 'gnus-summary-tree)
@@ -385,12 +385,12 @@ lines."
  "Characters used to connect parents with children.")
 (defcustom gnus-tree-mode-line-format "Gnus: %%b %S %Z"
-  "*The format specification for the tree mode line."
+  "The format specification for the tree mode line."
  :type 'string
  :group 'gnus-summary-tree)
 (defcustom gnus-generate-tree-function 'gnus-generate-vertical-tree
-  "*Function for generating a thread tree.
+  "Function for generating a thread tree.
 Two predefined functions are available:
 `gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'."
  :type '(radio (function-item gnus-generate-vertical-tree)
@@ -399,7 +399,7 @@ Two predefined functions are available:
  :group 'gnus-summary-tree)
 (defcustom gnus-tree-mode-hook nil
-  "*Hook run in tree mode buffers."
+  "Hook run in tree mode buffers."
  :type 'hook
  :group 'gnus-summary-tree)
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 14059ac566b..22c12af8275 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -127,26 +127,26 @@ the `a' symbolic prefix to the score commands will always use
                (function :tag "Other" :value 'ignore)))
 (defcustom gnus-score-interactive-default-score 1000
-  "*Scoring commands will raise/lower the score with this number as the default."
+  "Scoring commands will raise/lower the score with this number as the default."
  :group 'gnus-score-default
  :type 'integer)
 (defcustom gnus-score-expiry-days 7
-  "*Number of days before unused score file entries are expired.
+  "Number of days before unused score file entries are expired.
 If this variable is nil, no score file entries will be expired."
  :group 'gnus-score-expire
  :type '(choice (const :tag "never" nil)
                 number))
 (defcustom gnus-update-score-entry-dates t
-  "*If non-nil, update matching score entry dates.
+  "If non-nil, update matching score entry dates.
 If this variable is nil, then score entries that provide matches
 will be expired along with non-matching score entries."
  :group 'gnus-score-expire
  :type 'boolean)
 (defcustom gnus-decay-scores nil
-  "*If non-nil, decay non-permanent scores.
+  "If non-nil, decay non-permanent scores.
 If it is a regexp, only decay score files matching regexp."
  :group 'gnus-score-decay
@@ -157,19 +157,19 @@ If it is a regexp, only decay score files matching regexp."
                 (regexp)))
 (defcustom gnus-decay-score-function 'gnus-decay-score
-  "*Function called to decay a score.
+  "Function called to decay a score.
 It is called with one parameter -- the score to be decayed."
  :group 'gnus-score-decay
  :type '(radio (function-item gnus-decay-score)
                (function :tag "Other")))
 (defcustom gnus-score-decay-constant 3
-  "*Decay all \"small\" scores with this amount."
+  "Decay all \"small\" scores with this amount."
  :group 'gnus-score-decay
  :type 'integer)
 (defcustom gnus-score-decay-scale .05
-  "*Decay all \"big\" scores with this factor."
+  "Decay all \"big\" scores with this factor."
  :group 'gnus-score-decay
  :type 'number)
@@ -249,7 +249,7 @@ If you use score decays, you might want to set values higher than
                                     (integer :tag "Score"))))))
 (defcustom gnus-adaptive-word-length-limit nil
-  "*Words of a length lesser than this limit will be ignored when doing adaptive scoring."
+  "Words of a length lesser than this limit will be ignored when doing adaptive scoring."
  :version "22.1"
  :group 'gnus-score-adapt
  :type '(radio (const :format "Unlimited " nil)
@@ -275,7 +275,7 @@ If you use score decays, you might want to set values higher than
    "being" "current" "back" "still" "go" "point" "value" "each" "did"
    "both" "true" "off" "say" "another" "state" "might" "under" "start"
    "try" "re")
-  "*Default list of words to be ignored when doing adaptive word scoring."
+  "Default list of words to be ignored when doing adaptive word scoring."
  :group 'gnus-score-adapt
  :type '(repeat string))
@@ -284,7 +284,7 @@ If you use score decays, you might want to set values higher than
    (,gnus-catchup-mark . -10)
    (,gnus-killed-mark . -20)
    (,gnus-del-mark . -15))
-  "*Alist of marks and scores."
+  "Alist of marks and scores."
  :group 'gnus-score-adapt
  :type '(repeat (cons (character :tag "Mark")
                       (integer :tag "Score"))))
@@ -300,12 +300,12 @@ If you use score decays, you might want to set values higher than
  :type 'boolean)
 (defcustom gnus-score-mimic-keymap nil
-  "*Have the score entry functions pretend that they are a keymap."
+  "Have the score entry functions pretend that they are a keymap."
  :group 'gnus-score-default
  :type 'boolean)
 (defcustom gnus-score-exact-adapt-limit 10
-  "*Number that says how long a match has to be before using substring matching.
+  "Number that says how long a match has to be before using substring matching.
 When doing adaptive scoring, one normally uses fuzzy or substring
 matching.  However, if the header one matches is short, the possibility
 for false positives is great, so if the length of the match is less
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index a57797260ad..10e4dbcc77e 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -87,21 +87,21 @@ If a file with the `.el' or `.elc' suffixes exists, it will be read instead."
  :type '(choice file (const nil)))
 (defcustom gnus-use-dribble-file t
-  "*Non-nil means that Gnus will use a dribble file to store user updates.
+  "Non-nil means that Gnus will use a dribble file to store user updates.
 If Emacs should crash without saving the .newsrc files, complete
 information can be restored from the dribble file."
  :group 'gnus-dribble-file
  :type 'boolean)
 (defcustom gnus-dribble-directory nil
-  "*The directory where dribble files will be saved.
+  "The directory where dribble files will be saved.
 If this variable is nil, the directory where the .newsrc files are
 saved will be used."
  :group 'gnus-dribble-file
  :type '(choice directory (const nil)))
 (defcustom gnus-check-new-newsgroups 'ask-server
-  "*Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup.
+  "Non-nil means that Gnus will run `gnus-find-new-newsgroups' at startup.
 This normally finds new newsgroups by comparing the active groups the
 servers have already reported with those Gnus already knows, either alive
 or killed.
@@ -138,14 +138,14 @@ check for new newsgroups with \\<gnus-group-mode-map>\\[gnus-find-new-newsgroups
                         (sexp :format "%v"))))
 (defcustom gnus-check-bogus-newsgroups nil
-  "*Non-nil means that Gnus will check and remove bogus newsgroup at startup.
+  "Non-nil means that Gnus will check and remove bogus newsgroup at startup.
 If this variable is nil, then you have to tell Gnus explicitly to
 check for bogus newsgroups with \\<gnus-group-mode-map>\\[gnus-group-check-bogus-groups]."
  :group 'gnus-start-server
  :type 'boolean)
 (defcustom gnus-read-active-file 'some
-  "*Non-nil means that Gnus will read the entire active file at startup.
+  "Non-nil means that Gnus will read the entire active file at startup.
 If this variable is nil, Gnus will only know about the groups in your
 `.newsrc' file.
@@ -183,24 +183,24 @@ Levels' for details.")
  "Groups with this level are killed.")
 (defcustom gnus-level-default-subscribed 3
-  "*New subscribed groups will be subscribed at this level."
+  "New subscribed groups will be subscribed at this level."
  :group 'gnus-group-levels
  :type 'integer)
 (defcustom gnus-level-default-unsubscribed 6
-  "*New unsubscribed groups will be unsubscribed at this level."
+  "New unsubscribed groups will be unsubscribed at this level."
  :group 'gnus-group-levels
  :type 'integer)
 (defcustom gnus-activate-level (1+ gnus-level-subscribed)
-  "*Groups higher than this level won't be activated on startup.
+  "Groups higher than this level won't be activated on startup.
 Setting this variable to something low might save lots of time when
 you have many groups that you aren't interested in."
  :group 'gnus-group-levels
  :type 'integer)
 (defcustom gnus-activate-foreign-newsgroups 4
-  "*If nil, Gnus will not check foreign newsgroups at startup.
+  "If nil, Gnus will not check foreign newsgroups at startup.
 If it is non-nil, it should be a number between one and nine.  Foreign
 newsgroups that have a level lower or equal to this number will be
 activated on startup.  For instance, if you want to active all
@@ -216,7 +216,7 @@ groups."
                 (const :tag "none" nil)))
 (defcustom gnus-read-newsrc-file t
-  "*Non-nil means that Gnus will read the `.newsrc' file.
+  "Non-nil means that Gnus will read the `.newsrc' file.
 Gnus always reads its own startup file, which is called
 \".newsrc.eld\".  The file called \".newsrc\" is in a format that can
 be readily understood by other newsreaders.  If you don't plan on
@@ -227,7 +227,7 @@ entry."
  :type 'boolean)
 (defcustom gnus-save-newsrc-file t
-  "*Non-nil means that Gnus will save the `.newsrc' file.
+  "Non-nil means that Gnus will save the `.newsrc' file.
 Gnus always saves its own startup file, which is called
 \".newsrc.eld\".  The file called \".newsrc\" is in a format that can
 be readily understood by other newsreaders.  If you don't plan on
@@ -237,7 +237,7 @@ exit."
  :type 'boolean)
 (defcustom gnus-save-killed-list t
-  "*If non-nil, save the list of killed groups to the startup file.
+  "If non-nil, save the list of killed groups to the startup file.
 If you set this variable to nil, you'll save both time (when starting
 and quitting) and space (both memory and disk), but it will also mean
 that Gnus has no record of which groups are new and which are old, so
@@ -263,7 +263,7 @@ not match this regexp will be removed before saving the list."
               "^[\"][\"#'()]"  ; bogus characters
               )
             "\\|")
-  "*A regexp to match uninteresting newsgroups in the active file.
+  "A regexp to match uninteresting newsgroups in the active file.
 Any lines in the active file matching this regular expression are
 removed from the newsgroup list before anything else is done to it,
 thus making them effectively non-existent."
@@ -271,7 +271,7 @@ thus making them effectively non-existent."
  :type 'regexp)
 (defcustom gnus-subscribe-newsgroup-method 'gnus-subscribe-zombies
-  "*Function(s) called with a group name when new group is detected.
+  "Function(s) called with a group name when new group is detected.
 A few pre-made functions are supplied: `gnus-subscribe-randomly'
 inserts new groups at the beginning of the list of groups;
 `gnus-subscribe-alphabetically' inserts new groups in strict
@@ -295,7 +295,7 @@ claim them."
 (define-obsolete-variable-alias 'gnus-subscribe-newsgroup-hooks
  'gnus-subscribe-newsgroup-functions "24.3")
 (defcustom gnus-subscribe-newsgroup-functions nil
-  "*Hooks run after you subscribe to a new group.
+  "Hooks run after you subscribe to a new group.
 The hooks will be called with new group's name as argument."
  :version "22.1"
  :group 'gnus-group-new
@@ -303,7 +303,7 @@ The hooks will be called with new group's name as argument."
 (defcustom gnus-subscribe-options-newsgroup-method
  'gnus-subscribe-alphabetically
-  "*Function(s) called to subscribe newsgroups mentioned on \"options -n\" lines.
+  "Function(s) called to subscribe newsgroups mentioned on \"options -n\" lines.
 If, for instance, you want to subscribe to all newsgroups in the
 \"no\" and \"alt\" hierarchies, you'd put the following in your
 .newsrc file:
@@ -324,7 +324,7 @@ with the subscription method in this variable."
                (repeat function)))
 (defcustom gnus-subscribe-hierarchical-interactive nil
-  "*If non-nil, Gnus will offer to subscribe hierarchically.
+  "If non-nil, Gnus will offer to subscribe hierarchically.
 When a new hierarchy appears, Gnus will ask the user:
 'alt.binaries': Do you want to subscribe to this hierarchy? ([d]ys):
@@ -336,7 +336,7 @@ hierarchy in its entirety."
  :type 'boolean)
 (defcustom gnus-auto-subscribed-categories '(mail post-mail)
-  "*New groups from methods of these categories will be subscribed automatically.
+  "New groups from methods of these categories will be subscribed automatically.
 Note that this variable only deals with new groups.  It has no
 effect whatsoever on old groups.  The default is to automatically
 subscribe all groups from mail-like backends."
@@ -346,7 +346,7 @@ subscribe all groups from mail-like backends."
 (defcustom gnus-auto-subscribed-groups
  "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir\\|^nnimap"
-  "*All new groups that match this regexp will be subscribed automatically.
+  "All new groups that match this regexp will be subscribed automatically.
 Note that this variable only deals with new groups.  It has no effect
 whatsoever on old groups.
@@ -357,7 +357,7 @@ be subscribed using `gnus-subscribe-options-newsgroup-method'."
  :type 'regexp)
 (defcustom gnus-options-subscribe nil
-  "*All new groups matching this regexp will be subscribed unconditionally.
+  "All new groups matching this regexp will be subscribed unconditionally.
 Note that this variable deals only with new newsgroups.  This variable
 does not affect old newsgroups.
@@ -369,7 +369,7 @@ be subscribed using `gnus-subscribe-options-newsgroup-method'."
                 (const :tag "none" nil)))
 (defcustom gnus-options-not-subscribe nil
-  "*All new groups matching this regexp will be ignored.
+  "All new groups matching this regexp will be ignored.
 Note that this variable deals only with new newsgroups.  This variable
 does not affect old (already subscribed) newsgroups."
  :group 'gnus-group-new
@@ -377,7 +377,7 @@ does not affect old (already subscribed) newsgroups."
                 (const :tag "none" nil)))
 (defcustom gnus-modtime-botch nil
-  "*Non-nil means .newsrc should be deleted prior to save.
+  "Non-nil means .newsrc should be deleted prior to save.
 Its use is due to the bogus appearance that .newsrc was modified on
 disc."
  :group 'gnus-newsrc
@@ -432,7 +432,7 @@ See also `gnus-before-startup-hook'."
 (defcustom gnus-after-getting-new-news-hook
  '(gnus-display-time-event-handler)
-  "*A hook run after Gnus checks for new news when Gnus is already running."
+  "A hook run after Gnus checks for new news when Gnus is already running."
  :version "24.1"
  :group 'gnus-group-new
  :type 'hook)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 67b4268dbd9..a81a4e24c41 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -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."
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 39236594eb7..809caee64a0 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -63,12 +63,12 @@ See Info node `(gnus)Formatting Variables'."
  :group 'gnus-topic)
 (defcustom gnus-topic-indent-level 2
-  "*How much each subtopic should be indented."
+  "How much each subtopic should be indented."
  :type 'integer
  :group 'gnus-topic)
 (defcustom gnus-topic-display-empty-topics t
-  "*If non-nil, display the topic lines even of topics that have no unread articles."
+  "If non-nil, display the topic lines even of topics that have no unread articles."
  :type 'boolean
  :group 'gnus-topic)
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 7d3c7089225..906ea603770 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -417,7 +417,7 @@ Cache the result as a text property stored in DATE."
    i))
 (defcustom gnus-verbose 6
-  "*Integer that says how verbose Gnus should be.
+  "Integer that says how verbose Gnus should be.
 The higher the number, the more messages Gnus will flash to say what
 it's doing.  At zero, Gnus will be totally mute; at five, Gnus will
 display most important messages; and at ten, Gnus will keep on
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index f199d1659d9..d09210da085 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -73,7 +73,7 @@
    ("\\.\\(flc\\|fli\\|rle\\|iff\\|pfx\\|avi\\|sme\\|rpza\\|dl\\|qt\\|rsrc\\|mov\\)$" "xanim")
    ("\\.\\(tar\\|arj\\|zip\\|zoo\\|arc\\|gz\\|Z\\|lzh\\|ar\\|lha\\)$"
     "gnus-uu-archive"))
-  "*Default actions to be taken when the user asks to view a file.
+  "Default actions to be taken when the user asks to view a file.
 To change the behavior, you can either edit this variable or set
 `gnus-uu-user-view-rules' to something useful.
@@ -113,7 +113,7 @@ details."
 (defcustom gnus-uu-user-view-rules-end
  '(("" "file"))
-  "*What actions are to be taken if no rule matched the file name.
+  "What actions are to be taken if no rule matched the file name.
 See the documentation on the `gnus-uu-default-view-rules' variable for
 details."
  :group 'gnus-extract-view
@@ -131,7 +131,7 @@ details."
    ("\\.Z$" "uncompress")
    ("\\.gz$" "gunzip")
    ("\\.arc$" "arc -x"))
-  "*See `gnus-uu-user-archive-rules'."
+  "See `gnus-uu-user-archive-rules'."
  :group 'gnus-extract-archive
  :type '(repeat (group regexp (string :tag "Command"))))
@@ -149,7 +149,7 @@ unpack zip files, say the following:
  :type '(repeat (group regexp (string :tag "Command"))))
 (defcustom gnus-uu-ignore-files-by-name nil
-  "*A regular expression saying what files should not be viewed based on name.
+  "A regular expression saying what files should not be viewed based on name.
 If, for instance, you want gnus-uu to ignore all .au and .wav files,
 you could say something like
@@ -162,7 +162,7 @@ Note that this variable can be used in conjunction with the
                 (regexp :format "%v")))
 (defcustom gnus-uu-ignore-files-by-type nil
-  "*A regular expression saying what files that shouldn't be viewed, based on MIME file type.
+  "A regular expression saying what files that shouldn't be viewed, based on MIME file type.
 If, for instance, you want gnus-uu to ignore all audio files and all mpegs,
 you could say something like
@@ -224,13 +224,13 @@ Default is \"/tmp/\"."
  :type 'directory)
 (defcustom gnus-uu-do-not-unpack-archives nil
-  "*Non-nil means that gnus-uu won't peek inside archives looking for files to display.
+  "Non-nil means that gnus-uu won't peek inside archives looking for files to display.
 Default is nil."
  :group 'gnus-extract-archive
  :type 'boolean)
 (defcustom gnus-uu-ignore-default-view-rules nil
-  "*Non-nil means that gnus-uu will ignore the default viewing rules.
+  "Non-nil means that gnus-uu will ignore the default viewing rules.
 Only the user viewing rules will be consulted.  Default is nil."
  :group 'gnus-extract-view
  :type 'boolean)
@@ -245,19 +245,19 @@ and `gnus-uu-grab-move'."
  :type 'hook)
 (defcustom gnus-uu-ignore-default-archive-rules nil
-  "*Non-nil means that gnus-uu will ignore the default archive unpacking commands.
+  "Non-nil means that gnus-uu will ignore the default archive unpacking commands.
 Only the user unpacking commands will be consulted.  Default is nil."
  :group 'gnus-extract-archive
  :type 'boolean)
 (defcustom gnus-uu-kill-carriage-return t
-  "*Non-nil means that gnus-uu will strip all carriage returns from articles.
+  "Non-nil means that gnus-uu will strip all carriage returns from articles.
 Default is t."
  :group 'gnus-extract
  :type 'boolean)
 (defcustom gnus-uu-view-with-metamail nil
-  "*Non-nil means that files will be viewed with metamail.
+  "Non-nil means that files will be viewed with metamail.
 The gnus-uu viewing functions will be ignored and gnus-uu will try
 to guess at a content-type based on file name suffixes.  Default
 it nil."
@@ -265,19 +265,19 @@ it nil."
  :type 'boolean)
 (defcustom gnus-uu-unmark-articles-not-decoded nil
-  "*Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread.
+  "Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread.
 Default is nil."
  :group 'gnus-extract
  :type 'boolean)
 (defcustom gnus-uu-correct-stripped-uucode nil
-  "*Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.
+  "Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.
 Default is nil."
  :group 'gnus-extract
  :type 'boolean)
 (defcustom gnus-uu-save-in-digest nil
-  "*Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.
+  "Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.
 If this variable is nil, gnus-uu will just save everything in a
 file without any embellishments.  The digesting almost conforms to RFC1153 -
 no easy way to specify any meaningful volume and issue numbers were found,
@@ -295,19 +295,19 @@ so I simply dropped them."
    "^Summary:" "^References:" "^Content-Type:" "^Content-Transfer-Encoding:"
    "^MIME-Version:" "^Content-Disposition:" "^Content-Description:"
    "^Content-ID:")
-  "*List of regexps to match headers included in digested messages.
+  "List of regexps to match headers included in digested messages.
 The headers will be included in the sequence they are matched.  If nil
 include all headers."
  :group 'gnus-extract
  :type '(repeat regexp))
 (defcustom gnus-uu-save-separate-articles nil
-  "*Non-nil means that gnus-uu will save articles in separate files."
+  "Non-nil means that gnus-uu will save articles in separate files."
  :group 'gnus-extract
  :type 'boolean)
 (defcustom gnus-uu-be-dangerous 'ask
-  "*Specifies what to do if unusual situations arise during decoding.
+  "Specifies what to do if unusual situations arise during decoding.
 If nil, be as conservative as possible.  If t, ignore things that
 didn't work, and overwrite existing files.  Otherwise, ask each time."
  :group 'gnus-extract
diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el
index 9c950a9e3e9..6fc3bc45a90 100644
--- a/lisp/gnus/gnus-win.el
+++ b/lisp/gnus/gnus-win.el
@@ -34,27 +34,27 @@
  :group 'gnus)
 (defcustom gnus-use-full-window t
-  "*If non-nil, use the entire Emacs screen."
+  "If non-nil, use the entire Emacs screen."
  :group 'gnus-windows
  :type 'boolean)
 (defcustom gnus-window-min-width 2
-  "*Minimum width of Gnus buffers."
+  "Minimum width of Gnus buffers."
  :group 'gnus-windows
  :type 'integer)
 (defcustom gnus-window-min-height 1
-  "*Minimum height of Gnus buffers."
+  "Minimum height of Gnus buffers."
  :group 'gnus-windows
  :type 'integer)
 (defcustom gnus-always-force-window-configuration nil
-  "*If non-nil, always force the Gnus window configurations."
+  "If non-nil, always force the Gnus window configurations."
  :group 'gnus-windows
  :type 'boolean)
 (defcustom gnus-use-frames-on-any-display nil
-  "*If non-nil, frames on all displays will be considered usable by Gnus.
+  "If non-nil, frames on all displays will be considered usable by Gnus.
 When nil, only frames on the same display as the selected frame will be
 used to display Gnus windows."
  :version "22.1"
@@ -195,7 +195,7 @@ See the Gnus manual for an explanation of the syntax used.")
  "Mapping from short symbols to buffer names or buffer variables.")
 (defcustom gnus-configure-windows-hook nil
-  "*A hook called when configuring windows."
+  "A hook called when configuring windows."
  :version "22.1"
  :group 'gnus-windows
  :type 'hook)
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index edf46f173b1..943ba0889b6 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -997,7 +997,7 @@ be set in `.emacs' instead."
  "Color alist used for the Gnus logo.")
 (defcustom gnus-logo-color-style 'ma
-  "*Color styles used for the Gnus logo."
+  "Color styles used for the Gnus logo."
  :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
                           gnus-logo-color-alist))
  :group 'gnus-xmas)
@@ -1240,7 +1240,7 @@ in `.gnus.el'.  Set this variable in `.emacs' instead."
 (defcustom gnus-directory (or (getenv "SAVEDIR")
                              (nnheader-concat gnus-home-directory "News/"))
-  "*Directory variable from which all other Gnus file variables are derived.
+  "Directory variable from which all other Gnus file variables are derived.
 Note that Gnus is mostly loaded when the `.gnus.el' file is read.
 This means that other directory variables that are initialized from
@@ -1250,7 +1250,7 @@ Set this variable in `.emacs' instead."
  :type 'directory)
 (defcustom gnus-default-directory nil
-  "*Default directory for all Gnus buffers."
+  "Default directory for all Gnus buffers."
  :group 'gnus-files
  :type '(choice (const :tag "current" nil)
                 directory))
@@ -1321,7 +1321,7 @@ see the manual for details."
  :type 'gnus-select-method)
 (defcustom gnus-message-archive-method "archive"
-  "*Method used for archiving messages you've sent.
+  "Method used for archiving messages you've sent.
 This should be a mail method.
 See also `gnus-update-message-archive-method'."
@@ -1347,7 +1347,7 @@ saved \"archive\" method to be updated whenever you change the value of
  :type 'boolean)
 (defcustom gnus-message-archive-group '((format-time-string "sent.%Y-%m"))
-  "*Name of the group in which to save the messages you've written.
+  "Name of the group in which to save the messages you've written.
 This can either be a string; a list of strings; or an alist
 of regexps/functions/forms to be evaluated to return a string (or a list
 of strings).  The functions are called with the name of the current
@@ -1433,7 +1433,7 @@ list, Gnus will try all the methods in the list until it finds a match."
                                 gnus-select-method))))
 (defcustom gnus-use-cross-reference t
-  "*Non-nil means that cross referenced articles will be marked as read.
+  "Non-nil means that cross referenced articles will be marked as read.
 If nil, ignore cross references.  If t, mark articles as read in
 subscribed newsgroups.  If neither t nor nil, mark as read in all
 newsgroups."
@@ -1444,13 +1444,13 @@ newsgroups."
                       :value always)))
 (defcustom gnus-process-mark ?#
-  "*Process mark."
+  "Process mark."
  :group 'gnus-group-visual
  :group 'gnus-summary-marks
  :type 'character)
 (defcustom gnus-large-newsgroup 200
-  "*The number of articles which indicates a large newsgroup.
+  "The number of articles which indicates a large newsgroup.
 If the number of articles in a newsgroup is greater than this value,
 confirmation is required for selecting the newsgroup.
 If it is nil, no confirmation is required.
@@ -1484,24 +1484,24 @@ on all other systems it defaults to t."
                           (const not-kill))))
 (defcustom gnus-kill-files-directory gnus-directory
-  "*Name of the directory where kill files will be stored (default \"~/News\")."
+  "Name of the directory where kill files will be stored (default \"~/News\")."
  :group 'gnus-score-files
  :group 'gnus-score-kill
  :type 'directory)
 (defcustom gnus-save-score nil
-  "*If non-nil, save group scoring info."
+  "If non-nil, save group scoring info."
  :group 'gnus-score-various
  :group 'gnus-start
  :type 'boolean)
 (defcustom gnus-use-undo t
-  "*If non-nil, allow undoing in Gnus group mode buffers."
+  "If non-nil, allow undoing in Gnus group mode buffers."
  :group 'gnus-meta
  :type 'boolean)
 (defcustom gnus-use-adaptive-scoring nil
-  "*If non-nil, use some adaptive scoring scheme.
+  "If non-nil, use some adaptive scoring scheme.
 If a list, then the values `word' and `line' are meaningful.  The
 former will perform adaption on individual words in the subject
 header while `line' will perform adaption on several headers."
@@ -1510,7 +1510,7 @@ header while `line' will perform adaption on several headers."
  :type '(set (const word) (const line)))
 (defcustom gnus-use-cache 'passive
-  "*If nil, Gnus will ignore the article cache.
+  "If nil, Gnus will ignore the article cache.
 If `passive', it will allow entering (and reading) articles
 explicitly entered into the cache.  If anything else, use the
 cache to the full extent of the law."
@@ -1521,12 +1521,12 @@ cache to the full extent of the law."
                 (const :tag "active" t)))
 (defcustom gnus-use-trees nil
-  "*If non-nil, display a thread tree buffer."
+  "If non-nil, display a thread tree buffer."
  :group 'gnus-meta
  :type 'boolean)
 (defcustom gnus-keep-backlog 20
-  "*If non-nil, Gnus will keep read articles for later re-retrieval.
+  "If non-nil, Gnus will keep read articles for later re-retrieval.
 If it is a number N, then Gnus will only keep the last N articles
 read.  If it is neither nil nor a number, Gnus will keep all read
 articles.  This is not a good idea."
@@ -1537,43 +1537,43 @@ articles.  This is not a good idea."
                       :value t)))
 (defcustom gnus-suppress-duplicates nil
-  "*If non-nil, Gnus will mark duplicate copies of the same article as read."
+  "If non-nil, Gnus will mark duplicate copies of the same article as read."
  :group 'gnus-meta
  :type 'boolean)
 (defcustom gnus-use-scoring t
-  "*If non-nil, enable scoring."
+  "If non-nil, enable scoring."
  :group 'gnus-meta
  :type 'boolean)
 (defcustom gnus-summary-prepare-exit-hook
  '(gnus-summary-expire-articles)
-  "*A hook called when preparing to exit from the summary buffer.
+  "A hook called when preparing to exit from the summary buffer.
 It calls `gnus-summary-expire-articles' by default."
  :group 'gnus-summary-exit
  :type 'hook)
 (defcustom gnus-novice-user t
-  "*Non-nil means that you are a Usenet novice.
+  "Non-nil means that you are a Usenet novice.
 If non-nil, verbose messages may be displayed and confirmations may be
 required."
  :group 'gnus-meta
  :type 'boolean)
 (defcustom gnus-expert-user nil
-  "*Non-nil means that you will never be asked for confirmation about anything.
+  "Non-nil means that you will never be asked for confirmation about anything.
 That doesn't mean *anything* anything; particularly destructive
 commands will still require prompting."
  :group 'gnus-meta
  :type 'boolean)
 (defcustom gnus-interactive-catchup t
-  "*If non-nil, require your confirmation when catching up a group."
+  "If non-nil, require your confirmation when catching up a group."
  :group 'gnus-group-select
  :type 'boolean)
 (defcustom gnus-interactive-exit t
-  "*If non-nil, require your confirmation when exiting Gnus.
+  "If non-nil, require your confirmation when exiting Gnus.
 If `quiet', update any active summary buffers automatically
 first before exiting."
  :group 'gnus-exit
@@ -1581,7 +1581,7 @@ first before exiting."
                 (const quiet)))
 (defcustom gnus-extract-address-components 'gnus-extract-address-components
-  "*Function for extracting address components from a From header.
+  "Function for extracting address components from a From header.
 Two pre-defined function exist: `gnus-extract-address-components',
 which is the default, quite fast, and too simplistic solution, and
 `mail-extract-address-components', which works much better, but is
@@ -1617,7 +1617,7 @@ slower."
     server-marks cloud)
    ("nnmaildir" mail respool address server-marks)
    ("nnnil" none))
-  "*An alist of valid select methods.
+  "An alist of valid select methods.
 The first element of each list lists should be a string with the name
 of the select method.  The other elements may be the category of
 this method (i. e., `post', `mail', `none' or whatever) or other
@@ -1676,7 +1676,7 @@ If this variable is nil, screen refresh may be quicker."
              (const tree)))
 (defcustom gnus-mode-non-string-length 30
-  "*Max length of mode-line non-string contents.
+  "Max length of mode-line non-string contents.
 If this is nil, Gnus will take space as is needed, leaving the rest
 of the mode line intact."
  :version "24.1"
@@ -1693,7 +1693,7 @@ of the mode line intact."
 :function-document
 "Return GROUP's to-address."
 :variable-document
- "*Alist of group regexps and correspondent to-addresses."
+ "Alist of group regexps and correspondent to-addresses."
 :variable-group gnus-group-parameter
 :parameter-type '(gnus-email-address :tag "To Address")
 :parameter-document "\
@@ -1720,7 +1720,7 @@ address was listed in gnus-group-split Addresses (see below).")
 :function-document
 "Return GROUP's to-list."
 :variable-document
- "*Alist of group regexps and correspondent to-lists."
+ "Alist of group regexps and correspondent to-lists."
 :variable-group gnus-group-parameter
 :parameter-type '(gnus-email-address :tag "To List")
 :parameter-document "\
@@ -1739,7 +1739,7 @@ address was listed in gnus-group-split Addresses (see below).")
 :function-document
 "Return GROUP's subscription status."
 :variable-document
- "*Groups which are automatically considered subscribed."
+ "Groups which are automatically considered subscribed."
 :variable-group gnus-group-parameter
 :parameter-type '(const :tag "Subscribed" t)
 :parameter-document "\
@@ -1758,7 +1758,7 @@ above, or the list address (if the To address has not been set).")
 :variable gnus-auto-expirable-newsgroups
 :variable-default nil
 :variable-document
- "*Groups in which to automatically mark read articles as expirable.
+ "Groups in which to automatically mark read articles as expirable.
 If non-nil, this should be a regexp that should match all groups in
 which to perform auto-expiry.  This only makes sense for mail groups."
 :variable-group nnmail-expire
@@ -1777,7 +1777,7 @@ which to perform auto-expiry.  This only makes sense for mail groups."
 :variable gnus-total-expirable-newsgroups
 :variable-default nil
 :variable-document
- "*Groups in which to perform expiry of all read articles.
+ "Groups in which to perform expiry of all read articles.
 Use with extreme caution.  All groups that match this regexp will be
 expiring - which means that all read articles will be deleted after
 \(say) one week.  (This only goes for mail groups and the like, of
@@ -1846,7 +1846,7 @@ posting an article."
 :function-document
 "Return GROUP's initial input of the number of articles."
 :variable-document
- "*Alist of group regexps and its initial input of the number of articles."
+ "Alist of group regexps and its initial input of the number of articles."
 :variable-group gnus-group-parameter
 :parameter-type '(choice :tag "Initial Input for Large Newsgroup"
                          (const :tag "All" nil)
@@ -1870,7 +1870,7 @@ total number of articles in the group.")
                    '("delayed$" "drafts$" "queue$" "INBOX$"
                      "^nnmairix:" "^nnir:" "archive"))
 :variable-document
- "*Groups in which the registry should be turned off."
+ "Groups in which the registry should be turned off."
 :variable-group gnus-registry
 :variable-type '(repeat
                  (list
@@ -1883,7 +1883,7 @@ total number of articles in the group.")
 ;; group parameters for spam processing added by Ted Zlatanov <tzz@lifelogs.com>
 (defcustom gnus-install-group-spam-parameters t
-  "*Disable the group parameters for spam detection.
+  "Disable the group parameters for spam detection.
 Enable if `G c' in XEmacs is giving you trouble, and make sure to submit a bug report."
  :version "22.1"
  :type 'boolean
@@ -1913,7 +1913,7 @@ registry.")
   :variable gnus-spam-newsgroup-contents
   :variable-default nil
   :variable-document
-   "*Group classification (spam, ham, or neither).  Only
+   "Group classification (spam, ham, or neither).  Only
 meaningful when spam.el is loaded.  If non-nil, this should be a
 list of group name regexps associated with a classification for
 each one.  In spam groups, new articles are marked as spam on
@@ -2070,7 +2070,7 @@ Only applicable to non-spam (unclassified and ham) groups.")
   :variable gnus-spam-process-newsgroups
   :variable-default nil
   :variable-document
-   "*Groups in which to automatically process spam or ham articles with
+   "Groups in which to automatically process spam or ham articles with
 a backend on summary exit.  If non-nil, this should be a list of group
 name regexps that should match all groups in which to do automatic
 spam processing, associated with the appropriate processor."
@@ -2129,7 +2129,7 @@ spam processing, associated with the appropriate processor."
   :variable gnus-spam-autodetect
   :variable-default nil
   :variable-document
-   "*Groups in which spam should be autodetected when they are entered.
+   "Groups in which spam should be autodetected when they are entered.
   Only unseen articles will be examined, unless
   spam-autodetect-recheck-messages is set."
   :variable-group spam
@@ -2175,7 +2175,7 @@ spam-autodetect-recheck-messages is set.")
   :variable gnus-spam-autodetect-methods
   :variable-default nil
   :variable-document
-   "*Methods for autodetecting spam per group.
+   "Methods for autodetecting spam per group.
 Requires the spam-autodetect parameter.  Only unseen articles
 will be examined, unless spam-autodetect-recheck-messages is
 set."
@@ -2227,7 +2227,7 @@ set.")
   :variable gnus-spam-process-destinations
   :variable-default nil
   :variable-document
-   "*Groups in which to explicitly send spam-processed articles to
+   "Groups in which to explicitly send spam-processed articles to
 another group, or expire them (the default).  If non-nil, this should
 be a list of group name regexps that should match all groups in which
 to do spam-processed article moving, associated with the destination
@@ -2264,7 +2264,7 @@ mail groups."
   :variable gnus-ham-process-destinations
   :variable-default nil
   :variable-document
-   "*Groups in which to explicitly send ham articles to
+   "Groups in which to explicitly send ham articles to
 another group, or do nothing (the default).  If non-nil, this should
 be a list of group name regexps that should match all groups in which
 to do ham article moving, associated with the destination
@@ -2309,7 +2309,7 @@ spam-ham-marks variable takes precedence."
                               gnus-low-score-mark))))
   :variable-group spam
   :variable-document
-   "*Groups in which to explicitly set the ham marks to some value.")
+   "Groups in which to explicitly set the ham marks to some value.")
  (gnus-define-group-parameter
   spam-marks
@@ -2328,7 +2328,7 @@ spam-spam-marks variable takes precedence."
   :variable-default '((".*" ((gnus-spam-mark))))
   :variable-group spam
   :variable-document
-   "*Groups in which to explicitly set the spam marks to some value."))
+   "Groups in which to explicitly set the spam marks to some value."))
 (defcustom gnus-group-uncollapsed-levels 1
  "Number of group name elements to leave alone when making a short group name."
@@ -2336,7 +2336,7 @@ spam-spam-marks variable takes precedence."
  :type 'integer)
 (defcustom gnus-group-use-permanent-levels nil
-  "*If non-nil, once you set a level, Gnus will use this level."
+  "If non-nil, once you set a level, Gnus will use this level."
  :group 'gnus-group-levels
  :type 'boolean)
@@ -2384,7 +2384,7 @@ It is called with three parameters -- GROUP, LEVEL and OLDLEVEL."
                      tree-highlight menu highlight
                      browse-menu server-menu
                      page-marker tree-menu binary-menu pick-menu)
-  "*Enable visual features.
+  "Enable visual features.
 If `visual' is disabled, there will be no menus and few faces.  Most of
 the visual customization options below will be ignored.  Gnus will use
 less space and be faster as a result.
@@ -2437,14 +2437,14 @@ Valid elements include `summary-highlight', `group-highlight',
            'highlight)
        'default)
    (error 'highlight))
-  "*Face used for group or summary buffer mouse highlighting.
+  "Face used for group or summary buffer mouse highlighting.
 The line beneath the mouse pointer will be highlighted with this
 face."
  :group 'gnus-visual
  :type 'face)
 (defcustom gnus-article-save-directory gnus-directory
-  "*Name of the directory articles will be saved in (default \"~/News\")."
+  "Name of the directory articles will be saved in (default \"~/News\")."
  :group 'gnus-article-saving
  :type 'directory)
@@ -2596,7 +2596,7 @@ a string, be sure to use a valid format, see RFC 2616."
 (defcustom gnus-cache-directory
  (nnheader-concat gnus-directory "cache/")
-  "*The directory where cached articles will be stored."
+  "The directory where cached articles will be stored."
  :group 'gnus-cache
  :type 'directory)
@@ -2930,7 +2930,7 @@ gnus-registry.el will populate this if it's loaded.")
 (defcustom gnus-summary-line-format "%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n"
-  "*The format specification of the lines in the summary buffer.
+  "The format specification of the lines in the summary buffer.
 It works along the same lines as a normal formatting string,
 with some simple extensions.
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index ebc9c97b656..59a97dbb8c6 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -228,7 +228,7 @@ Leave mails for this many days" :value 14)))))
                                           (boolean :tag "Plugged"))))))))
 (defcustom mail-source-ignore-errors nil
-  "*Ignore errors when querying mail sources.
+  "Ignore errors when querying mail sources.
 If nil, the user will be prompted when an error occurs.  If non-nil,
 the error will be ignored."
  :version "22.1"
@@ -236,13 +236,13 @@ the error will be ignored."
  :type 'boolean)
 (defcustom mail-source-primary-source nil
-  "*Primary source for incoming mail.
+  "Primary source for incoming mail.
 If non-nil, this maildrop will be checked periodically for new mail."
  :group 'mail-source
  :type 'sexp)
 (defcustom mail-source-flash t
-  "*If non-nil, flash periodically when mail is available."
+  "If non-nil, flash periodically when mail is available."
  :group 'mail-source
  :type 'boolean)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 03ce789e9eb..c3bdfdbf7aa 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -115,12 +115,12 @@
  :group 'faces)
 (defcustom message-directory "~/Mail/"
-  "*Directory from which all other mail file variables are derived."
+  "Directory from which all other mail file variables are derived."
  :group 'message-various
  :type 'directory)
 (defcustom message-max-buffers 10
-  "*How many buffers to keep before starting to kill them off."
+  "How many buffers to keep before starting to kill them off."
  :group 'message-buffers
  :type 'integer)
@@ -130,7 +130,7 @@
  :type '(choice function (const nil)))
 (defcustom message-fcc-handler-function 'message-output
-  "*A function called to save outgoing articles.
+  "A function called to save outgoing articles.
 This function will be called with the name of the file to store the
 article in.  The default function is `message-output' which saves in Unix
 mailbox format."
@@ -146,7 +146,7 @@ mailbox format."
 (defcustom message-courtesy-message
  "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
-  "*This is inserted at the start of a mailed copy of a posted message.
+  "This is inserted at the start of a mailed copy of a posted message.
 If the string contains the format spec \"%s\", the Newsgroups
 the article has been posted to will be inserted there.
 If this variable is nil, no such courtesy message will be added."
@@ -155,7 +155,7 @@ If this variable is nil, no such courtesy message will be added."
 (defcustom message-ignored-bounced-headers
  "^\\(Received\\|Return-Path\\|Delivered-To\\):"
-  "*Regexp that matches headers to be removed in resent bounced mail."
+  "Regexp that matches headers to be removed in resent bounced mail."
  :group 'message-interface
  :type 'regexp)
@@ -187,7 +187,7 @@ Otherwise, most addresses look like `angles', but they look like
 (defcustom message-syntax-checks
  (if message-insert-canlock '((sender . disabled)) nil)
  ;; Guess this one shouldn't be easy to customize...
-  "*Controls what syntax checks should not be performed on outgoing posts.
+  "Controls what syntax checks should not be performed on outgoing posts.
 To disable checking of long signatures, for instance, add
 `(signature . disabled)' to this list.
@@ -205,7 +205,7 @@ and `valid-newsgroups'."
 (defcustom message-required-headers '((optional . References)
                                      From)
-  "*Headers to be generated or prompted for when sending a message.
+  "Headers to be generated or prompted for when sending a message.
 Also see `message-required-news-headers' and
 `message-required-mail-headers'."
  :version "22.1"
@@ -215,7 +215,7 @@ Also see `message-required-news-headers' and
  :type '(repeat sexp))
 (defcustom message-draft-headers '(References From Date)
-  "*Headers to be generated when saving a draft message."
+  "Headers to be generated when saving a draft message."
  :version "22.1"
  :group 'message-news
  :group 'message-headers
@@ -226,7 +226,7 @@ Also see `message-required-news-headers' and
  '(From Newsgroups Subject Date Message-ID
         (optional . Organization)
         (optional . User-Agent))
-  "*Headers to be generated or prompted for when posting an article.
+  "Headers to be generated or prompted for when posting an article.
 RFC977 and RFC1036 require From, Date, Newsgroups, Subject,
 Message-ID.  Organization, Lines, In-Reply-To, Expires, and
 User-Agent are optional.  If you don't want message to insert some
@@ -239,7 +239,7 @@ header, remove it from this list."
 (defcustom message-required-mail-headers
  '(From Subject Date (optional . In-Reply-To) Message-ID
         (optional . User-Agent))
-  "*Headers to be generated or prompted for when mailing a message.
+  "Headers to be generated or prompted for when mailing a message.
 It is recommended that From, Date, To, Subject and Message-ID be
 included.  Organization and User-Agent are optional."
  :group 'message-mail
@@ -264,7 +264,7 @@ This is a list of regexps and regexp matches."
 (defcustom message-ignored-news-headers
  "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:\\|^X-Message-SMTP-Method:\\|^X-Gnus-Delayed:"
-  "*Regexp of headers to be removed unconditionally before posting."
+  "Regexp of headers to be removed unconditionally before posting."
  :group 'message-news
  :group 'message-headers
  :link '(custom-manual "(message)Message Headers")
@@ -277,14 +277,14 @@ This is a list of regexps and regexp matches."
 (defcustom message-ignored-mail-headers
  "^\\([GF]cc\\|Resent-Fcc\\|Xref\\|X-Draft-From\\|X-Gnus-Agent-Meta-Information\\):"
-  "*Regexp of headers to be removed unconditionally before mailing."
+  "Regexp of headers to be removed unconditionally before mailing."
  :group 'message-mail
  :group 'message-headers
  :link '(custom-manual "(message)Mail Headers")
  :type 'regexp)
 (defcustom message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-ID:\\|^X-Complaints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Payment:\\|^Approved:\\|^Injection-Date:\\|^Injection-Info:"
-  "*Header lines matching this regexp will be deleted before posting.
+  "Header lines matching this regexp will be deleted before posting.
 It's best to delete old Path and Date headers before posting to avoid
 any confusion."
  :group 'message-interface
@@ -298,7 +298,7 @@ any confusion."
 (defcustom message-subject-re-regexp
  "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)* ?:[ \t]*\\)*[ \t]*"
-  "*Regexp matching \"Re: \" in the subject line."
+  "Regexp matching \"Re: \" in the subject line."
  :group 'message-various
  :link '(custom-manual "(message)Message Headers")
  :type 'regexp)
@@ -306,7 +306,7 @@ any confusion."
 ;;; Start of variables adopted from `message-utils.el'.
 (defcustom message-subject-trailing-was-query t
-  "*What to do with trailing \"(was: <old subject>)\" in subject lines.
+  "What to do with trailing \"(was: <old subject>)\" in subject lines.
 If nil, leave the subject unchanged.  If it is the symbol `ask', query
 the user what do do.  In this case, the subject is matched against
 `message-subject-trailing-was-ask-regexp'.  If
@@ -322,7 +322,7 @@ used."
 (defcustom message-subject-trailing-was-ask-regexp
  "[ \t]*\\([[(]+[Ww][Aa][Ss]:?[ \t]*.*[])]+\\)"
-  "*Regexp matching \"(was: <old subject>)\" in the subject line.
+  "Regexp matching \"(was: <old subject>)\" in the subject line.
 The function `message-strip-subject-trailing-was' uses this regexp if
 `message-subject-trailing-was-query' is set to the symbol `ask'.  If
@@ -337,7 +337,7 @@ It is okay to create some false positives here, as the user is asked."
 (defcustom message-subject-trailing-was-regexp
  "[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)"
-  "*Regexp matching \"(was: <old subject>)\" in the subject line.
+  "Regexp matching \"(was: <old subject>)\" in the subject line.
 If `message-subject-trailing-was-query' is set to t, the subject is
 matched against `message-subject-trailing-was-regexp' in
@@ -438,7 +438,7 @@ whitespace)."
  :group 'message-various)
 (defcustom message-elide-ellipsis "\n[...]\n\n"
-  "*The string which is inserted for elided text.
+  "The string which is inserted for elided text.
 This is a format-spec string, and you can use %l to say how many
 lines were removed, and %c to say how many characters were
 removed."
@@ -464,7 +464,7 @@ A value of nil means let mailer mail back a message to report errors."
  :type 'boolean)
 (defcustom message-generate-new-buffers 'unsent
-  "*Say whether to create a new message buffer to compose a message.
+  "Say whether to create a new message buffer to compose a message.
 Valid values include:
 nil
@@ -497,13 +497,13 @@ function
                 (function :format "\n    %{%t%}: %v")))
 (defcustom message-kill-buffer-on-exit nil
-  "*Non-nil means that the message buffer will be killed after sending a message."
+  "Non-nil means that the message buffer will be killed after sending a message."
  :group 'message-buffers
  :link '(custom-manual "(message)Message Buffers")
  :type 'boolean)
 (defcustom message-kill-buffer-query t
-  "*Non-nil means that killing a modified message buffer has to be confirmed.
+  "Non-nil means that killing a modified message buffer has to be confirmed.
 This is used by `message-kill-buffer'."
  :version "23.1" ;; No Gnus
  :group 'message-buffers
@@ -525,14 +525,14 @@ If t, use `message-user-organization-file'."
      (when (file-readable-p f)
        (setq orgfile f)))
    orgfile)
-  "*Local news organization file."
+  "Local news organization file."
  :type '(choice (const nil) file)
  :link '(custom-manual "(message)News Headers")
  :group 'message-headers)
 (defcustom message-make-forward-subject-function
  #'message-forward-subject-name-subject
-  "*List of functions called to generate subject headers for forwarded messages.
+  "List of functions called to generate subject headers for forwarded messages.
 The subject generated by the previous function is passed into each
 successive function.
@@ -552,7 +552,7 @@ The provided functions are:
                (repeat :tag "List of functions" function)))
 (defcustom message-forward-as-mime t
-  "*Non-nil means forward messages as an inline/rfc822 MIME section.
+  "Non-nil means forward messages as an inline/rfc822 MIME section.
 Otherwise, directly inline the old message in the forwarded message."
  :version "21.1"
  :group 'message-forwarding
@@ -560,7 +560,7 @@ Otherwise, directly inline the old message in the forwarded message."
  :type 'boolean)
 (defcustom message-forward-show-mml 'best
-  "*Non-nil means show forwarded messages as MML (decoded from MIME).
+  "Non-nil means show forwarded messages as MML (decoded from MIME).
 Otherwise, forwarded messages are unchanged.
 Can also be the symbol `best' to indicate that MML should be
 used, except when it is a bad idea to use MML.  One example where
@@ -574,12 +574,12 @@ digital signature."
                 (const :tag "use MML when appropriate" best)))
 (defcustom message-forward-before-signature t
-  "*Non-nil means put forwarded message before signature, else after."
+  "Non-nil means put forwarded message before signature, else after."
  :group 'message-forwarding
  :type 'boolean)
 (defcustom message-wash-forwarded-subjects nil
-  "*Non-nil means try to remove as much cruft as possible from the subject.
+  "Non-nil means try to remove as much cruft as possible from the subject.
 Done before generating the new subject of a forward."
  :group 'message-forwarding
  :link '(custom-manual "(message)Forwarding")
@@ -593,7 +593,7 @@ Done before generating the new subject of a forward."
  ;; bounced with a "mailing loop" error).
  "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:\
 \\|^X-Content-Length:\\|^X-UIDL:"
-  "*All headers that match this regexp will be deleted when resending a message."
+  "All headers that match this regexp will be deleted when resending a message."
  :version "24.4"
  :group 'message-interface
  :link '(custom-manual "(message)Resending")
@@ -605,7 +605,7 @@ Done before generating the new subject of a forward."
                 regexp))
 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
-  "*All headers that match this regexp will be deleted when forwarding a message.
+  "All headers that match this regexp will be deleted when forwarding a message.
 This may also be a list of regexps."
  :version "21.1"
  :group 'message-forwarding
@@ -630,13 +630,13 @@ variable should be a regexp or a list of regexps."
                 regexp))
 (defcustom message-ignored-cited-headers "."
-  "*Delete these headers from the messages you yank."
+  "Delete these headers from the messages you yank."
  :group 'message-insertion
  :link '(custom-manual "(message)Insertion Variables")
  :type 'regexp)
 (defcustom message-cite-prefix-regexp mail-citation-prefix-regexp
-  "*Regexp matching the longest possible citation prefix on a line."
+  "Regexp matching the longest possible citation prefix on a line."
  :version "24.1"
  :group 'message-insertion
  :link '(custom-manual "(message)Insertion Variables")
@@ -747,7 +747,7 @@ These are used when composing a wide reply."
  :type '(repeat string))
 (defcustom message-use-followup-to 'ask
-  "*Specifies what to do with Followup-To header.
+  "Specifies what to do with Followup-To header.
 If nil, always ignore the header.  If it is t, use its value, but
 query before using the \"poster\" value.  If it is the symbol `ask',
 always query the user whether to use the value.  If it is the symbol
@@ -760,7 +760,7 @@ always query the user whether to use the value.  If it is the symbol
                 (const ask)))
 (defcustom message-use-mail-followup-to 'use
-  "*Specifies what to do with Mail-Followup-To header.
+  "Specifies what to do with Mail-Followup-To header.
 If nil, always ignore the header.  If it is the symbol `ask', always
 query the user whether to use the value.  If it is the symbol `use',
 always use the value."
@@ -772,7 +772,7 @@ always use the value."
                 (const ask)))
 (defcustom message-subscribed-address-functions nil
-  "*Specifies functions for determining list subscription.
+  "Specifies functions for determining list subscription.
 If nil, do not attempt to determine list subscription with functions.
 If non-nil, this variable contains a list of functions which return
 regular expressions to match lists.  These functions can be used in
@@ -784,7 +784,7 @@ conjunction with `message-subscribed-regexps' and
  :type '(repeat sexp))
 (defcustom message-subscribed-address-file nil
-  "*A file containing addresses the user is subscribed to.
+  "A file containing addresses the user is subscribed to.
 If nil, do not look at any files to determine list subscriptions.  If
 non-nil, each line of this file should be a mailing list address."
  :version "22.1"
@@ -793,7 +793,7 @@ non-nil, each line of this file should be a mailing list address."
  :type '(radio file (const nil)))
 (defcustom message-subscribed-addresses nil
-  "*Specifies a list of addresses the user is subscribed to.
+  "Specifies a list of addresses the user is subscribed to.
 If nil, do not use any predefined list subscriptions.  This list of
 addresses can be used in conjunction with
 `message-subscribed-address-functions' and `message-subscribed-regexps'."
@@ -803,7 +803,7 @@ addresses can be used in conjunction with
  :type '(repeat string))
 (defcustom message-subscribed-regexps nil
-  "*Specifies a list of addresses the user is subscribed to.
+  "Specifies a list of addresses the user is subscribed to.
 If nil, do not use any predefined list subscriptions.  This list of
 regular expressions can be used in conjunction with
 `message-subscribed-address-functions' and `message-subscribed-addresses'."
@@ -825,7 +825,7 @@ symbol `never', the posting is not allowed.  If it is the symbol
                 (const ask)))
 (defcustom message-sendmail-f-is-evil nil
-  "*Non-nil means don't add \"-f username\" to the sendmail command line.
+  "Non-nil means don't add \"-f username\" to the sendmail command line.
 Doing so would be even more evil than leaving it out."
  :group 'message-sending
  :link '(custom-manual "(message)Mail Variables")
@@ -834,7 +834,7 @@ Doing so would be even more evil than leaving it out."
 (defcustom message-sendmail-envelope-from
  ;; `mail-envelope-from' is unavailable unless sendmail.el is loaded.
  (if (boundp 'mail-envelope-from) mail-envelope-from)
-  "*Envelope-from when sending mail with sendmail.
+  "Envelope-from when sending mail with sendmail.
 If this is nil, use `user-mail-address'.  If it is the symbol
 `header', use the From: header of the message."
  :version "23.2"
@@ -882,7 +882,7 @@ might set this variable to (\"-f\" \"you@some.where\")."
        ((boundp 'gnus-select-method)
         gnus-select-method)
        (t '(nnspool "")))
-  "*Method used to post news.
+  "Method used to post news.
 Note that when posting from inside Gnus, for instance, this
 variable isn't used."
  :group 'message-news
@@ -963,7 +963,7 @@ the signature is inserted."
  :group 'message-various)
 (defcustom message-citation-line-function 'message-insert-citation-line
-  "*Function called to insert the \"Whomever writes:\" line.
+  "Function called to insert the \"Whomever writes:\" line.
 Predefined functions include `message-insert-citation-line' and
 `message-insert-formatted-citation-line' (see the variable
@@ -1012,7 +1012,7 @@ Please also read the note in the documentation of
  :group 'message-insertion)
 (defcustom message-yank-prefix mail-yank-prefix
-  "*Prefix inserted on the lines of yanked messages.
+  "Prefix inserted on the lines of yanked messages.
 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
 See also `message-yank-cited-prefix' and `message-yank-empty-prefix'."
  :version "23.2"
@@ -1021,7 +1021,7 @@ See also `message-yank-cited-prefix' and `message-yank-empty-prefix'."
  :group 'message-insertion)
 (defcustom message-yank-cited-prefix ">"
-  "*Prefix inserted on cited lines of yanked messages.
+  "Prefix inserted on cited lines of yanked messages.
 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
 See also `message-yank-prefix' and `message-yank-empty-prefix'."
  :version "22.1"
@@ -1030,7 +1030,7 @@ See also `message-yank-prefix' and `message-yank-empty-prefix'."
  :group 'message-insertion)
 (defcustom message-yank-empty-prefix ">"
-  "*Prefix inserted on empty lines of yanked messages.
+  "Prefix inserted on empty lines of yanked messages.
 See also `message-yank-prefix' and `message-yank-cited-prefix'."
  :version "22.1"
  :type 'string
@@ -1038,7 +1038,7 @@ See also `message-yank-prefix' and `message-yank-cited-prefix'."
  :group 'message-insertion)
 (defcustom message-indentation-spaces mail-indentation-spaces
-  "*Number of spaces to insert at the beginning of each cited line.
+  "Number of spaces to insert at the beginning of each cited line.
 Used by `message-yank-original' via `message-yank-cite'."
  :version "23.2"
  :group 'message-insertion
@@ -1046,7 +1046,7 @@ Used by `message-yank-original' via `message-yank-cite'."
  :type 'integer)
 (defcustom message-cite-function 'message-cite-original-without-signature
-  "*Function for citing an original message.
+  "Function for citing an original message.
 Predefined functions include `message-cite-original' and
 `message-cite-original-without-signature'.
 Note that these functions use `mail-citation-hook' if that is non-nil."
@@ -1059,7 +1059,7 @@ Note that these functions use `mail-citation-hook' if that is non-nil."
  :group 'message-insertion)
 (defcustom message-indent-citation-function 'message-indent-citation
-  "*Function for modifying a citation just inserted in the mail buffer.
+  "Function for modifying a citation just inserted in the mail buffer.
 This can also be a list of functions.  Each function can find the
 citation between (point) and (mark t).  And each function should leave
 point and mark around the citation text as modified."
@@ -1068,7 +1068,7 @@ point and mark around the citation text as modified."
  :group 'message-insertion)
 (defcustom message-signature mail-signature
-  "*String to be inserted at the end of the message buffer.
+  "String to be inserted at the end of the message buffer.
 If t, the `message-signature-file' file will be inserted instead.
 If a function, the result from the function will be used instead.
 If a form, the result from the form will be used instead."
@@ -1081,7 +1081,7 @@ If a form, the result from the form will be used instead."
  :group 'message-insertion)
 (defcustom message-signature-file mail-signature-file
-  "*Name of file containing the text inserted at end of message buffer.
+  "Name of file containing the text inserted at end of message buffer.
 Ignored if the named file doesn't exist.
 If nil, don't insert a signature.
 If a path is specified, the value of `message-signature-directory' is ignored,
@@ -1092,7 +1092,7 @@ even if set."
  :group 'message-insertion)
 (defcustom message-signature-directory nil
-  "*Name of directory containing signature files.
+  "Name of directory containing signature files.
 Comes in handy if you have many such files, handled via posting styles for
 instance.
 If nil, `message-signature-file' is expected to specify the directory if
@@ -1102,14 +1102,14 @@ needed."
  :group 'message-insertion)
 (defcustom message-signature-insert-empty-line t
-  "*If non-nil, insert an empty line before the signature separator."
+  "If non-nil, insert an empty line before the signature separator."
  :version "22.1"
  :type 'boolean
  :link '(custom-manual "(message)Insertion Variables")
  :group 'message-insertion)
 (defcustom message-cite-reply-position 'traditional
-  "*Where the reply should be positioned.
+  "Where the reply should be positioned.
 If `traditional', reply inline.
 If `above', reply above quoted text.
 If `below', reply below quoted text.
@@ -1126,7 +1126,7 @@ e.g. using `gnus-posting-styles':
  :group 'message-insertion)
 (defcustom message-cite-style nil
-  "*The overall style to be used when yanking cited text.
+  "The overall style to be used when yanking cited text.
 Value is either nil (no variable overrides) or a let-style list
 of pairs (VARIABLE VALUE) that will be bound in
 `message-yank-original' to do the quoting.
@@ -1175,7 +1175,7 @@ use in `gnus-posting-styles', such as:
  "Message citation style used by Gmail. Use with message-cite-style.")
 (defcustom message-distribution-function nil
-  "*Function called to return a Distribution header."
+  "Function called to return a Distribution header."
  :group 'message-news
  :group 'message-headers
  :link '(custom-manual "(message)News Headers")
@@ -1251,7 +1251,7 @@ called and its result is inserted."
                   (stringp mail-archive-file-name))
              (format "FCC: %s\n" mail-archive-file-name))
          mail-default-headers)
-  "*A string of header lines to be inserted in outgoing mails."
+  "A string of header lines to be inserted in outgoing mails."
  :version "23.2"
  :group 'message-headers
  :group 'message-mail
@@ -1259,7 +1259,7 @@ called and its result is inserted."
  :type 'message-header-lines)
 (defcustom message-default-news-headers ""
-  "*A string of header lines to be inserted in outgoing news articles."
+  "A string of header lines to be inserted in outgoing news articles."
  :group 'message-headers
  :group 'message-news
  :link '(custom-manual "(message)News Headers")
@@ -1281,7 +1281,7 @@ called and its result is inserted."
      ;; 33 and 126, except colon)", i. e., any chars except ctl chars,
      ;; space, or colon.
      '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:"))
-  "*Set this non-nil if the system's mailer runs the header and body together.
+  "Set this non-nil if the system's mailer runs the header and body together.
 \(This problem exists on Sunos 4 when sendmail is run in remote mode.)
 The value should be an expression to test whether the problem will
 actually occur."
@@ -1313,7 +1313,7 @@ PREDICATE returns non-nil.  FUNCTION is called with one parameter --
 the prefix.")
 (defcustom message-mail-alias-type 'abbrev
-  "*What alias expansion type to use in Message buffers.
+  "What alias expansion type to use in Message buffers.
 The default is `abbrev', which uses mailabbrev.  `ecomplete' uses
 an electric completion mode.  nil switches mail aliases off.
 This can also be a list of values."
@@ -1337,7 +1337,7 @@ text and it replaces `self-insert-command' with the other command, e.g.
  (if (file-writable-p message-directory)
      (file-name-as-directory (expand-file-name "drafts" message-directory))
    "~/")
-  "*Directory where Message auto-saves buffers if Gnus isn't running.
+  "Directory where Message auto-saves buffers if Gnus isn't running.
 If nil, Message won't auto-save."
  :group 'message-buffers
  :link '(custom-manual "(message)Various Message Variables")
@@ -1687,7 +1687,7 @@ should be sent in several parts.  If it is nil, the size is unlimited."
                 (integer 1000000)))
 (defcustom message-alternative-emails nil
-  "*Regexp or predicate function matching alternative email addresses.
+  "Regexp or predicate function matching alternative email addresses.
 The first address in the To, Cc or From headers of the original
 article matching this variable is used as the From field of
 outgoing messages.
@@ -1750,7 +1750,7 @@ no, only reply back to the author."
  :type 'boolean)
 (defcustom message-user-fqdn nil
-  "*Domain part of Message-Ids."
+  "Domain part of Message-Ids."
  :version "22.1"
  :group 'message-headers
  :link '(custom-manual "(message)News Headers")
@@ -1767,7 +1767,7 @@ no, only reply back to the author."
                 (const :tag "Always" t)))
 (defcustom message-generate-hashcash (if (executable-find "hashcash") 'opportunistic)
-  "*Whether to generate X-Hashcash: headers.
+  "Whether to generate X-Hashcash: headers.
 If t, always generate hashcash headers.  If `opportunistic',
 only generate hashcash headers if it can be done without the user
 waiting (i.e., only asynchronously).
@@ -7906,7 +7906,7 @@ Each element is a symbol and can be `bbdb' or `eudc'."
  :type '(set (const bbdb) (const eudc)))
 (defcustom message-tab-body-function nil
-  "*Function to execute when `message-tab' (TAB) is executed in the body.
+  "Function to execute when `message-tab' (TAB) is executed in the body.
 If nil, the function bound in `text-mode-map' or `global-map' is executed."
  :version "22.1"
  :group 'message
diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el
index 69192667948..8e05605bc34 100644
--- a/lisp/gnus/mm-url.el
+++ b/lisp/gnus/mm-url.el
@@ -45,7 +45,7 @@
                                (condition-case nil
                                    (require 'url)
                                  (error nil)))
-  "*If non-nil, use external grab program `mm-url-program'."
+  "If non-nil, use external grab program `mm-url-program'."
  :version "22.1"
  :type 'boolean
  :group 'mm-url)
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 049890e2e30..4927a5e660d 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -43,7 +43,7 @@
 (autoload 'yenc-extract-filename "yenc")
 (defcustom mm-uu-decode-function 'uudecode-decode-region
-  "*Function to uudecode.
+  "Function to uudecode.
 Internal function is done in Lisp by default, therefore decoding may
 appear to be horribly slow.  You can make Gnus use an external
 decoder, such as uudecode."
@@ -54,7 +54,7 @@ decoder, such as uudecode."
  :group 'gnus-article-mime)
 (defcustom mm-uu-binhex-decode-function 'binhex-decode-region
-  "*Function to binhex decode.
+  "Function to binhex decode.
 Internal function is done in elisp by default, therefore decoding may
 appear to be horribly slow . You can make Gnus use the external Unix
 decoder, such as hexbin."
@@ -85,7 +85,7 @@ This can be either \"inline\" or \"attachment\".")
  :group 'gnus-article-mime)
 (defcustom mm-uu-tex-groups-regexp "\\.tex\\>"
-  "*Regexp matching TeX groups."
+  "Regexp matching TeX groups."
  :version "23.1"
  :type 'regexp
  :group 'gnus-article-mime)
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index eae4c61be82..665a9438395 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -58,7 +58,7 @@
 (defcustom mml-content-type-parameters
  '(name access-type expiration size permission format)
-  "*A list of acceptable parameters in MML tag.
+  "A list of acceptable parameters in MML tag.
 These parameters are generated in Content-Type header if exists."
  :version "22.1"
  :type '(repeat (symbol :tag "Parameter"))
@@ -66,7 +66,7 @@ These parameters are generated in Content-Type header if exists."
 (defcustom mml-content-disposition-parameters
  '(filename creation-date modification-date read-date)
-  "*A list of acceptable parameters in MML tag.
+  "A list of acceptable parameters in MML tag.
 These parameters are generated in Content-Disposition header if exists."
  :version "22.1"
  :type '(repeat (symbol :tag "Parameter"))
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index ffe788133e4..dbdbbadea87 100644
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -97,7 +97,7 @@
 (defcustom nndiary-mail-sources
  `((file :path ,(expand-file-name "~/.nndiary")))
-  "*NNDiary specific mail sources.
+  "NNDiary specific mail sources.
 This variable is used by nndiary in place of the standard `mail-sources'
 variable when `nndiary-get-new-mail' is set to non-nil.  These sources
 must contain diary messages ONLY."
@@ -106,7 +106,7 @@ must contain diary messages ONLY."
  :type 'sexp)
 (defcustom nndiary-split-methods '(("diary" ""))
-  "*NNDiary specific split methods.
+  "NNDiary specific split methods.
 This variable is used by nndiary in place of the standard
 `nnmail-split-methods' variable when `nndiary-get-new-mail' is set to
 non-nil."
@@ -118,7 +118,7 @@ non-nil."
 (defcustom nndiary-reminders '((0 . day))
-  "*Different times when you want to be reminded of your appointments.
+  "Different times when you want to be reminded of your appointments.
 Diary articles will appear again, as if they'd been just received.
 Entries look like (3 . day) which means something like \"Please
@@ -164,7 +164,7 @@ In order to make this clear, here are some examples:
                               (const :format "%v" year)))))
 (defcustom nndiary-week-starts-on-monday nil
-  "*Whether a week starts on monday (otherwise, sunday)."
+  "Whether a week starts on monday (otherwise, sunday)."
  :type 'boolean
  :group 'nndiary)
@@ -172,7 +172,7 @@ In order to make this clear, here are some examples:
 (define-obsolete-variable-alias 'nndiary-request-create-group-hooks
  'nndiary-request-create-group-functions "24.3")
 (defcustom nndiary-request-create-group-functions nil
-  "*Hook run after `nndiary-request-create-group' is executed.
+  "Hook run after `nndiary-request-create-group' is executed.
 The hook functions will be called with the full group name as argument."
  :group 'nndiary
  :type 'hook)
@@ -180,7 +180,7 @@ The hook functions will be called with the full group name as argument."
 (define-obsolete-variable-alias 'nndiary-request-update-info-hooks
  'nndiary-request-update-info-functions "24.3")
 (defcustom nndiary-request-update-info-functions nil
-  "*Hook run after `nndiary-request-update-info-group' is executed.
+  "Hook run after `nndiary-request-update-info-group' is executed.
 The hook functions will be called with the full group name as argument."
  :group 'nndiary
  :type 'hook)
@@ -188,14 +188,14 @@ The hook functions will be called with the full group name as argument."
 (define-obsolete-variable-alias 'nndiary-request-accept-article-hooks
  'nndiary-request-accept-article-functions "24.3")
 (defcustom nndiary-request-accept-article-functions nil
-  "*Hook run before accepting an article.
+  "Hook run before accepting an article.
 Executed near the beginning of `nndiary-request-accept-article'.
 The hook functions will be called with the article in the current buffer."
  :group 'nndiary
  :type 'hook)
 (defcustom nndiary-check-directory-twice t
-  "*If t, check directories twice to avoid NFS failures."
+  "If t, check directories twice to avoid NFS failures."
  :group 'nndiary
  :type 'boolean)
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 6c2d11396cb..a3ad4d6b0a3 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -294,14 +294,14 @@ is `(valuefunc member)'."
  :group 'gnus)
 (defcustom nnir-ignored-newsgroups ""
-  "*A regexp to match newsgroups in the active file that should
+  "A regexp to match newsgroups in the active file that should
  be skipped when searching."
  :version "24.1"
  :type '(regexp)
  :group 'nnir)
 (defcustom nnir-summary-line-format nil
-  "*The format specification of the lines in an nnir summary buffer.
+  "The format specification of the lines in an nnir summary buffer.
 All the items from `gnus-summary-line-format' are available, along
 with three items unique to nnir summary buffers:
@@ -316,7 +316,7 @@ If nil this will use `gnus-summary-line-format'."
  :group 'nnir)
 (defcustom nnir-retrieve-headers-override-function nil
-  "*If non-nil, a function that accepts an article list and group
+  "If non-nil, a function that accepts an article list and group
 and populates the `nntp-server-buffer' with the retrieved
 headers. Must return either 'nov or 'headers indicating the
 retrieved header format.
@@ -328,7 +328,7 @@ result, `gnus-retrieve-headers' will be called instead."
  :group 'nnir)
 (defcustom nnir-imap-default-search-key "whole message"
-  "*The default IMAP search key for an nnir search. Must be one of
+  "The default IMAP search key for an nnir search. Must be one of
  the keys in `nnir-imap-search-arguments'. To use raw imap queries
  by default set this to \"imap\"."
  :version "24.1"
@@ -338,17 +338,17 @@ result, `gnus-retrieve-headers' will be called instead."
 (defcustom nnir-swish++-configuration-file
  (expand-file-name "~/Mail/swish++.conf")
-  "*Configuration file for swish++."
+  "Configuration file for swish++."
  :type '(file)
  :group 'nnir)
 (defcustom nnir-swish++-program "search"
-  "*Name of swish++ search executable."
+  "Name of swish++ search executable."
  :type '(string)
  :group 'nnir)
 (defcustom nnir-swish++-additional-switches '()
-  "*A list of strings, to be given as additional arguments to swish++.
+  "A list of strings, to be given as additional arguments to swish++.
 Note that this should be a list.  I.e., do NOT use the following:
    (setq nnir-swish++-additional-switches \"-i -w\") ; wrong
@@ -358,7 +358,7 @@ Instead, use this:
  :group 'nnir)
 (defcustom nnir-swish++-remove-prefix (concat (getenv "HOME") "/Mail/")
-  "*The prefix to remove from each file name returned by swish++
+  "The prefix to remove from each file name returned by swish++
 in order to get a group name (albeit with / instead of .).  This is a
 regular expression.
@@ -376,7 +376,7 @@ that it is for swish++, not Namazu."
                        'nnir-swish-e-index-files "Emacs 23.1")
 (defcustom nnir-swish-e-index-file
  (expand-file-name "~/Mail/index.swish-e")
-  "*Index file for swish-e.
+  "Index file for swish-e.
 This could be a server parameter.
 It is never consulted once `nnir-swish-e-index-files', which should be
 used instead, has been customized."
@@ -385,19 +385,19 @@ used instead, has been customized."
 (defcustom nnir-swish-e-index-files
  (list nnir-swish-e-index-file)
-  "*List of index files for swish-e.
+  "List of index files for swish-e.
 This could be a server parameter."
  :type '(repeat (file))
  :group 'nnir)
 (defcustom nnir-swish-e-program "swish-e"
-  "*Name of swish-e search executable.
+  "Name of swish-e search executable.
 This cannot be a server parameter."
  :type '(string)
  :group 'nnir)
 (defcustom nnir-swish-e-additional-switches '()
-  "*A list of strings, to be given as additional arguments to swish-e.
+  "A list of strings, to be given as additional arguments to swish-e.
 Note that this should be a list.  I.e., do NOT use the following:
    (setq nnir-swish-e-additional-switches \"-i -w\") ; wrong
@@ -409,7 +409,7 @@ This could be a server parameter."
  :group 'nnir)
 (defcustom nnir-swish-e-remove-prefix (concat (getenv "HOME") "/Mail/")
-  "*The prefix to remove from each file name returned by swish-e
+  "The prefix to remove from each file name returned by swish-e
 in order to get a group name (albeit with / instead of .).  This is a
 regular expression.
@@ -423,12 +423,12 @@ This could be a server parameter."
 ;; HyREX engine, see <URL:http://ls6-www.cs.uni-dortmund.de/>
 (defcustom nnir-hyrex-program "nnir-search"
-  "*Name of the nnir-search executable."
+  "Name of the nnir-search executable."
  :type '(string)
  :group 'nnir)
 (defcustom nnir-hyrex-additional-switches '()
-  "*A list of strings, to be given as additional arguments for nnir-search.
+  "A list of strings, to be given as additional arguments for nnir-search.
 Note that this should be a list. I.e., do NOT use the following:
    (setq nnir-hyrex-additional-switches \"-ddl ddl.xml -c nnir\") ; wrong !
 Instead, use this:
@@ -437,12 +437,12 @@ Instead, use this:
  :group 'nnir)
 (defcustom nnir-hyrex-index-directory (getenv "HOME")
-  "*Index directory for HyREX."
+  "Index directory for HyREX."
  :type '(directory)
  :group 'nnir)
 (defcustom nnir-hyrex-remove-prefix (concat (getenv "HOME") "/Mail/")
-  "*The prefix to remove from each file name returned by HyREX
+  "The prefix to remove from each file name returned by HyREX
 in order to get a group name (albeit with / instead of .).
 For example, suppose that HyREX returns file names such as
@@ -457,17 +457,17 @@ arrive at the correct group name, \"mail.misc\"."
 ;; Namazu engine, see <URL:http://www.namazu.org/>
 (defcustom nnir-namazu-program "namazu"
-  "*Name of Namazu search executable."
+  "Name of Namazu search executable."
  :type '(string)
  :group 'nnir)
 (defcustom nnir-namazu-index-directory (expand-file-name "~/Mail/namazu/")
-  "*Index directory for Namazu."
+  "Index directory for Namazu."
  :type '(directory)
  :group 'nnir)
 (defcustom nnir-namazu-additional-switches '()
-  "*A list of strings, to be given as additional arguments to namazu.
+  "A list of strings, to be given as additional arguments to namazu.
 The switches `-q', `-a', and `-s' are always used, very few other switches
 make any sense in this context.
@@ -479,7 +479,7 @@ Instead, use this:
  :group 'nnir)
 (defcustom nnir-namazu-remove-prefix (concat (getenv "HOME") "/Mail/")
-  "*The prefix to remove from each file name returned by Namazu
+  "The prefix to remove from each file name returned by Namazu
 in order to get a group name (albeit with / instead of .).
 For example, suppose that Namazu returns file names such as
@@ -492,13 +492,13 @@ arrive at the correct group name, \"mail.misc\"."
  :group 'nnir)
 (defcustom nnir-notmuch-program "notmuch"
-  "*Name of notmuch search executable."
+  "Name of notmuch search executable."
  :version "24.1"
  :type '(string)
  :group 'nnir)
 (defcustom nnir-notmuch-additional-switches '()
-  "*A list of strings, to be given as additional arguments to notmuch.
+  "A list of strings, to be given as additional arguments to notmuch.
 Note that this should be a list.  I.e., do NOT use the following:
    (setq nnir-notmuch-additional-switches \"-i -w\") ; wrong
@@ -509,7 +509,7 @@ Instead, use this:
  :group 'nnir)
 (defcustom nnir-notmuch-remove-prefix (concat (getenv "HOME") "/Mail/")
-  "*The prefix to remove from each file name returned by notmuch
+  "The prefix to remove from each file name returned by notmuch
 in order to get a group name (albeit with / instead of .).  This is a
 regular expression.
@@ -563,7 +563,7 @@ needs the variables `nnir-namazu-program',
 Add an entry here when adding a new search engine.")
 (defcustom nnir-method-default-engines  '((nnimap . imap) (nntp . gmane))
-  "*Alist of default search engines keyed by server method."
+  "Alist of default search engines keyed by server method."
  :version "24.1"
  :group 'nnir
  :type `(repeat (cons (choice (const nnimap) (const nntp) (const nnspool)
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 94589e1734d..c85ea7a9b0a 100644
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -76,7 +76,7 @@
  :group 'nnmail)
 (defcustom nnmail-split-methods '(("mail.misc" ""))
-  "*Incoming mail will be split according to this variable.
+  "Incoming mail will be split according to this variable.
 If you'd like, for instance, one mail group for mail from the
 \"4ad-l\" mailing list, one group for junk mail and one for everything
@@ -158,7 +158,7 @@ If nil, groups like \"mail.misc\" will end up in directories like
  :type 'integer)
 (defcustom nnmail-expiry-wait 7
-  "*Expirable articles that are older than this will be expired.
+  "Expirable articles that are older than this will be expired.
 This variable can either be a number (which will be interpreted as a
 number of days) -- this doesn't have to be an integer.  This variable
 can also be `immediate' and `never'."
@@ -187,7 +187,7 @@ E.g.:
                 (function :format "%v" nnmail-)))
 (defcustom nnmail-expiry-target 'delete
-  "*Variable that says where expired messages should end up.
+  "Variable that says where expired messages should end up.
 The default value is `delete' (which says to delete the messages),
 but it can also be a string or a function.  If it is a string, expired
 messages end up in that group.  If it is a function, the function is
@@ -246,12 +246,12 @@ If non-nil, also update the cache when copy or move articles."
 ;; Variable removed in No Gnus v0.7
 (defcustom nnmail-resplit-incoming nil
-  "*If non-nil, re-split incoming procmail sorted mail."
+  "If non-nil, re-split incoming procmail sorted mail."
  :group 'nnmail-procmail
  :type 'boolean)
 (defcustom nnmail-scan-directory-mail-source-once nil
-  "*If non-nil, scan all incoming procmail sorted mails once.
+  "If non-nil, scan all incoming procmail sorted mails once.
 It scans low-level sorted spools even when not required."
  :version "21.1"
  :group 'nnmail-procmail
@@ -266,7 +266,7 @@ It scans low-level sorted spools even when not required."
  (if (string-match "windows-nt" (symbol-name system-type))
      'copy-file
    'add-name-to-file)
-  "*Function called to create a copy of a file.
+  "Function called to create a copy of a file.
 This is `add-name-to-file' by default, which means that crossposts
 will use hard links.  If your file system doesn't allow hard
 links, you could set this variable to `copy-file' instead."
@@ -279,7 +279,7 @@ links, you could set this variable to `copy-file' instead."
  (if (eq system-type 'windows-nt)
      '(nnheader-ms-strip-cr)
    nil)
-  "*Hook that will be run after the incoming mail has been transferred.
+  "Hook that will be run after the incoming mail has been transferred.
 The incoming mail is moved from the specified spool file (which normally is
 something like \"/usr/spool/mail/$user\") to the user's home
 directory.  This hook is called after the incoming mail box has been
@@ -355,13 +355,13 @@ discarded after running the split process."
  :type 'hook)
 (defcustom nnmail-spool-hook nil
-  "*A hook called when a new article is spooled."
+  "A hook called when a new article is spooled."
  :version "22.1"
  :group 'nnmail
  :type 'hook)
 (defcustom nnmail-large-newsgroup 50
-  "*The number of articles which indicates a large newsgroup or nil.
+  "The number of articles which indicates a large newsgroup or nil.
 If the number of articles is greater than the value, verbose
 messages will be shown to indicate the current status."
  :group 'nnmail-various
@@ -489,12 +489,12 @@ Example:
    (from . "from\\|sender\\|resent-from")
    (nato . "to\\|cc\\|resent-to\\|resent-cc")
    (naany . "from\\|to\\|cc\\|sender\\|resent-from\\|resent-to\\|resent-cc"))
-  "*Alist of abbreviations allowed in `nnmail-split-fancy'."
+  "Alist of abbreviations allowed in `nnmail-split-fancy'."
  :group 'nnmail-split
  :type '(repeat (cons :format "%v" symbol regexp)))
 (defcustom nnmail-message-id-cache-length 1000
-  "*The approximate number of Message-IDs nnmail will keep in its cache.
+  "The approximate number of Message-IDs nnmail will keep in its cache.
 If this variable is nil, no checking on duplicate messages will be
 performed."
  :group 'nnmail-duplicate
@@ -509,7 +509,7 @@ performed."
  :type 'file)
 (defcustom nnmail-treat-duplicates 'warn
-  "*If non-nil, nnmail keep a cache of Message-IDs to discover mail duplicates.
+  "If non-nil, nnmail keep a cache of Message-IDs to discover mail duplicates.
 Three values are valid: nil, which means that nnmail is not to keep a
 Message-ID cache; `warn', which means that nnmail should insert extra
 headers to warn the user about the duplication (this is the default);
diff --git a/lisp/gnus/smiley.el b/lisp/gnus/smiley.el
index b5450a82bdd..1ea4c1e51de 100644
--- a/lisp/gnus/smiley.el
+++ b/lisp/gnus/smiley.el
@@ -92,7 +92,7 @@ is nil, use `smiley-style'."
                 ((eq smiley-style 'grayscale) "/grayscale")))))
 (defcustom smiley-data-directory (smiley-directory)
-  "*Location of the smiley faces files."
+  "Location of the smiley faces files."
  :set (lambda (symbol value)
         (set-default symbol value)
         (smiley-update-cache))
@@ -116,7 +116,7 @@ is nil, use `smiley-style'."
    ("\\(:-D\\)\\W" 1 "grin")
    ;; "smile" must be come after "evil"
    ("\\(\\^?:-?)\\)\\W" 1 "smile"))
-  "*A list of regexps to map smilies to images.
+  "A list of regexps to map smilies to images.
 The elements are (REGEXP MATCH IMAGE), where MATCH is the submatch in
 regexp to replace with IMAGE.  IMAGE is the name of an image file in
 `smiley-data-directory'."
@@ -137,7 +137,7 @@ regexp to replace with IMAGE.  IMAGE is the name of an image file in
    (when (gnus-image-type-available-p 'gif)
      (push "gif" types))
    types)
-  "*List of suffixes on smiley file names to try."
+  "List of suffixes on smiley file names to try."
  :version "24.1"
  :type '(repeat string)
  :group 'smiley)
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el
index 9bec58a46f2..888974e1401 100644
--- a/lisp/gnus/smime.el
+++ b/lisp/gnus/smime.el
@@ -129,7 +129,7 @@
  :group 'mime)
 (defcustom smime-keys nil
-  "*Map mail addresses to a file containing Certificate (and private key).
+  "Map mail addresses to a file containing Certificate (and private key).
 The file is assumed to be in PEM format. You can also associate additional
 certificates to be sent with every message to each address."
  :type '(repeat (list (string :tag "Mail address")
@@ -139,7 +139,7 @@ certificates to be sent with every message to each address."
  :group 'smime)
 (defcustom smime-CA-directory nil
-  "*Directory containing certificates for CAs you trust.
+  "Directory containing certificates for CAs you trust.
 Directory should contain files (in PEM format) named to the X.509
 hash of the certificate.  This can be done using OpenSSL such as:
@@ -152,7 +152,7 @@ certificate."
  :group 'smime)
 (defcustom smime-CA-file nil
-  "*Files containing certificates for CAs you trust.
+  "Files containing certificates for CAs you trust.
 File should contain certificates in PEM format."
  :version "22.1"
  :type '(choice (const :tag "none" nil)
@@ -160,7 +160,7 @@ File should contain certificates in PEM format."
  :group 'smime)
 (defcustom smime-certificate-directory "~/Mail/certs/"
-  "*Directory containing other people's certificates.
+  "Directory containing other people's certificates.
 It should contain files named to the X.509 hash of the certificate,
 and the files themselves should be in PEM format."
 ;The S/MIME library provide simple functionality for fetching
@@ -174,14 +174,14 @@ and the files themselves should be in PEM format."
           (eq 0 (call-process "openssl" nil nil nil "version"))
         (error nil))
       "openssl")
-  "*Name of OpenSSL binary."
+  "Name of OpenSSL binary."
  :type 'string
  :group 'smime)
 ;; OpenSSL option to select the encryption cipher
 (defcustom smime-encrypt-cipher "-des3"
-  "*Cipher algorithm used for encryption."
+  "Cipher algorithm used for encryption."
  :version "22.1"
  :type '(choice (const :tag "Triple DES" "-des3")
                 (const :tag "DES"  "-des")
@@ -191,7 +191,7 @@ and the files themselves should be in PEM format."
  :group 'smime)
 (defcustom smime-crl-check nil
-  "*Check revocation status of signers certificate using CRLs.
+  "Check revocation status of signers certificate using CRLs.
 Enabling this will have OpenSSL check the signers certificate
 against a certificate revocation list (CRL).
@@ -212,7 +212,7 @@ At least OpenSSL version 0.9.7 is required for this to work."
  :group 'smime)
 (defcustom smime-dns-server nil
-  "*DNS server to query certificates from.
+  "DNS server to query certificates from.
 If nil, use system defaults."
  :version "22.1"
  :type '(choice (const :tag "System defaults")
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 4f3e71d34b8..89476d62292 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -234,7 +234,7 @@ we will act as though we couldn't find a full name in the address."
  :group 'mail-extr)
 (defcustom mail-extr-ignore-realname-equals-mailbox-name t
-"*Whether to ignore a name that is equal to the mailbox name.
+"Whether to ignore a name that is equal to the mailbox name.
 If true, then when the address is like \"Single <single@address.com>\"
 we will act as though we couldn't find a full name in the address."
  :type 'boolean
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 20029f8e0b5..85ed376bc9d 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -719,7 +719,7 @@ keyword, introduced in Emacs 22."
 ;;; Variant Support
 (defcustom-mh mh-path nil
-  "*Additional list of directories to search for MH.
+  "Additional list of directories to search for MH.
 See `mh-variant'."
  :group 'mh-e
  :type '(repeat (directory))
@@ -945,7 +945,7 @@ finally GNU mailutils MH."
                          (mh-variants) " or "))))))
 (defcustom-mh mh-variant 'autodetect
-  "*Specifies the variant used by MH-E.
+  "Specifies the variant used by MH-E.
 The default setting of this option is \"Auto-detect\" which means
 that MH-E will automatically choose the first of nmh, MH, or GNU
@@ -1174,7 +1174,7 @@ and GNU mailutils."
 ;;; Aliases (:group 'mh-alias)
 (defcustom-mh mh-alias-completion-ignore-case-flag t
-  "*Non-nil means don't consider case significant in MH alias completion.
+  "Non-nil means don't consider case significant in MH alias completion.
 As MH ignores case in the aliases, so too does MH-E. However, you
 may turn off this option to make case significant which can be
@@ -1185,7 +1185,7 @@ lowercase for mailing lists and uppercase for people."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-alias-expand-aliases-flag nil
-  "*Non-nil means to expand aliases entered in the minibuffer.
+  "Non-nil means to expand aliases entered in the minibuffer.
 In other words, aliases entered in the minibuffer will be
 expanded to the full address in the message draft.  By default,
@@ -1195,7 +1195,7 @@ this expansion is not performed."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-alias-flash-on-comma t
-  "*Specify whether to flash address or warn on translation.
+  "Specify whether to flash address or warn on translation.
 This option controls the behavior when a [comma] is pressed while
 entering aliases or addresses. The default setting flashes the
@@ -1208,7 +1208,7 @@ does not display a warning if the alias is not found."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-alias-insert-file nil
-  "*Filename used to store a new MH-E alias.
+  "Filename used to store a new MH-E alias.
 The default setting of this option is \"Use Aliasfile Profile
 Component\". This option can also hold the name of a file or a
@@ -1234,7 +1234,7 @@ or \"Bottom\" of your alias file might be more appropriate."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-alias-local-users t
-  "*Non-nil means local users are added to alias completion.
+  "Non-nil means local users are added to alias completion.
 Aliases are created from \"/etc/passwd\" entries with a user ID
 larger than a magical number, typically 200. This can be a handy
@@ -1255,7 +1255,7 @@ NIS password file."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-alias-local-users-prefix "local."
-  "*String prefixed to the real names of users from the password file.
+  "String prefixed to the real names of users from the password file.
 This option can also be set to \"Use Login\".
 For example, consider the following password file entry:
@@ -1277,7 +1277,7 @@ turned off."
  :package-version '(MH-E . "7.4"))
 (defcustom-mh mh-alias-passwd-gecos-comma-separator-flag t
-  "*Non-nil means the gecos field in the password file uses a comma separator.
+  "Non-nil means the gecos field in the password file uses a comma separator.
 In the example in `mh-alias-local-users-prefix', commas are used
 to separate different values within the so-called gecos field.
@@ -1333,7 +1333,7 @@ folders are treated as if they are small."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-recenter-summary-flag nil
-  "*Non-nil means to recenter the summary window.
+  "Non-nil means to recenter the summary window.
 If this option is turned on, recenter the summary window when the
 show window is toggled off."
@@ -1342,13 +1342,13 @@ show window is toggled off."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-recursive-folders-flag nil
-  "*Non-nil means that commands which operate on folders do so recursively."
+  "Non-nil means that commands which operate on folders do so recursively."
  :type 'boolean
  :group 'mh-folder
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-sortm-args nil
-  "*Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
+  "Additional arguments for \"sortm\"\\<mh-folder-mode-map>.
 This option is consulted when a prefix argument is used with
 \\[mh-sort-folder]. Normally default arguments to \"sortm\" are
@@ -1374,7 +1374,7 @@ the default, or an empty string to suppress the default entirely."
  :package-version '(MH-E . "8.0"))
 (defcustom-mh mh-default-folder-list nil
-  "*List of addresses and folders.
+  "List of addresses and folders.
 The folder name associated with the first address found in this
 list is used as the default for `mh-refile-msg' and similar
@@ -1392,7 +1392,7 @@ for more information."
  :package-version '(MH-E . "7.2"))
 (defcustom-mh mh-default-folder-must-exist-flag t
-  "*Non-nil means guessed folder name must exist to be used.
+  "Non-nil means guessed folder name must exist to be used.
 If the derived folder does not exist, and this option is on, then
 the last folder name used is suggested. This is useful if you get
@@ -1406,7 +1406,7 @@ for more information."
  :package-version '(MH-E . "7.2"))
 (defcustom-mh mh-default-folder-prefix ""
-  "*Prefix used for folder names generated from aliases.
+  "Prefix used for folder names generated from aliases.
 The prefix is used to prevent clutter in your mail directory.
 See `mh-prompt-for-refile-folder' and `mh-folder-from-address'
@@ -1425,7 +1425,7 @@ Real definition will take effect when mh-identity is loaded."
      nil)))
 (defcustom-mh mh-identity-list nil
-  "*List of identities.
+  "List of identities.
 To customize this option, click on the \"INS\" button and enter a label
 such as \"Home\" or \"Work\". Then click on the \"INS\" button with the
@@ -1555,7 +1555,7 @@ as the result is undefined."
  :package-version '(MH-E . "7.3"))
 (defcustom-mh mh-auto-fields-prompt-flag t
-  "*Non-nil means to prompt before sending if fields inserted.
+  "Non-nil means to prompt before sending if fields inserted.
 See `mh-auto-fields-list'."
  :type 'boolean
  :group 'mh-identity
@@ -1609,7 +1609,7 @@ containing the VALUE for the field is given."
 ;;; Incorporating Your Mail (:group 'mh-inc)
 (defcustom-mh mh-inc-prog "inc"
-  "*Program to incorporate new mail into a folder.
+  "Program to incorporate new mail into a folder.
 This program generates a one-line summary for each of the new
 messages. Unless it is an absolute pathname, the file is assumed
@@ -1628,7 +1628,7 @@ Real definition will take effect when mh-inc is loaded."
      nil)))
 (defcustom-mh mh-inc-spool-list nil
-  "*Alternate spool files.
+  "Alternate spool files.
 You can use the `mh-inc-spool-list' variable to direct MH-E to
 retrieve mail from arbitrary spool files other than your system
@@ -1766,13 +1766,13 @@ MH-style directives are preferred."
  :package-version '(MH-E . "7.4"))
 (defcustom-mh mh-compose-space-does-completion-flag nil
-  "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
+  "Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
  :type 'boolean
  :group 'mh-letter
  :package-version '(MH-E . "7.4"))
 (defcustom-mh mh-delete-yanked-msg-window-flag nil
-  "*Non-nil means delete any window displaying the message.
+  "Non-nil means delete any window displaying the message.
 This deletes the window containing the original message after
 yanking it with \\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make
@@ -1782,7 +1782,7 @@ more room on your screen for your reply."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-extract-from-attribution-verb "wrote:"
-  "*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
+  "Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
 The attribution consists of the sender's name and email address
 followed by the content of this option. This option can be set to
@@ -1796,7 +1796,7 @@ followed by the content of this option. This option can be set to
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-ins-buf-prefix "> "
-  "*String to put before each line of a yanked or inserted message.
+  "String to put before each line of a yanked or inserted message.
 The prefix \"> \" is the default setting of this option. I
 suggest that you not modify this option since it is used by many
@@ -1812,7 +1812,7 @@ flavors of `mh-yank-behavior' or you have added a
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-letter-complete-function 'ispell-complete-word
-  "*Function to call when completing outside of address or folder fields.
+  "Function to call when completing outside of address or folder fields.
 In the body of the message,
 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
@@ -1822,7 +1822,7 @@ which is set to \"ispell-complete-word\" by default."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-letter-fill-column 72
-  "*Fill column to use in MH Letter mode.
+  "Fill column to use in MH Letter mode.
 By default, this option is 72 to allow others to quote your
 message without line wrapping."
@@ -1854,7 +1854,7 @@ you write!"
  :package-version '(MH-E . "8.0"))
 (defcustom-mh mh-signature-file-name "~/.signature"
-  "*Source of user's signature.
+  "Source of user's signature.
 By default, the text of your signature is taken from the file
 \"~/.signature\". You can read from other sources by changing this
@@ -1877,7 +1877,7 @@ The signature is inserted into your message with the command
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-signature-separator-flag t
-  "*Non-nil means a signature separator should be inserted.
+  "Non-nil means a signature separator should be inserted.
 It is not recommended that you change this option since various
 mail user agents, including MH-E, use the separator to present
@@ -1888,7 +1888,7 @@ replying or yanking a letter into a draft."
  :package-version '(MH-E . "8.0"))
 (defcustom-mh mh-x-face-file "~/.face"
-  "*File containing face header field to insert in outgoing mail.
+  "File containing face header field to insert in outgoing mail.
 If the file starts with either of the strings \"X-Face:\", \"Face:\"
 or \"X-Image-URL:\" then the contents are added to the message header
@@ -1917,7 +1917,7 @@ this option doesn't exist."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-yank-behavior 'attribution
-  "*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
+  "Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg].
 To include the entire message, including the entire header, use
 \"Body and Header\". Use \"Body\" to yank just the body without
@@ -1964,7 +1964,7 @@ inserted."
 ;;; Ranges (:group 'mh-ranges)
 (defcustom-mh mh-interpret-number-as-range-flag t
-  "*Non-nil means interpret a number as a range.
+  "Non-nil means interpret a number as a range.
 Since one of the most frequent ranges used is \"last:N\", MH-E
 will interpret input such as \"200\" as \"last:200\" if this
@@ -1984,7 +1984,7 @@ Real definition, below, uses variables that aren't defined yet."
      (set-default symbol value))))
 (defcustom-mh mh-adaptive-cmd-note-flag t
-  "*Non-nil means that the message number width is determined dynamically.
+  "Non-nil means that the message number width is determined dynamically.
 If you've created your own format to handle long message numbers,
 you'll be pleased to know you no longer need it since MH-E adapts its
@@ -2052,7 +2052,7 @@ Otherwise, set SYMBOL to VALUE."
    (set-default symbol value)))
 (defcustom-mh mh-scan-prog "scan"
-  "*Program used to scan messages.
+  "Program used to scan messages.
 The name of the program that generates a listing of one line per
 message is held in this option. Unless this variable contains an
@@ -2090,7 +2090,7 @@ MH-E can be found in the documentation of `mh-search'."
 ;;; Sending Mail (:group 'mh-sending-mail)
 (defcustom-mh mh-compose-forward-as-mime-flag t
-  "*Non-nil means that messages are forwarded as attachments.
+  "Non-nil means that messages are forwarded as attachments.
 By default, this option is on which means that the forwarded
 messages are included as attachments. If you would prefer to
@@ -2118,13 +2118,13 @@ fields."
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-compose-prompt-flag nil
-  "*Non-nil means prompt for header fields when composing a new draft."
+  "Non-nil means prompt for header fields when composing a new draft."
  :type 'boolean
  :group 'mh-sending-mail
  :package-version '(MH-E . "7.4"))
 (defcustom-mh mh-forward-subject-format "%s: %s"
-  "*Format string for forwarded message subject.
+  "Format string for forwarded message subject.
 This option is a string which includes two escapes (\"%s\"). The
 first \"%s\" is replaced with the sender of the original message,
@@ -2134,7 +2134,7 @@ and the second one is replaced with the original \"Subject:\"."
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-insert-x-mailer-flag t
-  "*Non-nil means append an \"X-Mailer:\" header field to the header.
+  "Non-nil means append an \"X-Mailer:\" header field to the header.
 This header field includes the version of MH-E and Emacs that you
 are using. If you don't want to participate in our marketing, you
@@ -2144,7 +2144,7 @@ can turn this option off."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-redist-full-contents-flag nil
-  "*Non-nil means the \"dist\" command needs entire letter for redistribution.
+  "Non-nil means the \"dist\" command needs entire letter for redistribution.
 This option must be turned on if \"dist\" requires the whole
 letter for redistribution, which is the case if \"send\" is
@@ -2156,7 +2156,7 @@ has been redistributed before, turn off this option."
  :package-version '(MH-E . "8.0"))
 (defcustom-mh mh-reply-default-reply-to nil
-  "*Sets the person or persons to whom a reply will be sent.
+  "Sets the person or persons to whom a reply will be sent.
 This option is set to \"Prompt\" by default so that you are
 prompted for the recipient of a reply. If you find that most of
@@ -2172,7 +2172,7 @@ this option to \"cc\". Other choices include \"from\", \"to\", or
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-reply-show-message-flag t
-  "*Non-nil means the MH-Show buffer is displayed when replying.
+  "Non-nil means the MH-Show buffer is displayed when replying.
 If you include the message automatically, you can hide the
 MH-Show buffer by turning off this option.
@@ -2189,7 +2189,7 @@ See also `mh-reply'."
 ;; specified by setting `mh-unpropagated-sequences' appropriately." XXX
 (defcustom-mh mh-refile-preserves-sequences-flag t
-  "*Non-nil means that sequences are preserved when messages are refiled.
+  "Non-nil means that sequences are preserved when messages are refiled.
 If a message is in any sequence (except \"Previous-Sequence:\"
 and \"cur\") when it is refiled, then it will still be in those
@@ -2212,7 +2212,7 @@ there isn't much advantage to that."
  :package-version '(MH-E . "7.3"))
 (defcustom-mh mh-update-sequences-after-mh-show-flag t
-  "*Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
+  "Non-nil means flush MH sequences to disk after message is shown\\<mh-folder-mode-map>.
 Three sequences are maintained internally by MH-E and pushed out
 to MH when a message is shown. They include the sequence
@@ -2227,7 +2227,7 @@ commands."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-whitelist-preserves-sequences-flag t
-  "*Non-nil means that sequences are preserved when messages are whitelisted.
+  "Non-nil means that sequences are preserved when messages are whitelisted.
 If a message is in any sequence (except \"Previous-Sequence:\"
 and \"cur\") when it is whitelisted, then it will still be in
@@ -2240,7 +2240,7 @@ not desired, then turn off this option."
 ;;; Reading Your Mail (:group 'mh-show)
 (defcustom-mh mh-bury-show-buffer-flag t
-  "*Non-nil means show buffer is buried.
+  "Non-nil means show buffer is buried.
 One advantage of not burying the show buffer is that one can
 delete the show buffer more easily in an electric buffer list
@@ -2251,7 +2251,7 @@ running \\[electric-buffer-list] to see what I mean."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-clean-message-header-flag t
-  "*Non-nil means remove extraneous header fields.
+  "Non-nil means remove extraneous header fields.
 See also `mh-invisible-header-fields-default' and
 `mh-invisible-header-fields'."
@@ -2260,7 +2260,7 @@ See also `mh-invisible-header-fields-default' and
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-decode-mime-flag (not (not (locate-library "mm-decode")))
-  "*Non-nil means attachments are handled\\<mh-folder-mode-map>.
+  "Non-nil means attachments are handled\\<mh-folder-mode-map>.
 MH-E can handle attachments as well if the Gnus `mm-decode'
 library is present. If so, this option will be on. Otherwise,
@@ -2278,7 +2278,7 @@ messages and other graphical widgets. See the options
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-display-buttons-for-alternatives-flag nil
-  "*Non-nil means display buttons for all alternative attachments.
+  "Non-nil means display buttons for all alternative attachments.
 Sometimes, a mail program will produce multiple alternatives of
 the attachment in increasing degree of faithfulness to the
@@ -2290,7 +2290,7 @@ inline and buttons are shown for each of the other alternatives."
  :package-version '(MH-E . "7.4"))
 (defcustom-mh mh-display-buttons-for-inline-parts-flag nil
-  "*Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
+  "Non-nil means display buttons for all inline attachments\\<mh-folder-mode-map>.
 The sender can request that attachments should be viewed inline so
 that they do not really appear like an attachment at all to the
@@ -2313,7 +2313,7 @@ text (including HTML) and images."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-do-not-confirm-flag nil
-  "*Non-nil means non-reversible commands do not prompt for confirmation.
+  "Non-nil means non-reversible commands do not prompt for confirmation.
 Commands such as `mh-pack-folder' prompt to confirm whether to
 process outstanding moves and deletes or not before continuing.
@@ -2325,7 +2325,7 @@ retracted--without question."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-fetch-x-image-url nil
-  "*Control fetching of \"X-Image-URL:\" header field image.
+  "Control fetching of \"X-Image-URL:\" header field image.
 Ths option controls the fetching of the \"X-Image-URL:\" header
 field image with the following values:
@@ -2361,7 +2361,7 @@ turned on."
  :package-version '(MH-E . "7.3"))
 (defcustom-mh mh-graphical-smileys-flag t
-  "*Non-nil means graphical smileys are displayed.
+  "Non-nil means graphical smileys are displayed.
 It is a long standing custom to inject body language using a
 cornucopia of punctuation, also known as the \"smileys\". MH-E
@@ -2376,7 +2376,7 @@ turned off."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-graphical-emphasis-flag t
-  "*Non-nil means graphical emphasis is displayed.
+  "Non-nil means graphical emphasis is displayed.
 A few typesetting features are indicated in ASCII text with
 certain characters. If your terminal supports it, MH-E can render
@@ -2815,7 +2815,7 @@ Because the function `mh-invisible-headers' uses both
 cannot be run until both variables have been initialized.")
 (defcustom-mh mh-invisible-header-fields nil
-  "*Additional header fields to hide.
+  "Additional header fields to hide.
 Header fields that you would like to hide that aren't listed in
 `mh-invisible-header-fields-default' can be added to this option
@@ -2838,7 +2838,7 @@ See also `mh-clean-message-header-flag'."
  :package-version '(MH-E . "7.1"))
 (defcustom-mh mh-invisible-header-fields-default nil
-  "*List of hidden header fields.
+  "List of hidden header fields.
 The header fields listed in this option are hidden, although you
 can check off any field that you would like to see.
@@ -2895,7 +2895,7 @@ removed and entries from `mh-invisible-header-fields' are added."
 (mh-invisible-headers)
 (defcustom-mh mh-lpr-command-format "lpr -J '%s'"
-  "*Command used to print\\<mh-folder-mode-map>.
+  "Command used to print\\<mh-folder-mode-map>.
 This option contains the Unix command line which performs the
 actual printing for the \\[mh-print-msg] command. The string can
@@ -2912,7 +2912,7 @@ This option is not used by the commands \\[mh-ps-print-msg] or
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-max-inline-image-height nil
-  "*Maximum inline image height if \"Content-Disposition:\" is not present.
+  "Maximum inline image height if \"Content-Disposition:\" is not present.
 Some older mail programs do not insert this needed plumbing to
 tell MH-E whether to display the attachments inline or not. If
@@ -2928,7 +2928,7 @@ these numbers."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-max-inline-image-width nil
-  "*Maximum inline image width if \"Content-Disposition:\" is not present.
+  "Maximum inline image width if \"Content-Disposition:\" is not present.
 Some older mail programs do not insert this needed plumbing to
 tell MH-E whether to display the attachments inline or not. If
@@ -2944,7 +2944,7 @@ these numbers."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-mhl-format-file nil
-  "*Specifies the format file to pass to the \"mhl\" program.
+  "Specifies the format file to pass to the \"mhl\" program.
 Normally MH-E takes care of displaying messages itself (rather than
 calling an MH program to do the work). If you'd rather have \"mhl\"
@@ -2984,7 +2984,7 @@ directory's name."
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-print-background-flag nil
-  "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
+  "Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
 Normally messages are printed in the foreground. If this is slow on
 your system, you may elect to turn off this option to print in the
@@ -3000,7 +3000,7 @@ This option is not used by the commands \\[mh-ps-print-msg] or
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-show-maximum-size 0
-  "*Maximum size of message (in bytes) to display automatically.
+  "Maximum size of message (in bytes) to display automatically.
 This option provides an opportunity to skip over large messages
 which may be slow to load. The default value of 0 means that all
@@ -3010,7 +3010,7 @@ message are shown regardless of size."
  :package-version '(MH-E . "8.0"))
 (defcustom-mh mh-show-use-xface-flag (>= emacs-major-version 21)
-  "*Non-nil means display face images in MH-show buffers.
+  "Non-nil means display face images in MH-show buffers.
 MH-E can display the content of \"Face:\", \"X-Face:\", and
 \"X-Image-URL:\" header fields. If any of these fields occur in the
@@ -3050,7 +3050,7 @@ The option `mh-fetch-x-image-url' controls the fetching of the
  :package-version '(MH-E . "7.0"))
 (defcustom-mh mh-store-default-directory nil
-  "*Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
+  "Default directory for \\<mh-folder-mode-map>\\[mh-store-msg].
 If you would like to change the initial default directory,
 customize this option, change the value from \"Current\" to
@@ -3062,7 +3062,7 @@ the content of these messages."
  :package-version '(MH-E . "6.0"))
 (defcustom-mh mh-summary-height nil
-  "*Number of lines in MH-Folder buffer (including the mode line).
+  "Number of lines in MH-Folder buffer (including the mode line).
 The default value of this option is \"Automatic\" which means
 that the MH-Folder buffer will maintain the same proportional
@@ -3086,7 +3086,7 @@ Set to 0 to disable automatic update."
 ;;; Threading (:group 'mh-thread)
 (defcustom-mh mh-show-threads-flag nil
-  "*Non-nil means new folders start in threaded mode.
+  "Non-nil means new folders start in threaded mode.
 Threading large number of messages can be time consuming so this
 option is turned off by default. If you turn this option on, then
@@ -3102,7 +3102,7 @@ threaded is less than `mh-large-folder'."
 ;; dynamically in mh-tool-bar.el.
 (defcustom-mh mh-tool-bar-search-function 'mh-search
-  "*Function called by the tool bar search button.
+  "Function called by the tool bar search button.
 By default, this is set to `mh-search'. You can also choose
 \"Other Function\" from the \"Value Menu\" and enter a function
@@ -3115,7 +3115,7 @@ of your own choosing."
 ;; XEmacs has a couple of extra customizations...
 (mh-do-in-xemacs
  (defcustom-mh mh-xemacs-use-tool-bar-flag mh-xemacs-has-tool-bar-flag
-    "*If non-nil, use tool bar.
+    "If non-nil, use tool bar.
 This option controls whether to show the MH-E icons at all. By
 default, this option is turned on if the window system supports
@@ -3131,7 +3131,7 @@ won't be able to turn on this option."
    :package-version '(MH-E . "7.3"))
  (defcustom-mh mh-xemacs-tool-bar-position nil
-    "*Tool bar location.
+    "Tool bar location.
 This option controls the placement of the tool bar along the four
 edges of the frame. You can choose from one of \"Same As Default
diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el
index ae49972f5bf..f80b300084b 100644
--- a/lisp/net/mailcap.el
+++ b/lisp/net/mailcap.el
@@ -337,7 +337,7 @@ to return a true or false shell value for the validity.")
 (put 'mailcap-mime-data 'risky-local-variable t)
 (defcustom mailcap-download-directory nil
-  "*Directory to which `mailcap-save-binary-file' downloads files by default.
+  "Directory to which `mailcap-save-binary-file' downloads files by default.
 nil means your home directory."
  :type '(choice (const :tag "Home directory" nil)
                 directory)
diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el
index 1695bbd3a40..589eeb3ab32 100644
--- a/lisp/net/pop3.el
+++ b/lisp/net/pop3.el
@@ -45,26 +45,26 @@
 (defcustom pop3-maildrop (or (user-login-name)
                             (getenv "LOGNAME")
                             (getenv "USER"))
-  "*POP3 maildrop."
+  "POP3 maildrop."
  :version "22.1" ;; Oort Gnus
  :type 'string
  :group 'pop3)
 (defcustom pop3-mailhost (or (getenv "MAILHOST") ;; nil -> mismatch
                             "pop3")
-  "*POP3 mailhost."
+  "POP3 mailhost."
  :version "22.1" ;; Oort Gnus
  :type 'string
  :group 'pop3)
 (defcustom pop3-port 110
-  "*POP3 port."
+  "POP3 port."
  :version "22.1" ;; Oort Gnus
  :type 'number
  :group 'pop3)
 (defcustom pop3-password-required t
-  "*Non-nil if a password is required when connecting to POP server."
+  "Non-nil if a password is required when connecting to POP server."
  :version "22.1" ;; Oort Gnus
  :type 'boolean
  :group 'pop3)
@@ -74,7 +74,7 @@
  "*Password to use when connecting to POP server.")
 (defcustom pop3-authentication-scheme 'pass
-  "*POP3 authentication scheme.
+  "POP3 authentication scheme.
 Defaults to `pass', for the standard USER/PASS authentication.  The other
 valid value is `apop'."
  :type '(choice (const :tag "Normal user/password" pass)
@@ -515,7 +515,7 @@ Return non-nil if it is necessary to update the local UIDL file."
      (insert "X-UIDL: " (nth (1- msgno) pop3-uidl) "\n"))))
 (defcustom pop3-stream-type nil
-  "*Transport security type for POP3 connections.
+  "Transport security type for POP3 connections.
 This may be either nil (plain connection), `ssl' (use an
 SSL/TSL-secured stream) or `starttls' (use the starttls mechanism
 to turn on TLS security after opening the stream).  However, if
diff --git a/lisp/net/starttls.el b/lisp/net/starttls.el
index 096ed2adc0d..1ab7dc01645 100644
--- a/lisp/net/starttls.el
+++ b/lisp/net/starttls.el
@@ -136,7 +136,7 @@ i.e. when `starttls-use-gnutls' is nil."
  :group 'starttls)
 (defcustom starttls-use-gnutls (not (executable-find starttls-program))
-  "*Whether to use GnuTLS instead of the `starttls' command."
+  "Whether to use GnuTLS instead of the `starttls' command."
  :version "22.1"
  :type 'boolean
  :group 'starttls)
@@ -160,13 +160,13 @@ find out which parameters are available."
  :group 'starttls)
 (defcustom starttls-process-connection-type nil
-  "*Value for `process-connection-type' to use when starting STARTTLS process."
+  "Value for `process-connection-type' to use when starting STARTTLS process."
  :version "22.1"
  :type 'boolean
  :group 'starttls)
 (defcustom starttls-connect "- Simple Client Mode:\n\n"
-  "*Regular expression indicating successful connection.
+  "Regular expression indicating successful connection.
 The default is what GnuTLS's \"gnutls-cli\" outputs."
  ;; GnuTLS cli.c:main() prints this string when it is starting to run
  ;; in the application read/write phase.  If the logic, or the string
@@ -176,7 +176,7 @@ The default is what GnuTLS's \"gnutls-cli\" outputs."
  :group 'starttls)
 (defcustom starttls-failure "\\*\\*\\* Handshake has failed"
-  "*Regular expression indicating failed TLS handshake.
+  "Regular expression indicating failed TLS handshake.
 The default is what GnuTLS's \"gnutls-cli\" outputs."
  ;; GnuTLS cli.c:do_handshake() prints this string on failure.  If the
  ;; logic, or the string itself, is modified, this must be updated.
@@ -185,7 +185,7 @@ The default is what GnuTLS's \"gnutls-cli\" outputs."
  :group 'starttls)
 (defcustom starttls-success "- Compression: "
-  "*Regular expression indicating completed TLS handshakes.
+  "Regular expression indicating completed TLS handshakes.
 The default is what GnuTLS's \"gnutls-cli\" outputs."
  ;; GnuTLS cli.c:do_handshake() calls, on success,
  ;; common.c:print_info(), that unconditionally print this string
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 8cad27fd86d..dcfa89ca051 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -247,7 +247,7 @@ See `c-offsets-alist'."
 ;;; User variables
 (defcustom c-strict-syntax-p nil
-  "*If non-nil, all syntactic symbols must be found in `c-offsets-alist'.
+  "If non-nil, all syntactic symbols must be found in `c-offsets-alist'.
 If the syntactic symbol for a particular line does not match a symbol
 in the offsets alist, or if no non-nil offset value can be determined
 for a symbol, an error is generated, otherwise no error is reported
@@ -260,12 +260,12 @@ syntactic symbols in `c-offsets-alist'.  Please keep it set to nil."
  :group 'c)
 (defcustom c-echo-syntactic-information-p nil
-  "*If non-nil, syntactic info is echoed when the line is indented."
+  "If non-nil, syntactic info is echoed when the line is indented."
  :type 'boolean
  :group 'c)
 (defcustom c-report-syntactic-errors nil
-  "*If non-nil, certain syntactic errors are reported with a ding
+  "If non-nil, certain syntactic errors are reported with a ding
 and a message, for example when an \"else\" is indented for which
 there's no corresponding \"if\".
@@ -277,7 +277,7 @@ anchoring position to indent the line in that case."
  :group 'c)
 (defcustom-c-stylevar c-basic-offset 4
-  "*Amount of basic offset used by + and - symbols in `c-offsets-alist'.
+  "Amount of basic offset used by + and - symbols in `c-offsets-alist'.
 Also used as the indentation step when `c-syntactic-indentation' is
 nil."
  :type 'integer
@@ -286,7 +286,7 @@ nil."
 (defcustom c-tab-always-indent t
-  "*Controls the operation of the TAB key.
+  "Controls the operation of the TAB key.
 If t, hitting TAB always just indents the current line.  If nil, hitting
 TAB indents the current line if point is at the left margin or in the
 line's indentation, otherwise it inserts a `real' tab character \(see
@@ -308,7 +308,7 @@ by the `c-comment-only-line-offset' variable."
  :group 'c)
 (defcustom c-insert-tab-function 'insert-tab
-  "*Function used when inserting a tab for \\[c-indent-command].
+  "Function used when inserting a tab for \\[c-indent-command].
 Only used when `c-tab-always-indent' indicates a `real' tab character
 should be inserted.  Value must be a function taking no arguments.
 The default, `insert-tab', inserts either a tab or the equivalent
@@ -317,7 +317,7 @@ number of spaces depending on the value of `indent-tabs-mode'."
  :group 'c)
 (defcustom c-syntactic-indentation t
-  "*Whether the indentation should be controlled by the syntactic context.
+  "Whether the indentation should be controlled by the syntactic context.
 If t, the indentation functions indent according to the syntactic
 context, using the style settings specified by `c-offsets-alist'.
@@ -333,7 +333,7 @@ e.g. `c-special-indent-hook'."
 (put 'c-syntactic-indentation 'safe-local-variable 'booleanp)
 (defcustom c-syntactic-indentation-in-macros t
-  "*Enable syntactic analysis inside macros.
+  "Enable syntactic analysis inside macros.
 If this is nil, all lines inside macro definitions are analyzed as
 `cpp-macro-cont'.  Otherwise they are analyzed syntactically, just
 like normal code, and `cpp-define-intro' is used to create the
@@ -352,7 +352,7 @@ better with the \"do { ... } while \(0)\" trick)."
 (put 'c-syntactic-indentation-in-macros 'safe-local-variable 'booleanp)
 (defcustom c-defun-tactic 'go-outward
-  "*Whether functions are recognized inside, e.g., a class.
+  "Whether functions are recognized inside, e.g., a class.
 This is used by `c-beginning-of-defun' and like functions.
 Its value is one of:
@@ -367,7 +367,7 @@ Its value is one of:
  :group 'c)
 (defcustom-c-stylevar c-comment-only-line-offset 0
-  "*Extra offset for line which contains only the start of a comment.
+  "Extra offset for line which contains only the start of a comment.
 Can contain an integer or a cons cell of the form:
 (NON-ANCHORED-OFFSET . ANCHORED-OFFSET)
@@ -391,7 +391,7 @@ default)."
  '((anchored-comment . (column . 0))
    (end-block . (space . 1))
    (cpp-end-block . (space . 2)))
-  "*Specifies how \\[indent-for-comment] calculates the comment start column.
+  "Specifies how \\[indent-for-comment] calculates the comment start column.
 This is an association list that contains entries of the form:
 (LINE-TYPE . INDENT-SPEC)
@@ -465,7 +465,7 @@ in that case, i.e. as if \\[c-indent-command] was used instead."
  :group 'c)
 (defcustom-c-stylevar c-indent-comments-syntactically-p nil
-  "*Specifies how \\[indent-for-comment] should handle comment-only lines.
+  "Specifies how \\[indent-for-comment] should handle comment-only lines.
 When this variable is non-nil, comment-only lines are indented
 according to syntactic analysis via `c-offsets-alist'.  Otherwise, the
 comment is indented as if it was preceded by code.  Note that this
@@ -488,7 +488,7 @@ comment-only lines."
  (if (boundp 'c-comment-continuation-stars)
      (symbol-value 'c-comment-continuation-stars)
    "* ")
-  "*Specifies the line prefix of continued C-style block comments.
+  "Specifies the line prefix of continued C-style block comments.
 You should set this variable to the literal string that gets inserted
 at the front of continued block style comment lines.  This should
 either be the empty string, or some characters without preceding
@@ -507,7 +507,7 @@ style comments."
  '((pike-mode . "//+!?\\|\\**")
    (awk-mode . "#+")
    (other . "//+\\|\\**"))
-  "*Regexp to match the line prefix inside comments.
+  "Regexp to match the line prefix inside comments.
 This regexp is used to recognize the fill prefix inside comments for
 correct paragraph filling and other things.
@@ -564,7 +564,7 @@ variable in a mode hook."
  '((java-mode . javadoc)
    (pike-mode . autodoc)
    (c-mode    . gtkdoc))
-  "*Specifies documentation comment style(s) to recognize.
+  "Specifies documentation comment style(s) to recognize.
 This is primarily used to fontify doc comments and the markup within
 them, e.g. Javadoc comments.
@@ -634,7 +634,7 @@ afterwards to redo that work."
  :group 'c)
 (defcustom c-ignore-auto-fill '(string cpp code)
-  "*List of contexts in which automatic filling never occurs.
+  "List of contexts in which automatic filling never occurs.
 If Auto Fill mode is active, it will be temporarily disabled if point
 is in any context on this list.  It's e.g. useful to enable Auto Fill
 in comments only, but not in strings or normal code.  The valid
@@ -654,7 +654,7 @@ contexts are:
  :group 'c)
 (defcustom-c-stylevar c-cleanup-list '(scope-operator)
-  "*List of various C/C++/ObjC constructs to \"clean up\".
+  "List of various C/C++/ObjC constructs to \"clean up\".
 The following clean ups only take place when the auto-newline feature
 is turned on, as evidenced by the `/la' appearing next to the mode
 name:
@@ -751,7 +751,7 @@ involve auto-newline inserted newlines:
                                               (inexpr-class-open after)
                                               (inexpr-class-close before)
                                               (arglist-cont-nonempty))
-  "*Controls the insertion of newlines before and after braces
+  "Controls the insertion of newlines before and after braces
 when the auto-newline feature is active.  This variable contains an
 association list with elements of the following form:
 \(SYNTACTIC-SYMBOL . ACTION).
@@ -815,7 +815,7 @@ Zero or nil means no limit."
  :group 'c)
 (defcustom-c-stylevar c-hanging-colons-alist nil
-  "*Controls the insertion of newlines before and after certain colons.
+  "Controls the insertion of newlines before and after certain colons.
 This variable contains an association list with elements of the
 following form: (SYNTACTIC-SYMBOL . ACTION).
@@ -838,7 +838,7 @@ currently not supported for this variable."
 (defcustom-c-stylevar c-hanging-semi&comma-criteria
  '(c-semi&comma-inside-parenlist)
-  "*List of functions that decide whether to insert a newline or not.
+  "List of functions that decide whether to insert a newline or not.
 The functions in this list are called, in order, whenever the
 auto-newline minor mode is activated (as evidenced by a `/a' or `/ah'
 string in the mode line), and a semicolon or comma is typed (see
@@ -855,7 +855,7 @@ then no newline is inserted."
  :group 'c)
 (defcustom-c-stylevar c-backslash-column 48
-  "*Minimum alignment column for line continuation backslashes.
+  "Minimum alignment column for line continuation backslashes.
 This is used by the functions that automatically insert or align the
 line continuation backslashes in multiline macros.  If any line in the
 macro exceeds this column then the next tab stop from that line is
@@ -865,7 +865,7 @@ used as alignment column instead.  See also `c-backslash-max-column'."
 ;;;###autoload(put 'c-backslash-column 'safe-local-variable 'integerp)
 (defcustom-c-stylevar c-backslash-max-column 72
-  "*Maximum alignment column for line continuation backslashes.
+  "Maximum alignment column for line continuation backslashes.
 This is used by the functions that automatically insert or align the
 line continuation backslashes in multiline macros.  If any line in the
 macro exceeds this column then the backslashes for the other lines
@@ -874,7 +874,7 @@ will be aligned at this column."
  :group 'c)
 (defcustom c-auto-align-backslashes t
-  "*Align automatically inserted line continuation backslashes.
+  "Align automatically inserted line continuation backslashes.
 When line continuation backslashes are inserted automatically for line
 breaks in multiline macros, e.g. by \\[c-context-line-break], they are
 aligned with the other backslashes in the same macro if this flag is
@@ -884,12 +884,12 @@ space."
  :group 'c)
 (defcustom c-backspace-function 'backward-delete-char-untabify
-  "*Function called by `c-electric-backspace' when deleting backwards."
+  "Function called by `c-electric-backspace' when deleting backwards."
  :type 'function
  :group 'c)
 (defcustom c-delete-function 'delete-char
-  "*Function called by `c-electric-delete-forward' when deleting forwards."
+  "Function called by `c-electric-delete-forward' when deleting forwards."
  :type 'function
  :group 'c)
@@ -901,7 +901,7 @@ space."
  '((c-mode    . t)
    (c++-mode  . t)
    (objc-mode . t))
-  "*Controls whether a final newline is ensured when the file is saved.
+  "Controls whether a final newline is ensured when the file is saved.
 The value is an association list that for each language mode specifies
 the value to give to `require-final-newline' at mode initialization;
 see that variable for details about the value.  If a language isn't
@@ -931,20 +931,20 @@ present on the association list, CC Mode won't touch
  :group 'c)
 (defcustom c-electric-pound-behavior nil
-  "*List of behaviors for electric pound insertion.
+  "List of behaviors for electric pound insertion.
 Only currently supported behavior is `alignleft'."
  :type '(set (const alignleft))
  :group 'c)
 (defcustom c-special-indent-hook nil
-  "*Hook for user defined special indentation adjustments.
+  "Hook for user defined special indentation adjustments.
 This hook gets called after each line is indented by the mode.  It is only
 called when `c-syntactic-indentation' is non-nil."
  :type 'hook
  :group 'c)
 (defcustom-c-stylevar c-label-minimum-indentation 1
-  "*Minimum indentation for lines inside code blocks.
+  "Minimum indentation for lines inside code blocks.
 This variable typically only affects code using the `gnu' style, which
 mandates a minimum of one space in front of every line inside code
 blocks.  Specifically, the function `c-gnu-impose-minimum' on your
@@ -953,7 +953,7 @@ blocks.  Specifically, the function `c-gnu-impose-minimum' on your
  :group 'c)
 (defcustom c-progress-interval 5
-  "*Interval used to update progress status during long re-indentation.
+  "Interval used to update progress status during long re-indentation.
 If a number, percentage complete gets updated after each interval of
 that many seconds.  To inhibit all messages during indentation, set
 this variable to nil."
@@ -961,7 +961,7 @@ this variable to nil."
  :group 'c)
 (defcustom c-objc-method-arg-min-delta-to-bracket 2
-  "*Minimum number of chars to the opening bracket.
+  "Minimum number of chars to the opening bracket.
 Consider this ObjC snippet:
@@ -981,7 +981,7 @@ This behavior can be overridden by customizing the indentation of
  :group 'c)
 (defcustom c-objc-method-arg-unfinished-offset 4
-  "*Offset relative to bracket if first selector is on a new line.
+  "Offset relative to bracket if first selector is on a new line.
    [aaaaaaaaa
    |<-x->|bbbbbbb:  cccccc
@@ -990,7 +990,7 @@ This behavior can be overridden by customizing the indentation of
  :group 'c)
 (defcustom c-objc-method-parameter-offset 4
-  "*Offset for selector parameter on a new line (relative to first selector.
+  "Offset for selector parameter on a new line (relative to first selector.
    [aaaaaaa bbbbbbbbbb:
             |<-x->|cccccccc
@@ -1001,7 +1001,7 @@ This behavior can be overridden by customizing the indentation of
 (defcustom c-default-style '((java-mode . "java") (awk-mode . "awk")
                             (other . "gnu"))
-  "*Style which gets installed by default when a file is visited.
+  "Style which gets installed by default when a file is visited.
 The value of this variable can be any style defined in
 `c-style-alist', including styles you add.  The value can also be an
@@ -1411,7 +1411,7 @@ Here is the current list of valid syntactic element symbols:
    do-while-closure else-clause catch-clause inlambda annotation-var-cont))
 (defcustom c-style-variables-are-local-p t
-  "*Whether style variables should be buffer local by default.
+  "Whether style variables should be buffer local by default.
 If non-nil, then all indentation style related variables will be made
 buffer local by default.  If nil, they will remain global.  Variables
 are made buffer local when this file is loaded, and once buffer
@@ -1442,54 +1442,54 @@ The list of variables to buffer localize are:
  :group 'c)
 (defcustom c-mode-hook nil
-  "*Hook called by `c-mode'."
+  "Hook called by `c-mode'."
  :type 'hook
  :group 'c)
 (defcustom c++-mode-hook nil
-  "*Hook called by `c++-mode'."
+  "Hook called by `c++-mode'."
  :type 'hook
  :group 'c)
 (defcustom objc-mode-hook nil
-  "*Hook called by `objc-mode'."
+  "Hook called by `objc-mode'."
  :type 'hook
  :group 'c)
 (defcustom java-mode-hook nil
-  "*Hook called by `java-mode'."
+  "Hook called by `java-mode'."
  :type 'hook
  :group 'c)
 (defcustom idl-mode-hook nil
-  "*Hook called by `idl-mode'."
+  "Hook called by `idl-mode'."
  :type 'hook
  :group 'c)
 (defcustom pike-mode-hook nil
-  "*Hook called by `pike-mode'."
+  "Hook called by `pike-mode'."
  :type 'hook
  :group 'c)
 (defcustom awk-mode-hook nil
-  "*Hook called by `awk-mode'."
+  "Hook called by `awk-mode'."
  :type 'hook
  :group 'c)
 (defcustom c-mode-common-hook nil
-  "*Hook called by all CC Mode modes for common initializations."
+  "Hook called by all CC Mode modes for common initializations."
  :type 'hook
  :group 'c)
 (defcustom c-initialization-hook nil
-  "*Hook called when the CC Mode package gets initialized.
+  "Hook called when the CC Mode package gets initialized.
 This hook is only run once per Emacs session and can be used as a
 `load-hook' or in place of using `eval-after-load'."
  :type 'hook
  :group 'c)
 (defcustom c-enable-xemacs-performance-kludge-p nil
-  "*Enables a XEmacs only hack that may improve speed for some coding styles.
+  "Enables a XEmacs only hack that may improve speed for some coding styles.
 For styles that hang top-level opening braces (as is common with JDK
 Java coding styles) this can improve performance between 3 and 60
 times for core indentation functions (e.g. `c-parse-state').  For
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 83eded136eb..9658b8b9280 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -202,7 +202,7 @@
 (defcustom cperl-extra-newline-before-brace nil
-  "*Non-nil means that if, elsif, while, until, else, for, foreach
+  "Non-nil means that if, elsif, while, until, else, for, foreach
 and do constructs look like:
        if ()
@@ -218,13 +218,13 @@ instead of:
 (defcustom cperl-extra-newline-before-brace-multiline
  cperl-extra-newline-before-brace
-  "*Non-nil means the same as `cperl-extra-newline-before-brace', but
+  "Non-nil means the same as `cperl-extra-newline-before-brace', but
 for constructs with multiline if/unless/while/until/for/foreach condition."
  :type 'boolean
  :group 'cperl-autoinsert-details)
 (defcustom cperl-indent-level 2
-  "*Indentation of CPerl statements with respect to containing block."
+  "Indentation of CPerl statements with respect to containing block."
  :type 'integer
  :group 'cperl-indentation-details)
@@ -242,52 +242,52 @@ for constructs with multiline if/unless/while/until/for/foreach condition."
 ;;;###autoload(put 'cperl-merge-trailing-else 'safe-local-variable 'booleanp)
 (defcustom cperl-lineup-step nil
-  "*`cperl-lineup' will always lineup at multiple of this number.
+  "`cperl-lineup' will always lineup at multiple of this number.
 If nil, the value of `cperl-indent-level' will be used."
  :type '(choice (const nil) integer)
  :group 'cperl-indentation-details)
 (defcustom cperl-brace-imaginary-offset 0
-  "*Imagined indentation of a Perl open brace that actually follows a statement.
+  "Imagined indentation of a Perl open brace that actually follows a statement.
 An open brace following other text is treated as if it were this far
 to the right of the start of its line."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-brace-offset 0
-  "*Extra indentation for braces, compared with other text in same context."
+  "Extra indentation for braces, compared with other text in same context."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-label-offset -2
-  "*Offset of CPerl label lines relative to usual indentation."
+  "Offset of CPerl label lines relative to usual indentation."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-min-label-indent 1
-  "*Minimal offset of CPerl label lines."
+  "Minimal offset of CPerl label lines."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-continued-statement-offset 2
-  "*Extra indent for lines not starting new statements."
+  "Extra indent for lines not starting new statements."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-continued-brace-offset 0
-  "*Extra indent for substatements that start with open-braces.
+  "Extra indent for substatements that start with open-braces.
 This is in addition to cperl-continued-statement-offset."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-close-paren-offset -1
-  "*Extra indent for substatements that start with close-parenthesis."
+  "Extra indent for substatements that start with close-parenthesis."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-indent-wrt-brace t
-  "*Non-nil means indent statements in if/etc block relative brace, not if/etc.
+  "Non-nil means indent statements in if/etc block relative brace, not if/etc.
 Versions 5.2 ... 5.20 behaved as if this were nil."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-auto-newline nil
-  "*Non-nil means automatically newline before and after braces,
+  "Non-nil means automatically newline before and after braces,
 and after colons and semicolons, inserted in CPerl code.  The following
 \\[cperl-electric-backspace] will remove the inserted whitespace.
 Insertion after colons requires both this variable and
@@ -296,43 +296,43 @@ Insertion after colons requires both this variable and
  :group 'cperl-autoinsert-details)
 (defcustom cperl-autoindent-on-semi nil
-  "*Non-nil means automatically indent after insertion of (semi)colon.
+  "Non-nil means automatically indent after insertion of (semi)colon.
 Active if `cperl-auto-newline' is false."
  :type 'boolean
  :group 'cperl-autoinsert-details)
 (defcustom cperl-auto-newline-after-colon nil
-  "*Non-nil means automatically newline even after colons.
+  "Non-nil means automatically newline even after colons.
 Subject to `cperl-auto-newline' setting."
  :type 'boolean
  :group 'cperl-autoinsert-details)
 (defcustom cperl-tab-always-indent t
-  "*Non-nil means TAB in CPerl mode should always reindent the current line,
+  "Non-nil means TAB in CPerl mode should always reindent the current line,
 regardless of where in the line point is when the TAB command is used."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-font-lock nil
-  "*Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
+  "Non-nil (and non-null) means CPerl buffers will use `font-lock-mode'.
 Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-electric-lbrace-space nil
-  "*Non-nil (and non-null) means { after $ should be preceded by ` '.
+  "Non-nil (and non-null) means { after $ should be preceded by ` '.
 Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-electric-parens-string "({[]})<"
-  "*String of parentheses that should be electric in CPerl.
+  "String of parentheses that should be electric in CPerl.
 Closing ones are electric only if the region is highlighted."
  :type 'string
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-electric-parens nil
-  "*Non-nil (and non-null) means parentheses should be electric in CPerl.
+  "Non-nil (and non-null) means parentheses should be electric in CPerl.
 Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)
@@ -345,20 +345,20 @@ Can be overwritten by `cperl-hairy' if nil."
                transient-mark-mode)
           (and (boundp 'zmacs-regions) ; For XEmacs
                zmacs-regions)))
-  "*Not-nil means that electric parens look for active mark.
+  "Not-nil means that electric parens look for active mark.
 Default is yes if there is visual feedback on mark."
  :type 'boolean
  :group 'cperl-autoinsert-details)
 (defcustom cperl-electric-linefeed nil
-  "*If true, LFD should be hairy in CPerl, otherwise C-c LFD is hairy.
+  "If true, LFD should be hairy in CPerl, otherwise C-c LFD is hairy.
 In any case these two mean plain and hairy linefeeds together.
 Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-electric-keywords nil
-  "*Not-nil (and non-null) means keywords are electric in CPerl.
+  "Not-nil (and non-null) means keywords are electric in CPerl.
 Can be overwritten by `cperl-hairy' if nil.
 Uses `abbrev-mode' to do the expansion.  If you want to use your
@@ -372,12 +372,12 @@ that begin with \"cperl-electric\".
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-electric-backspace-untabify t
-  "*Not-nil means electric-backspace will untabify in CPerl."
+  "Not-nil means electric-backspace will untabify in CPerl."
  :type 'boolean
  :group 'cperl-autoinsert-details)
 (defcustom cperl-hairy nil
-  "*Not-nil means most of the bells and whistles are enabled in CPerl.
+  "Not-nil means most of the bells and whistles are enabled in CPerl.
 Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
 `cperl-electric-parens', `cperl-electric-linefeed', `cperl-electric-keywords',
 `cperl-info-on-command-no-prompt', `cperl-clobber-lisp-bindings',
@@ -386,22 +386,22 @@ Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-comment-column 32
-  "*Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
+  "Column to put comments in CPerl (use \\[cperl-indent] to lineup with code)."
  :type 'integer
  :group 'cperl-indentation-details)
 (defcustom cperl-indent-comment-at-column-0 nil
-  "*Non-nil means that comment started at column 0 should be indentable."
+  "Non-nil means that comment started at column 0 should be indentable."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-vc-sccs-header '("($sccs) = ('%W\ %' =~ /(\\d+(\\.\\d+)+)/) ;")
-  "*Special version of `vc-sccs-header' that is used in CPerl mode buffers."
+  "Special version of `vc-sccs-header' that is used in CPerl mode buffers."
  :type '(repeat string)
  :group 'cperl)
 (defcustom cperl-vc-rcs-header '("($rcs) = (' $Id\ $ ' =~ /(\\d+(\\.\\d+)+)/);")
-  "*Special version of `vc-rcs-header' that is used in CPerl mode buffers."
+  "Special version of `vc-rcs-header' that is used in CPerl mode buffers."
  :type '(repeat string)
     :group 'cperl)
@@ -418,43 +418,43 @@ Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
 ;;     (boundp 'interpreter-mode-alist)
 ;;     (assoc "miniperl" interpreter-mode-alist)
 ;;     (assoc "\\.\\([pP][Llm]\\|al\\)$" auto-mode-alist)))
-;;   "*Whether to install us into `interpreter-' and `extension' mode lists."
+;;   "Whether to install us into `interpreter-' and `extension' mode lists."
 ;;   :type 'boolean
 ;;   :group 'cperl)
 (defcustom cperl-info-on-command-no-prompt nil
-  "*Not-nil (and non-null) means not to prompt on C-h f.
+  "Not-nil (and non-null) means not to prompt on C-h f.
 The opposite behavior is always available if prefixed with C-c.
 Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-clobber-lisp-bindings nil
-  "*Not-nil (and non-null) means not overwrite C-h f.
+  "Not-nil (and non-null) means not overwrite C-h f.
 The function is available on \\[cperl-info-on-command], \\[cperl-get-help].
 Can be overwritten by `cperl-hairy' if nil."
  :type '(choice (const null) boolean)
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-lazy-help-time nil
-  "*Not-nil (and non-null) means to show lazy help after given idle time.
+  "Not-nil (and non-null) means to show lazy help after given idle time.
 Can be overwritten by `cperl-hairy' to be 5 sec if nil."
  :type '(choice (const null) (const nil) integer)
  :group 'cperl-affected-by-hairy)
 (defcustom cperl-pod-face 'font-lock-comment-face
-  "*Face for POD highlighting."
+  "Face for POD highlighting."
  :type 'face
  :group 'cperl-faces)
 (defcustom cperl-pod-head-face 'font-lock-variable-name-face
-  "*Face for POD highlighting.
+  "Face for POD highlighting.
 Font for POD headers."
  :type 'face
  :group 'cperl-faces)
 (defcustom cperl-here-face 'font-lock-string-face
-  "*Face for here-docs highlighting."
+  "Face for here-docs highlighting."
  :type 'face
  :group 'cperl-faces)
@@ -462,23 +462,23 @@ Font for POD headers."
 (defvar cperl-singly-quote-face (featurep 'xemacs))
 (defcustom cperl-invalid-face 'underline
-  "*Face for highlighting trailing whitespace."
+  "Face for highlighting trailing whitespace."
  :type 'face
  :version "21.1"
  :group 'cperl-faces)
 (defcustom cperl-pod-here-fontify '(featurep 'font-lock)
-  "*Not-nil after evaluation means to highlight POD and here-docs sections."
+  "Not-nil after evaluation means to highlight POD and here-docs sections."
  :type 'boolean
  :group 'cperl-faces)
 (defcustom cperl-fontify-m-as-s t
-  "*Not-nil means highlight 1arg regular expressions operators same as 2arg."
+  "Not-nil means highlight 1arg regular expressions operators same as 2arg."
  :type 'boolean
  :group 'cperl-faces)
 (defcustom cperl-highlight-variables-indiscriminately nil
-  "*Non-nil means perform additional highlighting on variables.
+  "Non-nil means perform additional highlighting on variables.
 Currently only changes how scalar variables are highlighted.
 Note that that variable is only read at initialization time for
 the variable `cperl-font-lock-keywords-2', so changing it after you've
@@ -487,125 +487,125 @@ entered CPerl mode the first time will have no effect."
  :group 'cperl)
 (defcustom cperl-pod-here-scan t
-  "*Not-nil means look for POD and here-docs sections during startup.
+  "Not-nil means look for POD and here-docs sections during startup.
 You can always make lookup from menu or using \\[cperl-find-pods-heres]."
  :type 'boolean
  :group 'cperl-speed)
 (defcustom cperl-regexp-scan t
-  "*Not-nil means make marking of regular expression more thorough.
+  "Not-nil means make marking of regular expression more thorough.
 Effective only with `cperl-pod-here-scan'."
  :type 'boolean
  :group 'cperl-speed)
 (defcustom cperl-hook-after-change t
-  "*Not-nil means install hook to know which regions of buffer are changed.
+  "Not-nil means install hook to know which regions of buffer are changed.
 May significantly speed up delayed fontification.  Changes take effect
 after reload."
  :type 'boolean
  :group 'cperl-speed)
 (defcustom cperl-imenu-addback nil
-  "*Not-nil means add backreferences to generated `imenu's.
+  "Not-nil means add backreferences to generated `imenu's.
 May require patched `imenu' and `imenu-go'.  Obsolete."
  :type 'boolean
  :group 'cperl-help-system)
 (defcustom cperl-max-help-size 66
-  "*Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
+  "Non-nil means shrink-wrapping of info-buffer allowed up to these percents."
  :type '(choice integer (const nil))
  :group 'cperl-help-system)
 (defcustom cperl-shrink-wrap-info-frame t
-  "*Non-nil means shrink-wrapping of info-buffer-frame allowed."
+  "Non-nil means shrink-wrapping of info-buffer-frame allowed."
  :type 'boolean
  :group 'cperl-help-system)
 (defcustom cperl-info-page "perl"
-  "*Name of the info page containing perl docs.
+  "Name of the info page containing perl docs.
 Older version of this page was called `perl5', newer `perl'."
  :type 'string
  :group 'cperl-help-system)
 (defcustom cperl-use-syntax-table-text-property
  (boundp 'parse-sexp-lookup-properties)
-  "*Non-nil means CPerl sets up and uses `syntax-table' text property."
+  "Non-nil means CPerl sets up and uses `syntax-table' text property."
  :type 'boolean
  :group 'cperl-speed)
 (defcustom cperl-use-syntax-table-text-property-for-tags
  cperl-use-syntax-table-text-property
-  "*Non-nil means: set up and use `syntax-table' text property generating TAGS."
+  "Non-nil means: set up and use `syntax-table' text property generating TAGS."
  :type 'boolean
  :group 'cperl-speed)
 (defcustom cperl-scan-files-regexp "\\.\\([pP][Llm]\\|xs\\)$"
-  "*Regexp to match files to scan when generating TAGS."
+  "Regexp to match files to scan when generating TAGS."
  :type 'regexp
  :group 'cperl)
 (defcustom cperl-noscan-files-regexp
  "/\\(\\.\\.?\\|SCCS\\|RCS\\|CVS\\|blib\\)$"
-  "*Regexp to match files/dirs to skip when generating TAGS."
+  "Regexp to match files/dirs to skip when generating TAGS."
  :type 'regexp
  :group 'cperl)
 (defcustom cperl-regexp-indent-step nil
-  "*Indentation used when beautifying regexps.
+  "Indentation used when beautifying regexps.
 If nil, the value of `cperl-indent-level' will be used."
  :type '(choice integer (const nil))
  :group 'cperl-indentation-details)
 (defcustom cperl-indent-left-aligned-comments t
-  "*Non-nil means that the comment starting in leftmost column should indent."
+  "Non-nil means that the comment starting in leftmost column should indent."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-under-as-char nil
-  "*Non-nil means that the _ (underline) should be treated as word char."
+  "Non-nil means that the _ (underline) should be treated as word char."
  :type 'boolean
  :group 'cperl)
 (make-obsolete-variable 'cperl-under-as-char 'superword-mode "24.4")
 (defcustom cperl-extra-perl-args ""
-  "*Extra arguments to use when starting Perl.
+  "Extra arguments to use when starting Perl.
 Currently used with `cperl-check-syntax' only."
  :type 'string
  :group 'cperl)
 (defcustom cperl-message-electric-keyword t
-  "*Non-nil means that the `cperl-electric-keyword' prints a help message."
+  "Non-nil means that the `cperl-electric-keyword' prints a help message."
  :type 'boolean
  :group 'cperl-help-system)
 (defcustom cperl-indent-region-fix-constructs 1
-  "*Amount of space to insert between `}' and `else' or `elsif'
+  "Amount of space to insert between `}' and `else' or `elsif'
 in `cperl-indent-region'.  Set to nil to leave as is.  Values other
 than 1 and nil will probably not work."
  :type '(choice (const nil) (const 1))
  :group 'cperl-indentation-details)
 (defcustom cperl-break-one-line-blocks-when-indent t
-  "*Non-nil means that one-line if/unless/while/until/for/foreach BLOCKs
+  "Non-nil means that one-line if/unless/while/until/for/foreach BLOCKs
 need to be reformatted into multiline ones when indenting a region."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-fix-hanging-brace-when-indent t
-  "*Non-nil means that BLOCK-end `}' may be put on a separate line
+  "Non-nil means that BLOCK-end `}' may be put on a separate line
 when indenting a region.
 Braces followed by else/elsif/while/until are excepted."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-merge-trailing-else t
-  "*Non-nil means that BLOCK-end `}' followed by else/elsif/continue
+  "Non-nil means that BLOCK-end `}' followed by else/elsif/continue
 may be merged to be on the same line when indenting a region."
  :type 'boolean
  :group 'cperl-indentation-details)
 (defcustom cperl-indent-parens-as-block nil
-  "*Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
+  "Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
 but for trailing \",\" inside the group, which won't increase indentation.
 One should tune up `cperl-close-paren-offset' as well."
  :type 'boolean
@@ -614,20 +614,20 @@ One should tune up `cperl-close-paren-offset' as well."
 (defcustom cperl-syntaxify-by-font-lock
  (and cperl-can-font-lock
       (boundp 'parse-sexp-lookup-properties))
-  "*Non-nil means that CPerl uses the `font-lock' routines for syntaxification."
+  "Non-nil means that CPerl uses the `font-lock' routines for syntaxification."
  :type '(choice (const message) boolean)
  :group 'cperl-speed)
 (defcustom cperl-syntaxify-unwind
  t
-  "*Non-nil means that CPerl unwinds to a start of a long construction
+  "Non-nil means that CPerl unwinds to a start of a long construction
 when syntaxifying a chunk of buffer."
  :type 'boolean
  :group 'cperl-speed)
 (defcustom cperl-syntaxify-for-menu
  t
-  "*Non-nil means that CPerl syntaxifies up to the point before showing menu.
+  "Non-nil means that CPerl syntaxifies up to the point before showing menu.
 This way enabling/disabling of menu items is more correct."
  :type 'boolean
  :group 'cperl-speed)
@@ -8578,7 +8578,7 @@ the appropriate statement modifier."
  (cperl-perldoc (cperl-word-at-point)))
 (defcustom pod2man-program "pod2man"
-  "*File name for `pod2man'."
+  "File name for `pod2man'."
  :type 'file
  :group 'cperl)
diff --git a/test/manual/cedet/tests/test.el b/test/manual/cedet/tests/test.el
index 0b8f9dee619..15517da0dc2 100644
--- a/test/manual/cedet/tests/test.el
+++ b/test/manual/cedet/tests/test.el
@@ -89,7 +89,7 @@
 (defconst a-defconst 'a "var doc const")
 (defcustom a-defcustom nil
-  "*doc custom"
+  "doc custom"
  :group 'a-defgroup
  :type 'boolean)
author	Glenn Morris	2016-06-09 20:13:12 -0400
committer	Glenn Morris	2016-06-09 20:13:12 -0400
commit	f9af5eddc835bbed2ca100838f8f294901b60c2d (patch)
tree	35c399aced8ccdc46ed933a76d297d3572887db4
parent	1c09423880e1c48d6ba02a196430e829d1d87d57 (diff)
download	emacs-f9af5eddc835bbed2ca100838f8f294901b60c2d.tar.gz emacs-f9af5eddc835bbed2ca100838f8f294901b60c2d.zip