X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-cloud.el;h=f965f989b71fe84ed3313484a49701bb0dd9f611;hp=8acea0990db7e09bb5a67d027cd08393c2fda541;hb=829fe7e073a13eaf991e04e90b1e731b1ccce0c2;hpb=8063a0fb06c07d65f346e818b96923a2e558a331

diff --git a/lisp/gnus-cloud.el b/lisp/gnus-cloud.el
index 8acea0990..f965f989b 100644
--- a/lisp/gnus-cloud.el
+++ b/lisp/gnus-cloud.el
@@ -1,6 +1,6 @@
 ;;; gnus-cloud.el --- storing and retrieving data via IMAP
 
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail
@@ -30,6 +30,7 @@
 
 (defgroup gnus-cloud nil
   "Syncing Gnus data via IMAP."
+  :version "25.1"
   :group 'gnus)
 
 (defcustom gnus-cloud-synced-files
@@ -39,6 +40,7 @@
     (:directory "~/News" :match ".*.SCORE\\'"))
   "List of file regexps that should be kept up-to-date via the cloud."
   :group 'gnus-cloud
+  ;; FIXME this type does not match the default.  Nor does the documentation.
   :type '(repeat regexp))
 
 (defvar gnus-cloud-group-name "*Emacs Cloud*")
@@ -125,7 +127,7 @@
 	(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