From: Glenn Morris <rgm@gnu.org>
Date: Thu, 22 Mar 2018 00:47:28 +0000 (-0400)
Subject: * lisp/gnus/gnus-cloud.el (gnus-cloud-synced-files): Fix doc & type.
X-Git-Tag: emacs-26.1-rc1~62
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47917d8f4dbb711435fe46765fd0290e1f4a16b3;p=emacs.git

* lisp/gnus/gnus-cloud.el (gnus-cloud-synced-files): Fix doc & type.
---

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index 284fdca494e..d5970f31265 100644
--- a/lisp/gnus/gnus-cloud.el
+++ b/lisp/gnus/gnus-cloud.el
@@ -48,10 +48,14 @@
     "~/.authinfo.gpg"
     "~/.gnus.el"
     (:directory "~/News" :match ".*.SCORE\\'"))
-  "List of file regexps that should be kept up-to-date via the cloud."
+  "List of files that should be kept up-to-date via the cloud.
+Each element may be either a string or a property list.
+The latter should have a :directory element whose value is a string,
+and a :match element whose value is a regular expression to match
+against the basename of files in said directory."
   :group 'gnus-cloud
-  ;; FIXME this type does not match the default.  Nor does the documentation.
-  :type '(repeat regexp))
+  :type '(repeat (choice (string :tag "File")
+                         (plist :tag "Property list"))))
 
 (defcustom gnus-cloud-storage-method (if (featurep 'epg) 'epg 'base64-gzip)
   "Storage method for cloud data, defaults to EPG if that's available."
@@ -290,6 +294,8 @@ Use old data if FORCE-OLDER is not nil."
     (dolist (elem gnus-cloud-synced-files)
       (cond
        ((stringp elem)
+        ;; This seems fragile.  String comparison, with no
+        ;; expand-file-name to resolve ~, etc.
         (when (equal elem file-name)
           (setq matched t)))
        ((consp elem)