Remove obsolete leading * from defcustom, defface doc strings.

[gnu-emacs] / lisp / gnus / gnus-salt.el

diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index b7af969bc20eadc702672b91c640f8f96dcfe08c..2c3aff54898834adaa2521109da848cbccdbd78e 100644 (file)
--- 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)
@@ -218,7 +218,7 @@ This must be bound to a button-down mouse event."
         (start-point (posn-point start-posn))
          (start-line (1+ (count-lines (point-min) start-point)))
         (start-window (posn-window start-posn))
-        (bounds (gnus-window-edges start-window))
+        (bounds (window-edges start-window))
         (top (nth 1 bounds))
         (bottom (if (window-minibuffer-p start-window)
                     (nth 3 bounds)
@@ -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)
 
@@ -618,7 +618,7 @@ Two predefined functions are available:
                (t (cdar gnus-tree-brackets))))
         (buffer-read-only nil)
         beg end)
-    (gnus-add-text-properties
+    (add-text-properties
      (setq beg (point))
      (setq end (progn (eval gnus-tree-line-format-spec) (point)))
      (list 'gnus-number gnus-tmp-number))
@@ -834,8 +834,7 @@ it in the environment specified by BINDINGS."
          region)
       (set-buffer gnus-tree-buffer)
       (when (setq region (gnus-tree-article-region article))
-       (when (or (not gnus-selected-tree-overlay)
-                 (gnus-extent-detached-p gnus-selected-tree-overlay))
+       (when (not gnus-selected-tree-overlay)
          ;; Create a new overlay.
          (overlay-put
           (setq gnus-selected-tree-overlay
@@ -864,7 +863,7 @@ it in the environment specified by BINDINGS."
     (with-current-buffer (gnus-get-tree-buffer)
       (let (region)
        (when (setq region (gnus-tree-article-region article))
-         (gnus-put-text-property (car region) (cdr region) 'face face)
+         (put-text-property (car region) (cdr region) 'face face)
          (set-window-point
           (gnus-get-buffer-window (current-buffer) t) (cdr region)))))))