Fix spelling of "precede".

1 files changed, 7 insertions, 7 deletions

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 9291d8d30c4..b03274d8cdf 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -444,7 +444,7 @@ manipulated as follows:
                      (setf (gnus-agent-cat-groups old-category)
                            (delete group (gnus-agent-cat-groups
                                           old-category))))))
-               ;; Purge cache as preceeding loop invalidated it.
+               ;; Purge cache as preceding loop invalidated it.
                (setq gnus-category-group-cache nil))
 
              (setcdr (or (assq 'agent-groups category)
@@ -1202,7 +1202,7 @@ downloadable."
 	    (mapc #'gnus-summary-remove-process-mark
 		  (gnus-sorted-ndifference gnus-newsgroup-processable gnus-newsgroup-undownloaded))
 
-            ;; The preceeding call to (gnus-agent-summary-fetch-group)
+            ;; The preceding call to (gnus-agent-summary-fetch-group)
             ;; updated the temporary gnus-newsgroup-downloadable to
             ;; remove each article successfully fetched.  Now, I
             ;; update the real gnus-newsgroup-downloadable to only
@@ -1527,14 +1527,14 @@ downloaded into the agent."
            header-number)
       ;; Check each article
       (while (setq article (pop articles))
-        ;; Skip alist entries preceeding this article
+        ;; Skip alist entries preceding this article
         (while (> article (or (caar alist) (1+ article)))
           (setq alist (cdr alist)))
 
         ;; Prune off articles that we have already fetched.
         (unless (and (eq article (caar alist))
                      (cdar alist))
-          ;; Skip headers preceeding this article
+          ;; Skip headers preceding this article
           (while (> article
                     (setq header-number
                           (let* ((header (car headers)))
@@ -3441,7 +3441,7 @@ missing NOV entry.  Run gnus-agent-regenerate-group to restore it.")))
 
 		   ;; If considering all articles is set, I can only
 		   ;; expire article IDs that are no longer in the
-		   ;; active range (That is, articles that preceed the
+		   ;; active range (That is, articles that precede the
 		   ;; first article in the new alist).
 		   (if (and gnus-agent-consider-all-articles
 			    (>= article-number (car active)))
@@ -3718,7 +3718,7 @@ has been fetched."
 		   (gnus-agent-append-to-list tail-uncached v1))
                  (setq arts (cdr arts))
                  (setq ref (cdr ref)))
-                (t ; reference article (v2) preceeds the list being filtered
+                (t ; reference article (v2) precedes the list being filtered
                  (setq ref (cdr ref))))))
       (while arts
 	(gnus-agent-append-to-list tail-uncached (pop arts)))
@@ -4022,7 +4022,7 @@ If REREAD is not nil, downloaded articles are marked as unread."
 	;; article (with the exception of the last ID in the list - it's
 	;; special) that no longer appears in the overview.  In this
 	;; situtation, the last article ID in the list implies that it,
-	;; and every article ID preceeding it, have been fetched from the
+	;; and every article ID preceding it, have been fetched from the
 	;; server.
 
 	(if gnus-agent-consider-all-articles