Fix typos.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc6879d..e1fea2a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-11-16  Juanma Barranquero  <lekktu@gmail.com>
+
+       * gnus-agent.el (gnus-agent-expire-unagentized-dirs):
+       * registry.el (registry-lookup, registry-lookup-breaks-before-lexbind):
+       Fix typos.
+
 2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
 
        * gnus-art.el (gnus-article-part-wrapper):

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 669f967..32e40f6 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3613,7 +3613,7 @@ articles in every agentized group? "))
                                 (setq r d
                                       d (directory-file-name d)))
                               ;; if ANY ancestor was NOT in keep hash and
-                              ;; it it's already in to-remove, add it to
+                              ;; it's already in to-remove, add it to
                               ;; to-remove.
                               (if (and r
                                        (not (member r to-remove)))

diff --git a/lisp/registry.el b/lisp/registry.el
index 8e158f7..5fd309a 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -149,7 +149,7 @@
 
   (defmethod registry-lookup ((db registry-db) keys)
     "Search for KEYS in the registry-db THIS.
-Returns a alist of the key followed by the entry in a list, not a cons cell."
+Returns an alist of the key followed by the entry in a list, not a cons cell."
     (let ((data (oref db :data)))
       (delq nil
            (mapcar
@@ -160,7 +160,7 @@ Returns a alist of the key followed by the entry in a list, not a cons cell."
 
   (defmethod registry-lookup-breaks-before-lexbind ((db registry-db) keys)
     "Search for KEYS in the registry-db THIS.
-Returns a alist of the key followed by the entry in a list, not a cons cell."
+Returns an alist of the key followed by the entry in a list, not a cons cell."
     (let ((data (oref db :data)))
       (delq nil
            (loop for key in keys