Function: gnus-cloud-file-covered-p

gnus-cloud-file-covered-p is a byte-compiled function defined in gnus-cloud.el.gz.

Signature

(gnus-cloud-file-covered-p FILE-NAME)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cloud.el.gz
(defun gnus-cloud-file-covered-p (file-name)
  (let ((matched 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)
        (when (and (equal (directory-file-name (plist-get elem :directory))
                          (directory-file-name (file-name-directory file-name)))
                   (string-match (plist-get elem :match)
                                 (file-name-nondirectory file-name)))
          (setq matched t)))))
    matched))