Function: gnus-cloud-update-newsrc-data

gnus-cloud-update-newsrc-data is a byte-compiled function defined in gnus-cloud.el.gz.

Signature

(gnus-cloud-update-newsrc-data GROUP ELEM)

Documentation

Update the newsrc data for GROUP from ELEM.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cloud.el.gz
(defun gnus-cloud-update-newsrc-data (group elem)
  "Update the newsrc data for GROUP from ELEM."
  (let* ((contents (plist-get elem :contents))
         (date (or (plist-get elem :timestamp) "0"))
         (group-info (gnus-get-info group)))
    (if (and contents
             (stringp (nth 0 contents))
             (integerp (nth 1 contents)))
        (if group-info
            (if (equal (format "%S" group-info)
                       (format "%S" contents))
                (gnus-message 3 "Skipping cloud update of group %s, the info is the same" group)
              (when (or (not gnus-cloud-interactive)
			(gnus-y-or-n-p
			 (format "%s has different info in the cloud from %s, update it here? "
				 group date)))
		(gnus-message 2 "Installing cloud update of group %s" group)
		(gnus-set-info group contents)
		(gnus-group-update-group group)))
          (gnus-error 1 "Sorry, group %s is not subscribed" group))
      (gnus-error 1 "Sorry, could not update newsrc for group %s (invalid data %S)"
                  group elem))))