(gmm, gmm-verbose, gmm-lazy, gmm-customize-mode,

gmm-image-load-path-for-library): Fix typos in docstrings.
(gmm-message): Reflow docstring.

1 files changed, 12 insertions, 10 deletions

diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index d0e2c08bc7e..f27344f82d0 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -33,7 +33,7 @@
 (require 'wid-edit)
 
 (defgroup gmm nil
-  "Utility functions for Gnus, Message and MML"
+  "Utility functions for Gnus, Message and MML."
   :prefix "gmm-"
   :version "22.1" ;; Gnus 5.10.9
   :group 'lisp)
@@ -43,7 +43,7 @@
 (defcustom gmm-verbose 7
   "Integer that says how verbose gmm should be.
 The higher the number, the more messages will flash to say what
-it done.  At zero, it will be totally mute; at five, it will
+it did.  At zero, it will be totally mute; at five, it will
 display most important messages; and at ten, it will keep on
 jabbering all the time."
   :type 'integer
@@ -67,9 +67,11 @@ The concatenation is done with logical ORs."
   "If LEVEL is lower than `gmm-verbose' print ARGS using `message'.
 
 Guideline for numbers:
-1 - error messages, 3 - non-serious error messages, 5 - messages for things
-that take a long time, 7 - not very important messages on stuff, 9 - messages
-inside loops."
+1 - error messages
+3 - non-serious error messages
+5 - messages for things that take a long time
+7 - not very important messages on stuff
+9 - messages inside loops."
   (if (<= level gmm-verbose)
       (apply 'message args)
     ;; We have to do this format thingy here even if the result isn't
@@ -99,7 +101,7 @@ ARGS are passed to `message'."
 (define-widget 'gmm-lazy 'default
   "Base widget for recursive datastructures.
 
-This is copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
+This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
   :format "%{%t%}: %v"
   :convert-widget 'widget-value-convert-widget
   :value-create (lambda (widget)
@@ -321,11 +323,11 @@ in \"`data-directory'/images\".
 
 Then this function returns a list of directories which contains
 first the directory in which IMAGE was found, followed by the
-value of `load-path'. If PATH is given, it is used instead of
+value of `load-path'.  If PATH is given, it is used instead of
 `load-path'.
 
 If NO-ERROR is non-nil and a suitable path can't be found, don't
-signal an error. Instead, return a list of directories as before,
+signal an error.  Instead, return a list of directories as before,
 except that nil appears in place of the image directory.
 
 Here is an example that uses a common idiom to provide
@@ -362,7 +364,7 @@ compatibility with versions of Emacs that lack the variable
       (setq image-directory-load-path dir))
 
     ;; If `image-directory-load-path' isn't Emacs' image directory,
-    ;; it's probably a user preference, so use it. Then use a
+    ;; it's probably a user preference, so use it.  Then use a
     ;; relative setting if possible; otherwise, use
     ;; `image-directory-load-path'.
     (cond
@@ -406,7 +408,7 @@ compatibility with versions of Emacs that lack the variable
 
 (defun gmm-customize-mode (&optional mode)
   "Customize customization group for MODE.
-If mode is nil, use `major-mode' of the curent buffer."
+If mode is nil, use `major-mode' of the current buffer."
   (interactive)
   (customize-group
    (or mode