mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2018-03-21 20:47:28 -04:00
parent e32f3525ea
commit 47917d8f4d
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/gnus/gnus-cloud.el
View File

@ -48,10 +48,14 @@
"~/.authinfo.gpg" "~/.authinfo.gpg"
"~/.gnus.el" "~/.gnus.el"
(:directory "~/News" :match ".*.SCORE\\'")) (: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 :group 'gnus-cloud
;; FIXME this type does not match the default. Nor does the documentation. :type '(repeat (choice (string :tag "File")
:type '(repeat regexp)) (plist :tag "Property list"))))
(defcustom gnus-cloud-storage-method (if (featurep 'epg) 'epg 'base64-gzip) (defcustom gnus-cloud-storage-method (if (featurep 'epg) 'epg 'base64-gzip)
"Storage method for cloud data, defaults to EPG if that's available." "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) (dolist (elem gnus-cloud-synced-files)
(cond (cond
((stringp elem) ((stringp elem)
;; This seems fragile. String comparison, with no
;; expand-file-name to resolve ~, etc.
(when (equal elem file-name) (when (equal elem file-name)
(setq matched t))) (setq matched t)))
((consp elem) ((consp elem)