Spelling fixes

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ff6817..a18ec54 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-11  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * gnus-cloud.el (gnus-cloud-parse-version-1): Fix misspelling
+       of ":delete".
+

 2014-08-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-browse-html-save-cid-content)
 2014-08-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-browse-html-save-cid-content)

diff --git a/lisp/gnus-cloud.el b/lisp/gnus-cloud.el
index c47976b..ec85a16 100644 (file)
--- a/lisp/gnus-cloud.el
+++ b/lisp/gnus-cloud.el
@@ -125,7 +125,7 @@
        (let ((spec (ignore-errors (read (current-buffer))))
              length)
          (when (and (consp spec)
        (let ((spec (ignore-errors (read (current-buffer))))
              length)
          (when (and (consp spec)

-                    (memq (plist-get spec :type) '(:file :data :deleta)))
+                    (memq (plist-get spec :type) '(:file :data :delete)))

            (setq length (plist-get spec :length))
            (push (append spec
                          (list
            (setq length (plist-get spec :length))
            (push (append spec
                          (list

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index e0d1578..f917737 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -239,7 +239,7 @@ Files matching `gnus-face-omit-files' are not considered."
 
 ;;;###autoload
 (defun gnus-insert-random-face-header ()
 
 ;;;###autoload
 (defun gnus-insert-random-face-header ()

-  "Insert a randome Face header from `gnus-face-directory'."
+  "Insert a random Face header from `gnus-face-directory'."

   (gnus--insert-random-face-with-type 'gnus-random-face 'Face))
 
 (defface gnus-x-face '((t (:foreground "black" :background "white")))
   (gnus--insert-random-face-with-type 'gnus-random-face 'Face))
 
 (defface gnus-x-face '((t (:foreground "black" :background "white")))