lisp/*.el: Fix typos and other trivial doc fixes

* lisp/allout-widgets.el (allout-widgets-auto-activation)
(allout-current-decorated-p):
* lisp/auth-source.el (auth-source-protocols):
* lisp/autorevert.el (auto-revert-set-timer):
* lisp/battery.el (battery-mode-line-limit):
* lisp/calc/calcalg3.el (math-map-binop):
* lisp/calendar/cal-dst.el (calendar-dst-find-startend):
* lisp/calendar/cal-mayan.el (calendar-mayan-long-count-to-absolute):
* lisp/calendar/calendar.el (calendar-date-echo-text)
(calendar-generate-month, calendar-string-spread)
(calendar-cursor-to-date, calendar-read, calendar-read-date)
(calendar-mark-visible-date, calendar-dayname-on-or-before):
* lisp/calendar/diary-lib.el (diary-ordinal-suffix):
* lisp/cedet/ede/autoconf-edit.el (autoconf-new-program)
(autoconf-find-last-macro, autoconf-parameter-strip):
* lisp/cedet/ede/config.el (ede-target-with-config-build):
* lisp/cedet/ede/linux.el (ede-linux--detect-architecture)
(ede-linux--get-architecture):
* lisp/cedet/semantic/complete.el (semantic-collector-calculate-cache)
(semantic-displayer-abstract, semantic-displayer-point-position):
* lisp/cedet/semantic/format.el (semantic-format-face-alist)
(semantic-format-tag-short-doc):
* lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
* lisp/cedet/semantic/idle.el (semantic-idle-scheduler-work-idle-time)
(semantic-idle-breadcrumbs-display-function)
(semantic-idle-breadcrumbs-format-tag-list-function):
* lisp/cedet/semantic/lex.el (semantic-lex-map-types)
(define-lex, define-lex-block-type-analyzer):
* lisp/cedet/semantic/senator.el (senator-search-default-tag-filter):
* lisp/cedet/semantic/symref.el (semantic-symref-result)
(semantic-symref-hit-to-tag-via-db):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-new-variable)
(semantic-tag-new-include, semantic-tag-new-package)
(semantic-tag-set-faux, semantic-create-tag-proxy)
(semantic-tag-function-parent)
(semantic-tag-components-with-overlays):
* lisp/cedet/srecode/cpp.el (srecode-cpp-namespaces)
(srecode-semantic-handle-:c, srecode-semantic-apply-tag-to-dict):
* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary)
(srecode-dictionary-add-entries, srecode-dictionary-lookup-name)
(srecode-create-dictionaries-from-tags):
* lisp/cmuscheme.el (scheme-compile-region):
* lisp/color.el (color-lab-to-lch):
* lisp/doc-view.el (doc-view-image-width)
(doc-view-set-up-single-converter):
* lisp/dynamic-setting.el (font-setting-change-default-font)
(dynamic-setting-handle-config-changed-event):
* lisp/elec-pair.el (electric-pair-text-pairs)
(electric-pair-skip-whitespace-function)
(electric-pair-string-bound-function):
* lisp/emacs-lisp/avl-tree.el (avl-tree--del-balance)
(avl-tree-member, avl-tree-mapcar, avl-tree-iter):
* lisp/emacs-lisp/bytecomp.el (byte-compile-generate-call-tree):
* lisp/emacs-lisp/checkdoc.el (checkdoc-autofix-flag)
(checkdoc-spellcheck-documentation-flag, checkdoc-ispell)
(checkdoc-ispell-current-buffer, checkdoc-ispell-interactive)
(checkdoc-ispell-message-interactive)
(checkdoc-ispell-message-text, checkdoc-ispell-start)
(checkdoc-ispell-continue, checkdoc-ispell-comments)
(checkdoc-ispell-defun):
* lisp/emacs-lisp/cl-generic.el (cl--generic-search-method):
* lisp/emacs-lisp/eieio-custom.el (eieio-read-customization-group):
* lisp/emacs-lisp/lisp.el (forward-sexp, up-list):
* lisp/emacs-lisp/package-x.el (package--archive-contents-from-file):
* lisp/emacs-lisp/package.el (package-desc)
(package--make-autoloads-and-stuff, package-hidden-regexps):
* lisp/emacs-lisp/tcover-ses.el (ses-exercise-startup):
* lisp/emacs-lisp/testcover.el (testcover-nohits)
(testcover-1value):
* lisp/epg.el (epg-receive-keys, epg-start-edit-key):
* lisp/erc/erc-backend.el (erc-server-processing-p)
(erc-split-line-length, erc-server-coding-system)
(erc-server-send, erc-message):
* lisp/erc/erc-button.el (erc-button-face, erc-button-alist)
(erc-browse-emacswiki):
* lisp/erc/erc-ezbounce.el (erc-ezbounce, erc-ezb-get-login):
* lisp/erc/erc-fill.el (erc-fill-variable-maximum-indentation):
* lisp/erc/erc-log.el (erc-current-logfile):
* lisp/erc/erc-match.el (erc-log-match-format)
(erc-text-matched-hook):
* lisp/erc/erc-netsplit.el (erc-netsplit, erc-netsplit-debug):
* lisp/erc/erc-networks.el (erc-server-alist)
(erc-networks-alist, erc-current-network):
* lisp/erc/erc-ring.el (erc-input-ring-index):
* lisp/erc/erc-speedbar.el (erc-speedbar)
(erc-speedbar-update-channel):
* lisp/erc/erc-stamp.el (erc-timestamp-only-if-changed-flag):
* lisp/erc/erc-track.el (erc-track-position-in-mode-line)
(erc-track-remove-from-mode-line, erc-modified-channels-update)
(erc-track-last-non-erc-buffer, erc-track-sort-by-importance)
(erc-track-get-active-buffer):
* lisp/erc/erc.el (erc-get-channel-user-list)
(erc-echo-notice-hook, erc-echo-notice-always-hook)
(erc-wash-quit-reason, erc-format-@nick):
* lisp/ffap.el (ffap-latex-mode):
* lisp/files.el (abort-if-file-too-large)
(dir-locals--get-sort-score, buffer-stale--default-function):
* lisp/filesets.el (filesets-tree-max-level, filesets-data)
(filesets-update-pre010505):
* lisp/gnus/gnus-agent.el (gnus-agent-flush-cache):
* lisp/gnus/gnus-art.el (gnus-article-encrypt-protocol)
(gnus-button-prefer-mid-or-mail):
* lisp/gnus/gnus-cus.el (gnus-group-parameters):
* lisp/gnus/gnus-demon.el (gnus-demon-handlers)
(gnus-demon-run-callback):
* lisp/gnus/gnus-dired.el (gnus-dired-print):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-buffer):
* lisp/gnus/gnus-range.el (gnus-range-normalize):
* lisp/gnus/gnus-spec.el (gnus-pad-form):
* lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-cloud)
(gnus-server-opened, gnus-server-closed, gnus-server-denied)
(gnus-server-offline):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-nnir)
(gnus-refer-thread-limit-to-thread)
(gnus-summary-limit-include-thread, gnus-summary-refer-thread)
(gnus-summary-find-matching):
* lisp/gnus/gnus-util.el (gnus-rescale-image):
* lisp/gnus/gnus.el (gnus-summary-line-format, gnus-no-server):
* lisp/gnus/mail-source.el (mail-source-incoming-file-prefix):
* lisp/gnus/message.el (message-cite-reply-position)
(message-cite-style-outlook, message-cite-style-thunderbird)
(message-cite-style-gmail, message--send-mail-maybe-partially):
* lisp/gnus/mm-extern.el (mm-inline-external-body):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/mml-sec.el (mml-secure-message-sign)
(mml-secure-message-sign-encrypt, mml-secure-message-encrypt):
* lisp/gnus/mml2015.el (mml2015-epg-key-image)
(mml2015-epg-key-image-to-string):
* lisp/gnus/nndiary.el (nndiary-reminders, nndiary-get-new-mail):
* lisp/gnus/nnheader.el (nnheader-directory-files-is-safe):
* lisp/gnus/nnir.el (nnir-search-history)
(nnir-imap-search-other, nnir-artlist-length)
(nnir-artlist-article, nnir-artitem-group, nnir-artitem-number)
(nnir-artitem-rsv, nnir-article-group, nnir-article-number)
(nnir-article-rsv, nnir-article-ids, nnir-categorize)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-hyrex-additional-switches)
(gnus-group-make-nnir-group, nnir-run-namazu, nnir-read-parms)
(nnir-read-parm, nnir-read-server-parm, nnir-search-thread):
* lisp/gnus/nnmairix.el (nnmairix-default-group)
(nnmairix-propagate-marks):
* lisp/gnus/smime.el (smime-keys, smime-crl-check)
(smime-verify-buffer, smime-noverify-buffer):
* lisp/gnus/spam-report.el (spam-report-url-ping-mm-url):
* lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header)
(spam-spamassassin-spam-status-header, spam-sa-learn-rebuild)
(spam-classifications, spam-check-stat, spam-spamassassin-score):
* lisp/help.el (describe-minor-mode-from-symbol):
* lisp/hippie-exp.el (hippie-expand-ignore-buffers):
* lisp/htmlfontify.el (hfy-optimizations, hfy-face-resolve-face)
(hfy-begin-span):
* lisp/ibuf-ext.el (ibuffer-update-saved-filters-format)
(ibuffer-saved-filters, ibuffer-old-saved-filters-warning)
(ibuffer-filtering-qualifiers, ibuffer-repair-saved-filters)
(eval, ibuffer-unary-operand, file-extension, directory):
* lisp/image-dired.el (image-dired-cmd-pngcrush-options):
* lisp/image-mode.el (image-toggle-display):
* lisp/international/ccl.el (ccl-compile-read-multibyte-character)
(ccl-compile-write-multibyte-character):
* lisp/international/kkc.el (kkc-save-init-file):
* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/ogonek.el (ogonek-name-encoding-alist)
(ogonek-information, ogonek-lookup-encoding)
(ogonek-deprefixify-region):
* lisp/isearch.el (isearch-filter-predicate)
(isearch--momentary-message):
* lisp/jsonrpc.el (jsonrpc-connection-send)
(jsonrpc-process-connection, jsonrpc-shutdown)
(jsonrpc--async-request-1):
* lisp/language/tibet-util.el (tibetan-char-p):
* lisp/mail/feedmail.el (feedmail-queue-use-send-time-for-date)
(feedmail-last-chance-hook, feedmail-before-fcc-hook)
(feedmail-send-it-immediately-wrapper, feedmail-find-eoh):
* lisp/mail/hashcash.el (hashcash-generate-payment)
(hashcash-generate-payment-async, hashcash-insert-payment)
(hashcash-verify-payment):
* lisp/mail/rmail.el (rmail-movemail-variant-in-use)
(rmail-get-attr-value):
* lisp/mail/rmailmm.el (rmail-mime-prefer-html, rmail-mime):
* lisp/mail/rmailsum.el (rmail-summary-show-message):
* lisp/mail/supercite.el (sc-raw-mode-toggle):
* lisp/man.el (Man-start-calling):
* lisp/mh-e/mh-acros.el (mh-do-at-event-location)
(mh-iterate-on-messages-in-region, mh-iterate-on-range):
* lisp/mh-e/mh-alias.el (mh-alias-system-aliases)
(mh-alias-reload, mh-alias-ali)
(mh-alias-canonicalize-suggestion, mh-alias-add-alias-to-file)
(mh-alias-add-alias):
* lisp/mouse.el (mouse-save-then-kill):
* lisp/net/browse-url.el (browse-url-default-macosx-browser):
* lisp/net/eudc.el (eudc-set, eudc-variable-protocol-value)
(eudc-variable-server-value, eudc-update-variable)
(eudc-expand-inline):
* lisp/net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result):
* lisp/net/eudcb-ldap.el (eudc-ldap-get-field-list):
* lisp/net/pop3.el (pop3-list):
* lisp/net/soap-client.el (soap-namespace-put)
(soap-xs-parse-sequence, soap-parse-envelope):
* lisp/net/soap-inspect.el (soap-inspect-xs-complex-type):
* lisp/nxml/rng-xsd.el (rng-xsd-date-to-days):
* lisp/org/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/org/ob-J.el (org-babel-execute:J):
* lisp/org/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/org/ob-awk.el (org-babel-execute:awk):
* lisp/org/ob-core.el (org-babel-process-file-name):
* lisp/org/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/org/ob-forth.el (org-babel-execute:forth):
* lisp/org/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/org/ob-groovy.el (org-babel-execute:groovy):
* lisp/org/ob-io.el (org-babel-execute:io):
* lisp/org/ob-js.el (org-babel-execute:js):
* lisp/org/ob-lilypond.el (org-babel-default-header-args:lilypond)
(org-babel-lilypond-compile-post-tangle)
(org-babel-lilypond-display-pdf-post-tangle)
(org-babel-lilypond-tangle)
(org-babel-lilypond-execute-tangled-ly)
(org-babel-lilypond-compile-lilyfile)
(org-babel-lilypond-check-for-compile-error)
(org-babel-lilypond-process-compile-error)
(org-babel-lilypond-mark-error-line)
(org-babel-lilypond-parse-error-line)
(org-babel-lilypond-attempt-to-open-pdf)
(org-babel-lilypond-attempt-to-play-midi)
(org-babel-lilypond-switch-extension)
(org-babel-lilypond-set-header-args):
* lisp/org/ob-lua.el (org-babel-prep-session:lua):
* lisp/org/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/org/ob-processing.el (org-babel-prep-session:processing):
* lisp/org/ob-python.el (org-babel-prep-session:python):
* lisp/org/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/org/ob-shen.el (org-babel-execute:shen):
* lisp/org/org-agenda.el (org-agenda-entry-types)
(org-agenda-move-date-from-past-immediately-to-today)
(org-agenda-time-grid, org-agenda-sorting-strategy)
(org-agenda-filter-by-category, org-agenda-forward-block):
* lisp/org/org-colview.el (org-columns--overlay-text):
* lisp/org/org-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org/org-indent.el (org-indent-set-line-properties):
* lisp/org/org-macs.el (org-get-limited-outline-regexp):
* lisp/org/org-mobile.el (org-mobile-files):
* lisp/org/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties, org-open-at-point-global)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/org/ox-html.el (org-html-checkbox-type):
* lisp/org/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/org/ox-publish.el (org-publish-sitemap-default):
* lisp/outline.el (outline-head-from-level):
* lisp/progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-calc-command-indent, dcl-indent-to):
* lisp/progmodes/flymake.el (flymake-make-diagnostic)
(flymake--overlays, flymake-diagnostic-functions)
(flymake-diagnostic-types-alist, flymake--backend-state)
(flymake-is-running, flymake--collect, flymake-mode):
* lisp/progmodes/gdb-mi.el (gdb-threads-list, gdb, gdb-non-stop)
(gdb-buffers, gdb-gud-context-call, gdb-jsonify-buffer):
* lisp/progmodes/grep.el (grep-error-screen-columns):
* lisp/progmodes/gud.el (gud-prev-expr):
* lisp/progmodes/ps-mode.el (ps-mode, ps-mode-target-column)
(ps-run-goto-error):
* lisp/progmodes/python.el (python-eldoc-get-doc)
(python-eldoc-function-timeout-permanent, python-eldoc-function):
* lisp/shadowfile.el (shadow-make-group):
* lisp/speedbar.el (speedbar-obj-do-check):
* lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-hook):
* lisp/textmodes/reftex-cite.el (reftex-bib-or-thebib):
* lisp/textmodes/reftex-index.el (reftex-index-goto-entry)
(reftex-index-kill, reftex-index-undo):
* lisp/textmodes/reftex-parse.el (reftex-context-substring):
* lisp/textmodes/reftex.el (reftex-TeX-master-file):
* lisp/textmodes/rst.el (rst-next-hdr, rst-toc)
(rst-uncomment-region, rst-font-lock-extend-region-internal):
* lisp/thumbs.el (thumbs-mode):
* lisp/vc/ediff-util.el (ediff-restore-diff):
* lisp/vc/pcvs-defs.el (cvs-cvsroot, cvs-force-dir-tag):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p):
* lisp/wid-edit.el (widget-field-value-set, string):
* lisp/x-dnd.el (x-dnd-version-from-flags)
(x-dnd-more-than-3-from-flags): Assorted docfixes.

25 files changed, 109 insertions, 107 deletions

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index dd30dda2a10..1f252552784 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1739,9 +1739,9 @@ the article files."
 (defun gnus-agent-flush-cache ()
   "Flush the agent's index files such that the group no longer
 appears to have any local content.  The actual content, the
-article files, is then deleted using gnus-agent-expire-group. The
-gnus-agent-regenerate-group method provides an undo mechanism by
-reconstructing the index files from the article files."
+article files, is then deleted using gnus-agent-expire-group.
+The gnus-agent-regenerate-group method provides an undo mechanism
+by reconstructing the index files from the article files."
   (interactive)
   (save-excursion
     (let ((file-name-coding-system nnmail-pathname-coding-system))
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index eba66c1c3aa..07ec2696469 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -1594,7 +1594,7 @@ predicate.  See Info node `(gnus)Customizing Articles'."
 ;; gnus-article-encrypt-protocol-alist.
 (defcustom gnus-article-encrypt-protocol "PGP"
   "The protocol used for encrypt articles.
-It is a string, such as \"PGP\". If nil, ask user."
+It is a string, such as \"PGP\".  If nil, ask user."
   :version "22.1"
   :type 'string
   :group 'mime-security)
@@ -7374,7 +7374,7 @@ man page."
 Strings like this can be either a message ID or a mail address.  If it is one
 of the symbols `mid' or `mail', Gnus will always assume that the string is a
 message ID or a mail address, respectively.  If this variable is set to the
-symbol `ask', always query the user what do do.  If it is a function, this
+symbol `ask', always query the user what to do.  If it is a function, this
 function will be called with the string as its only argument.  The function
 must return `mid', `mail', `invalid' or `ask'."
   :version "22.1"
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index a4daf8cf483..2e3fbfe9d46 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -190,7 +190,7 @@ Which articles to display on entering the group.
      unread and ticked articles.
 
 `Other'
-     Display the articles that satisfy the S-expression. The S-expression
+     Display the articles that satisfy the S-expression.  The S-expression
      should be in an array form.")
 
     (comment (string :tag  "Comment") "\
diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el
index 6007e18f558..7ec471afc71 100644
--- a/lisp/gnus/gnus-demon.el
+++ b/lisp/gnus/gnus-demon.el
@@ -44,7 +44,7 @@ Each handler is a list on the form
 
 FUNCTION is the function to be called.  TIME is the number of
 `gnus-demon-timestep's between each call.
-If nil, never call. If t, call each `gnus-demon-timestep'.
+If nil, never call.  If t, call each `gnus-demon-timestep'.
 
 If IDLE is t, only call each time Emacs has been idle for TIME.
 If IDLE is a number, only call when Emacs has been idle more than
@@ -98,8 +98,8 @@ Emacs has been idle for IDLE `gnus-demon-timestep's."
 (defun gnus-demon-run-callback (func &optional idle time special)
   "Run FUNC if Emacs has been idle for longer than IDLE seconds.
 If not, and a TIME is given, restart a new idle timer, so FUNC
-can be called at the next opportunity. Such a special idle run is
-marked with SPECIAL."
+can be called at the next opportunity.  Such a special idle run
+is marked with SPECIAL."
   (unless gnus-inhibit-demon
     (cl-block run-callback
       (when (eq idle t)
diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el
index acb8fd77641..818beca77b0 100644
--- a/lisp/gnus/gnus-dired.el
+++ b/lisp/gnus/gnus-dired.el
@@ -209,11 +209,11 @@ If ARG is non-nil, open it in a new buffer."
 (defun gnus-dired-print (&optional file-name print-to)
   "In dired, print FILE-NAME according to the mailcap file.
 
-If there is no print command, print in a PostScript image. If the
-optional argument PRINT-TO is nil, send the image to the printer. If
-PRINT-TO is a string, save the PostScript image in a file with that
-name.  If PRINT-TO is a number, prompt the user for the name of the
-file to save in."
+If there is no print command, print in a PostScript image.  If the
+optional argument PRINT-TO is nil, send the image to the printer.
+If PRINT-TO is a string, save the PostScript image in a file with
+that name.  If PRINT-TO is a number, prompt the user for the name
+of the file to save in."
   (interactive (list
 		(file-name-sans-versions (dired-get-filename) t)
 		(ps-print-preprint current-prefix-arg)))
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el
index 7d11b5699bb..e4779f52c07 100644
--- a/lisp/gnus/gnus-icalendar.el
+++ b/lisp/gnus/gnus-icalendar.el
@@ -250,10 +250,11 @@
   "Parse RFC5545 iCalendar in buffer BUF and return an event object.
 
 Return a gnus-icalendar-event object representing the first event
-contained in the invitation. Return nil for calendars without an event entry.
+contained in the invitation.  Return nil for calendars without an
+event entry.
 
 ATTENDEE-NAME-OR-EMAIL is a list of strings that will be matched
-against the event's attendee names and emails. Invitation rsvp
+against the event's attendee names and emails.  Invitation rsvp
 status will be retrieved from the first matching attendee record."
   (let ((ical (with-current-buffer (icalendar--get-unfolded-buffer (get-buffer buf))
                 (goto-char (point-min))
diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el
index b775def9a0d..52bcf79d404 100644
--- a/lisp/gnus/gnus-range.el
+++ b/lisp/gnus/gnus-range.el
@@ -28,7 +28,7 @@
 
 (defsubst gnus-range-normalize (range)
   "Normalize RANGE.
-If RANGE is a single range, return (RANGE). Otherwise, return RANGE."
+If RANGE is a single range, return (RANGE).  Otherwise, return RANGE."
   (if (listp (cdr-safe range)) range (list range)))
 
 (defun gnus-last-element (list)
diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 47d722c9144..3f3efdcec98 100644
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -344,8 +344,8 @@ Return a list of updated types."
 
 (defun gnus-pad-form (el pad-width)
   "Return a form that pads EL to PAD-WIDTH accounting for multi-column
-characters correctly. This is because `format' may pad to columns or to
-characters when given a pad value."
+characters correctly.  This is because `format' may pad to columns
+or to characters when given a pad value."
   (let ((pad (abs pad-width))
 	(side (< 0 pad-width)))
     (if (symbolp el)
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 71c7807518f..684af235101 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -190,14 +190,14 @@ If nil, a faster, but more primitive, buffer is used instead."
   '((((class color) (background light)) (:foreground "PaleTurquoise" :bold t))
     (((class color) (background dark)) (:foreground "PaleTurquoise" :bold t))
     (t (:bold t)))
-  "Face used for displaying AGENTIZED servers"
+  "Face used for displaying AGENTIZED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-cloud
   '((((class color) (background light)) (:foreground "ForestGreen" :bold t))
     (((class color) (background dark)) (:foreground "PaleGreen" :bold t))
     (t (:bold t)))
-  "Face used for displaying Cloud-synced servers"
+  "Face used for displaying Cloud-synced servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-cloud-host
@@ -211,7 +211,7 @@ If nil, a faster, but more primitive, buffer is used instead."
   '((((class color) (background light)) (:foreground "Green3" :bold t))
     (((class color) (background dark)) (:foreground "Green1" :bold t))
     (t (:bold t)))
-  "Face used for displaying OPENED servers"
+  "Face used for displaying OPENED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-closed
@@ -219,21 +219,21 @@ If nil, a faster, but more primitive, buffer is used instead."
     (((class color) (background dark))
      (:foreground "LightBlue" :italic t))
     (t (:italic t)))
-  "Face used for displaying CLOSED servers"
+  "Face used for displaying CLOSED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-denied
   '((((class color) (background light)) (:foreground "Red" :bold t))
     (((class color) (background dark)) (:foreground "Pink" :bold t))
     (t (:inverse-video t :bold t)))
-  "Face used for displaying DENIED servers"
+  "Face used for displaying DENIED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-offline
   '((((class color) (background light)) (:foreground "Orange" :bold t))
     (((class color) (background dark)) (:foreground "Yellow" :bold t))
     (t (:inverse-video t :bold t)))
-  "Face used for displaying OFFLINE servers"
+  "Face used for displaying OFFLINE servers."
   :group 'gnus-server-visual)
 
 (defvar gnus-server-font-lock-keywords
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index b8f96158e6c..d1751065505 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -145,8 +145,8 @@ If t, fetch all the available old headers."
 		 (sexp :menu-tag "other" t)))
 
 (defcustom gnus-refer-thread-use-nnir nil
-  "Use nnir to search an entire server when referring threads. A
-nil value will only search for thread-related articles in the
+  "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"
   :group 'gnus-thread
@@ -154,7 +154,7 @@ current group."
 
 (defcustom gnus-refer-thread-limit-to-thread nil
   "If non-nil referring a thread will limit the summary buffer to
-articles in the thread. A nil value will add the thread articles
+articles in the thread.  A nil value will add the thread articles
 to the summary buffer."
   :version "25.1"
   :group 'gnus-thread
@@ -8655,7 +8655,7 @@ SCORE."
 (defun gnus-summary-limit-include-thread (id &optional thread-only)
   "Display all hidden articles belonging to thread ID.
 When called interactively, ID is the Message-ID of the current
-article. If thread-only is non-nil limit the summary buffer to
+article.  If thread-only is non-nil limit the summary buffer to
 these articles."
   (interactive (list (mail-header-id (gnus-summary-article-header))))
   (let ((articles (gnus-articles-in-thread
@@ -9080,14 +9080,14 @@ Return the number of articles fetched."
     result))
 
 (defun gnus-summary-refer-thread (&optional limit)
-  "Fetch all articles in the current thread. For backends that
-know how to search for threads (currently only 'nnimap) a
-non-numeric prefix arg will use nnir to search the entire
+  "Fetch all articles in the current thread.  For backends
+that know how to search for threads (currently only 'nnimap)
+a non-numeric prefix arg will use nnir to search the entire
 server; without a prefix arg only the current group is
-searched. If the variable `gnus-refer-thread-use-nnir' is
-non-nil the prefix arg has the reverse meaning. If no
+searched.  If the variable `gnus-refer-thread-use-nnir' is
+non-nil the prefix arg has the reverse meaning.  If no
 backend-specific 'request-thread function is available fetch
-LIMIT (the numerical prefix) old headers. If LIMIT is
+LIMIT (the numerical prefix) old headers.  If LIMIT is
 non-numeric or nil fetch the number specified by the
 `gnus-refer-thread-limit' variable."
   (interactive "P")
@@ -9647,8 +9647,8 @@ The search stars on the current article and goes forwards unless
 BACKWARD is non-nil.  If BACKWARD is `all', do all articles.
 If UNREAD is non-nil, only unread articles will
 be taken into consideration.  If NOT-CASE-FOLD, case won't be folded
-in the comparisons. If NOT-MATCHING, return a list of all articles that
-not match REGEXP on HEADER."
+in the comparisons.  If NOT-MATCHING, return a list of all articles
+that not match REGEXP on HEADER."
   (let ((case-fold-search (not not-case-fold))
 	articles func)
     (if (consp header)
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index f73af8e261c..6847d372cc5 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1610,7 +1610,7 @@ empty directories from OLD-PATH."
 
 (defun gnus-rescale-image (image size)
   "Rescale IMAGE to SIZE if possible.
-SIZE is in format (WIDTH . HEIGHT). Return a new image.
+SIZE is in format (WIDTH . HEIGHT).  Return a new image.
 Sizes are in pixels."
   (if (not (fboundp 'imagemagick-types))
       image
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index f990569a300..0673ac15f60 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2733,15 +2733,15 @@ with some simple extensions.
 %O          Download mark (character).
 %*          If present, indicates desired cursor position
             (instead of after first colon).
-%u          User defined specifier. The next character in the
-            format string should be a letter. Gnus will call the
+%u          User defined specifier.  The next character in the
+            format string should be a letter.  Gnus will call the
             function gnus-user-format-function-X, where X is the
-            letter following %u. The function will be passed the
-            current header as argument. The function should
+            letter following %u.  The function will be passed the
+            current header as argument.  The function should
             return a string, which will be inserted into the
             summary just like information from any other summary
             specifier.
-&user-date; Age sensitive date format. Various date format is
+&user-date; Age sensitive date format.  Various date format is
             defined in `gnus-user-date-format-alist'.
 
 
@@ -4055,10 +4055,10 @@ Allow completion over sensible values."
 ;;;###autoload
 (defun gnus-no-server (&optional arg slave)
   "Read network news.
-If ARG is a positive number, Gnus will use that as the startup
-level. If ARG is nil, Gnus will be started at level 2.  If ARG is
-non-nil and not a positive number, Gnus will prompt the user for the
-name of an NNTP server to use.
+If ARG is a positive number, Gnus will use that as the startup level.
+If ARG is nil, Gnus will be started at level 2.  If ARG is non-nil
+and not a positive number, Gnus will prompt the user for the name of
+an NNTP server to use.
 As opposed to `gnus', this command will not connect to the local
 server."
   (interactive "P")
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 69ecde30275..fab0f5296d0 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -286,7 +286,7 @@ number."
   :type 'boolean)
 
 (defcustom mail-source-incoming-file-prefix "Incoming"
-  "Prefix for file name for storing incoming mail"
+  "Prefix for file name for storing incoming mail."
   :group 'mail-source
   :type 'string)
 
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 9e0f2b461e3..ef6455ac5c9 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1131,8 +1131,8 @@ If `traditional', reply inline.
 If `above', reply above quoted text.
 If `below', reply below quoted text.
 
-Note: Many newsgroups frown upon nontraditional reply styles. You
-probably want to set this variable only for specific groups,
+Note: Many newsgroups frown upon nontraditional reply styles.
+You probably want to set this variable only for specific groups,
 e.g. using `gnus-posting-styles':
 
   (eval (set (make-local-variable \\='message-cite-reply-position) \\='above))"
@@ -1169,7 +1169,7 @@ use in `gnus-posting-styles', such as:
     (message-yank-cited-prefix  "")
     (message-yank-empty-prefix  "")
     (message-citation-line-format  "\n\n-----------------------\nOn %a, %b %d %Y, %N wrote:\n"))
-  "Message citation style used by MS Outlook. Use with message-cite-style.")
+  "Message citation style used by MS Outlook.  Use with `message-cite-style'.")
 
 (defconst message-cite-style-thunderbird
   '((message-cite-function  'message-cite-original)
@@ -1179,7 +1179,7 @@ use in `gnus-posting-styles', such as:
     (message-yank-cited-prefix  ">")
     (message-yank-empty-prefix  ">")
     (message-citation-line-format "On %D %R %p, %N wrote:"))
-  "Message citation style used by Mozilla Thunderbird. Use with message-cite-style.")
+  "Message citation style used by Mozilla Thunderbird.  Use with `message-cite-style'.")
 
 (defconst message-cite-style-gmail
   '((message-cite-function  'message-cite-original)
@@ -1189,7 +1189,7 @@ use in `gnus-posting-styles', such as:
     (message-yank-cited-prefix  "    ")
     (message-yank-empty-prefix  "    ")
     (message-citation-line-format "On %e %B %Y %R, %f wrote:\n"))
-  "Message citation style used by Gmail. Use with message-cite-style.")
+  "Message citation style used by Gmail.  Use with `message-cite-style'.")
 
 (defcustom message-distribution-function nil
   "Function called to return a Distribution header."
@@ -4511,8 +4511,8 @@ smaller pieces, the size of each is about "
 one.
 
 However, some mail readers (MUA's) can't read split messages, i.e.,
-mails in message/partially format. Answer `n', and the message will be
-sent in one piece.
+mails in message/partially format.  Answer `n', and the message
+will be sent in one piece.
 
 The size limit is controlled by `message-send-mail-partially-limit'.
 If you always want Gnus to send messages in one piece, set
diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el
index c3054432d51..d838cdc875f 100644
--- a/lisp/gnus/mm-extern.el
+++ b/lisp/gnus/mm-extern.el
@@ -144,7 +144,7 @@
   "Show the external-body part of HANDLE.
 This function replaces the buffer of HANDLE with a buffer contains
 the entire message.
-If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
+If NO-DISPLAY is nil, display it.  Otherwise, do nothing after replacing."
   (unless (mm-handle-cache handle)
     (mm-extern-cache-contents handle))
   (unless no-display
diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el
index c68ab4a7c13..d2f279e4197 100644
--- a/lisp/gnus/mm-partial.el
+++ b/lisp/gnus/mm-partial.el
@@ -54,7 +54,7 @@
   "Show the partial part of HANDLE.
 This function replaces the buffer of HANDLE with a buffer contains
 the entire message.
-If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
+If NO-DISPLAY is nil, display it.  Otherwise, do nothing after replacing."
   (let ((id (cdr (assq 'id (cdr (mm-handle-type handle)))))
 	phandles
 	(b (point)) (n 1) total
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index e0ec829617f..716e4b778ec 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -364,7 +364,7 @@ either an error is raised or not."
 
 (defun mml-secure-message-sign (&optional method)
   "Add MML tags to sign the entire message.
-Use METHOD if given. Else use `mml-secure-method' or
+Use METHOD if given.  Else use `mml-secure-method' or
 `mml-default-sign-method'."
   (interactive)
   (mml-secure-message
@@ -373,7 +373,7 @@ Use METHOD if given. Else use `mml-secure-method' or
 
 (defun mml-secure-message-sign-encrypt (&optional method)
   "Add MML tag to sign and encrypt the entire message.
-Use METHOD if given. Else use `mml-secure-method' or
+Use METHOD if given.  Else use `mml-secure-method' or
 `mml-default-sign-method'."
   (interactive)
   (mml-secure-message
@@ -382,7 +382,7 @@ Use METHOD if given. Else use `mml-secure-method' or
 
 (defun mml-secure-message-encrypt (&optional method)
   "Add MML tag to encrypt the entire message.
-Use METHOD if given. Else use `mml-secure-method' or
+Use METHOD if given.  Else use `mml-secure-method' or
 `mml-default-sign-method'."
   (interactive)
   (mml-secure-message
diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index d7876a3aef0..45164ee8f65 100644
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -760,7 +760,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
 (autoload 'epa-select-keys "epa")
 
 (defun mml2015-epg-key-image (key-id)
-  "Return the image of a key, if any"
+  "Return the image of a key, if any."
   (with-temp-buffer
     (set-buffer-multibyte nil)
     (let* ((coding-system-for-write 'binary)
@@ -777,7 +777,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
 (autoload 'gnus-rescale-image "gnus-util")
 
 (defun mml2015-epg-key-image-to-string (key-id)
-  "Return a string with the image of a key, if any"
+  "Return a string with the image of a key, if any."
   (let ((key-image (mml2015-epg-key-image key-id)))
     (if (not key-image)
 	""
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index 8cda5aa7031..f79d8f17072 100644
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -121,7 +121,7 @@ Diary articles will appear again, as if they'd been just received.
 
 Entries look like (3 . day) which means something like \"Please
 Hortense, would you be so kind as to remind me of my appointments 3 days
-before the date, thank you very much. Anda, hmmm... by the way, are you
+before the date, thank you very much.  Anda, hmmm... by the way, are you
 doing anything special tonight ?\".
 
 The units of measure are 'minute 'hour 'day 'week 'month and 'year (no,
@@ -218,7 +218,7 @@ The hook functions will be called with the article in the current buffer."
 (defvoo nndiary-get-new-mail nil
   "Whether nndiary gets new mail and split it.
 Contrary to traditional mail back ends, this variable can be set to t
-even if your primary mail back end also retrieves mail. In such a case,
+even if your primary mail back end also retrieves mail.  In such a case,
 NDiary uses its own mail-sources and split-methods.")
 
 (defvoo nndiary-nov-is-evil nil
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index c87cfc8c7cb..28c4cebb2d1 100644
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -661,7 +661,7 @@ the line could be found."
 (defvar nnheader-directory-files-is-safe (not (eq system-type 'windows-nt))
   "If non-nil, Gnus believes `directory-files' is safe.
 It has been reported numerous times that `directory-files' fails with
-an alarming frequency on NFS mounted file systems. If it is nil,
+an alarming frequency on NFS mounted file systems.  If it is nil,
 `nnheader-directory-files-safe' is used.")
 
 (defun nnheader-directory-files-safe (&rest args)
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index d66bdf47066..b695cfa4f6d 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -189,7 +189,7 @@
   "Internal: stores search result.")
 
 (defvar nnir-search-history ()
-  "Internal: the history for querying search options in nnir")
+  "Internal: the history for querying search options in nnir.")
 
 (defconst nnir-tmp-buffer " *nnir*"
   "Internal: temporary buffer.")
@@ -208,8 +208,8 @@
 
 (defvar nnir-imap-search-other "HEADER %S"
   "The IMAP search item to use for anything other than
-  `nnir-imap-search-arguments'. By default this is the name of an
-  email header field")
+`nnir-imap-search-arguments'.  By default this is the name of an
+email header field.")
 
 (defvar nnir-imap-search-argument-history ()
   "The history for querying search options in nnir")
@@ -219,48 +219,48 @@
 ;; Data type article list.
 
 (defmacro nnir-artlist-length (artlist)
-  "Returns number of articles in artlist."
+  "Return number of articles in artlist."
   `(length ,artlist))
 
 (defmacro nnir-artlist-article (artlist n)
-  "Returns from ARTLIST the Nth artitem (counting starting at 1)."
+  "Return from ARTLIST the Nth artitem (counting starting at 1)."
   `(when (> ,n 0)
      (elt ,artlist (1- ,n))))
 
 (defmacro nnir-artitem-group (artitem)
-  "Returns the group from the ARTITEM."
+  "Return the group from the ARTITEM."
   `(elt ,artitem 0))
 
 (defmacro nnir-artitem-number (artitem)
-  "Returns the number from the ARTITEM."
+  "Return the number from the ARTITEM."
   `(elt ,artitem 1))
 
 (defmacro nnir-artitem-rsv (artitem)
-  "Returns the Retrieval Status Value (RSV, score) from the ARTITEM."
+  "Return the Retrieval Status Value (RSV, score) from the ARTITEM."
   `(elt ,artitem 2))
 
 (defmacro nnir-article-group (article)
-  "Returns the group for ARTICLE"
+  "Return the group for ARTICLE."
   `(nnir-artitem-group (nnir-artlist-article nnir-artlist ,article)))
 
 (defmacro nnir-article-number (article)
-  "Returns the number for ARTICLE"
+  "Return the number for ARTICLE."
   `(nnir-artitem-number (nnir-artlist-article nnir-artlist ,article)))
 
 (defmacro nnir-article-rsv (article)
-  "Returns the rsv for ARTICLE"
+  "Return the rsv for ARTICLE."
   `(nnir-artitem-rsv (nnir-artlist-article nnir-artlist ,article)))
 
 (defsubst nnir-article-ids (article)
-  "Returns the pair `(nnir id . real id)' of ARTICLE"
+  "Return the pair `(nnir id . real id)' of ARTICLE."
   (cons article (nnir-article-number article)))
 
 (defmacro nnir-categorize (sequence keyfunc &optional valuefunc)
-  "Sorts a sequence into categories and returns a list of the form
+  "Sort a sequence into categories and returns a list of the form
 `((key1 (element11 element12)) (key2 (element21 element22))'.
 The category key for a member of the sequence is obtained
 as `(keyfunc member)' and the corresponding element is just
-`member'. If `valuefunc' is non-nil, the element of the list
+`member'.  If `valuefunc' is non-nil, the element of the list
 is `(valuefunc member)'."
   `(unless (null ,sequence)
      (let (value)
@@ -317,7 +317,7 @@ If nil this will use `gnus-summary-line-format'."
 (defcustom nnir-retrieve-headers-override-function nil
   "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
+headers.  Must return either 'nov or 'headers indicating the
 retrieved header format.
 
 If this variable is nil, or if the provided function returns nil for a search
@@ -327,8 +327,8 @@ 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 keys in `nnir-imap-search-arguments'. To use raw imap queries
+  "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"
   :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
@@ -428,7 +428,7 @@ This could be a server parameter."
 
 (defcustom nnir-hyrex-additional-switches '()
   "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:
+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:
     (setq nnir-hyrex-additional-switches \\='(\"-ddl\" \"ddl.xml\" \"-c\" \"nnir\"))"
@@ -600,8 +600,8 @@ the groups to search as follows: if called from the *Server*
 buffer search all groups belonging to the server on the current
 line; if called from the *Group* buffer search any marked groups,
 or the group on the current line, or all the groups under the
-current topic. Calling with a prefix-arg prompts for additional
-search-engine specific constraints. A non-nil `specs' arg must be
+current topic.  Calling with a prefix-arg prompts for additional
+search-engine specific constraints.  A non-nil `specs' arg must be
 an alist with `nnir-query-spec' and `nnir-group-spec' keys, and
 skips all prompting."
   (interactive "P")
@@ -1456,8 +1456,9 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
 
 ;; Namazu interface
 (defun nnir-run-namazu (query server &optional _group)
-  "Run given query against Namazu.  Returns a vector of (group name, file name)
-pairs (also vectors, actually).
+  "Run given query against Namazu.
+Returns a vector of (group name, file name) pairs (also vectors,
+actually).
 
 Tested with Namazu 2.0.6 on a GNU/Linux system."
   ;; (when group
@@ -1702,12 +1703,12 @@ construct path: search terms (see the variable
     (and group (string-match "^nnir" group))))
 
 (defun nnir-read-parms (nnir-search-engine)
-  "Reads additional search parameters according to `nnir-engines'."
+  "Read additional search parameters according to `nnir-engines'."
   (let ((parmspec (nth 2 (assoc nnir-search-engine nnir-engines))))
     (mapcar #'nnir-read-parm parmspec)))
 
 (defun nnir-read-parm (parmspec)
-  "Reads a single search parameter.
+  "Read a single search parameter.
 `parmspec' is a cons cell, the car is a symbol, the cdr is a prompt."
   (let ((sym (car parmspec))
         (prompt (cdr parmspec)))
@@ -1737,8 +1738,8 @@ construct path: search terms (see the variable
 		  nnir-method-default-engines))))
 
 (defun nnir-read-server-parm (key server &optional not-global)
-  "Returns the parameter value corresponding to `key' for
-`server'. If no server-specific value is found consult the global
+  "Return the parameter value corresponding to `key' for `server'.
+If no server-specific value is found consult the global
 environment unless `not-global' is non-nil."
   (let ((method (gnus-server-to-method server)))
     (cond ((and method (assq key (cddr method)))
@@ -1763,7 +1764,7 @@ environment unless `not-global' is non-nil."
 
 (defun nnir-search-thread (header)
   "Make an nnir group based on the thread containing the article
-header. The current server will be searched. If the registry is
+header.  The current server will be searched. If the registry is
 installed, the server that the registry reports the current
 article came from is also searched."
   (let* ((query
diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index 53275e19640..6c5502ac3d9 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -381,7 +381,7 @@ wrong count of total articles shown by Gnus.")
 its maildir mail folders (e.g. the Dovecot IMAP server or mutt).")
 
 (defvoo nnmairix-default-group nil
-  "Default search group. This is the group which is used for all
+  "Default search group.  This is the group which is used for all
 temporary searches, e.g. nnmairix-search.")
 
 ;;; === Internal variables
@@ -1096,7 +1096,7 @@ show wrong article counts."
 (defun nnmairix-propagate-marks (&optional server)
   "Propagate marks from nnmairix group to original articles.
 Unless SERVER is explicitly specified, will use the last opened
-nnmairix server. Only marks from current session will be set."
+nnmairix server.  Only marks from current session will be set."
   (interactive)
   (if server
       (nnmairix-open-server server)
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el
index 9a38a6c6976..b7ec033603f 100644
--- a/lisp/gnus/smime.el
+++ b/lisp/gnus/smime.el
@@ -130,7 +130,7 @@
 
 (defcustom smime-keys nil
   "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
+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")
 		       (file :tag "File name")
@@ -197,7 +197,7 @@ against a certificate revocation list (CRL).
 
 For this to work the CRL must be up-to-date and since they are
 normally updated quite often (i.e., several times a day) you
-probably need some tool to keep them up-to-date. Unfortunately
+probably need some tool to keep them up-to-date.  Unfortunately
 Gnus cannot do this for you.
 
 The CRL should either be appended (in PEM format) to your
@@ -435,7 +435,7 @@ in the buffer specified by `smime-details-buffer'."
 
 (defun smime-verify-buffer (&optional buffer)
   "Verify integrity of S/MIME message in BUFFER.
-Uses current buffer if BUFFER is nil. Returns non-nil on success.
+Uses current buffer if BUFFER is nil.  Returns non-nil on success.
 Any details (stdout and stderr) are left in the buffer specified by
 `smime-details-buffer'."
   (interactive)
@@ -445,7 +445,7 @@ Any details (stdout and stderr) are left in the buffer specified by
 (defun smime-noverify-buffer (&optional buffer)
   "Verify integrity of S/MIME message in BUFFER.
 Does NOT verify validity of certificate (only message integrity).
-Uses current buffer if BUFFER is nil. Returns non-nil on success.
+Uses current buffer if BUFFER is nil.  Returns non-nil on success.
 Any details (stdout and stderr) are left in the buffer specified by
 `smime-details-buffer'."
   (interactive)
diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el
index f611a213fdd..b93d405ec1f 100644
--- a/lisp/gnus/spam-report.el
+++ b/lisp/gnus/spam-report.el
@@ -318,9 +318,9 @@ symbol `ask', query before flushing the queue file."
 
 ;;;###autoload
 (defun spam-report-url-ping-mm-url (host report)
-  "Ping a host through HTTP, addressing a specific GET resource. Use
-the external program specified in `mm-url-program' to connect to
-server."
+  "Ping a host through HTTP, addressing a specific GET resource.
+Use the external program specified in `mm-url-program' to connect
+to server."
   (with-temp-buffer
     (let ((url (format "http://%s%s" host report)))
       (mm-url-insert url t))))
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index f990e0cba16..c701e314fc0 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -578,12 +578,12 @@ This must be a list.  For example, `(\"-C\" \"configfile\")'."
 
 (defcustom spam-spamassassin-positive-spam-flag-header "YES"
   "The regex on `spam-spamassassin-spam-flag-header' for positive spam
-identification"
+identification."
   :type 'string
   :group 'spam-spamassassin)
 
 (defcustom spam-spamassassin-spam-status-header "X-Spam-Status"
-  "The header inserted by SpamAssassin, giving extended scoring information"
+  "The header inserted by SpamAssassin, giving extended scoring information."
   :type 'string
   :group 'spam-spamassassin)
 
@@ -594,7 +594,7 @@ identification"
   :group 'spam-spamassassin)
 
 (defcustom spam-sa-learn-rebuild t
-  "Whether sa-learn should rebuild the database every time it is called
+  "Whether sa-learn should rebuild the database every time it is called.
 Enable this if you want sa-learn to rebuild the database automatically.  Doing
 this will slightly increase the running time of the spam registration process.
 If you choose not to do this, you will have to run \"sa-learn --rebuild\" in
@@ -767,7 +767,7 @@ When either list is nil, the other is returned."
     nil))
 
 (defun spam-classifications ()
-  "Return list of valid classifications"
+  "Return list of valid classifications."
   '(spam ham))
 
 (defun spam-classification-valid-p (classification)
@@ -2185,7 +2185,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 (require 'spam-stat)
 
 (defun spam-check-stat ()
-  "Check the spam-stat backend for the classification of this message"
+  "Check the spam-stat backend for the classification of this message."
   (let ((spam-stat-split-fancy-spam-group spam-split-group) ; override
 	(spam-stat-buffer (buffer-name)) ; stat the current buffer
 	category return)
@@ -2609,7 +2609,7 @@ With a non-nil REMOVE, remove the ADDRESSES."
 
 ;; return something sensible if the score can't be determined
 (defun spam-spamassassin-score (&optional recheck)
-  "Get the SpamAssassin score"
+  "Get the SpamAssassin score."
   (interactive "P")
   (save-window-excursion
     (gnus-summary-show-article t)