4 files changed, 4 insertions, 4 deletions

diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index dbce0795954..03af053c91e 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -273,7 +273,7 @@ Return (REGEXP . PRECEDENCE)."
   ;;   (or (+ digit) "CHARLIE" "CHAN" (+ blank))
   ;;   -> (or (+ digit) (or "CHARLIE" "CHAN") (+ blank))
   ;;
-  ;; - Optimise single-character alternatives better:
+  ;; - Optimize single-character alternatives better:
   ;;     * classes: space, alpha, ...
   ;;     * (syntax S), for some S (whitespace, word)
   ;;   so that (or "@" "%" digit (any "A-Z" space) (syntax word))
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index f836ea60355..6df26b4af8c 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2821,7 +2821,7 @@ See Info node `(gnus)Formatting Variables'."
                (:constructor gnus-info-make
                 (group rank read &optional marks method params))
                (:constructor nil)
-               ;; FIMXE: gnus-newsrc-alist contains a list of those,
+               ;; FIXME: gnus-newsrc-alist contains a list of those,
                ;; so changing them to a real struct will take more work!
                (:type list))
   group rank read marks method params)
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 3ae2e404ae7..cc55451902a 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -391,7 +391,7 @@ SUBJECT is a regular expression."
 (defun rmail-summary-by-senders (senders)
   "Display a summary of all messages whose \"From\" field matches SENDERS.
 SENDERS is a regular expression.  The default for SENDERS matches the
-sender of the current messsage."
+sender of the current message."
   (interactive
    (let* ((def (rmail-get-header "From"))
           ;; We quote the default argument, because if it contains regexp
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index fc529a83596..a9fbd2f04cb 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2024,7 +2024,7 @@ quit          spell session exited."
   (setq ispell-filter (cdr ispell-filter))
   (when (and ispell-filter (listp ispell-filter))
     (if (> (length ispell-filter) 1)
-        (error "Ispell and its processs have different character maps: %s" ispell-filter)
+        (error "Ispell and its process have different character maps: %s" ispell-filter)
       (ispell-parse-output (car ispell-filter)))))
 
 (defun ispell-error-checking-word (word)