diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-03-21 20:47:28 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-03-21 20:47:28 -0400 |
| commit | 47917d8f4dbb711435fe46765fd0290e1f4a16b3 (patch) | |
| tree | aaaa548226f928a7e77cf6cb259fd4a82c529130 /lisp/gnus | |
| parent | e32f3525ea3aabad0801874b24869b181535c104 (diff) | |
| download | emacs-47917d8f4dbb711435fe46765fd0290e1f4a16b3.tar.gz | |
* lisp/gnus/gnus-cloud.el (gnus-cloud-synced-files): Fix doc & type.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-cloud.el | 12 |
1 files changed, 9 insertions, 3 deletions
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) |