Function: gnus-cloud-upload-data

gnus-cloud-upload-data is an interactive and byte-compiled function defined in gnus-cloud.el.gz.

Signature

(gnus-cloud-upload-data &optional FULL)

Documentation

Upload data (newsrc and files) to the Gnus Cloud.

When FULL is t, upload everything, not just a difference from the last full.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cloud.el.gz
(defun gnus-cloud-upload-data (&optional full)
  "Upload data (newsrc and files) to the Gnus Cloud.
When FULL is t, upload everything, not just a difference from the last full."
  (interactive)
  (gnus-cloud-ensure-cloud-group)
  (with-temp-buffer
    (let ((elems (append
                  (gnus-cloud-files-to-upload full)
                  (gnus-cloud-collect-full-newsrc)))
          (group (gnus-group-full-name gnus-cloud-group-name gnus-cloud-method)))
      (setq gnus-cloud-sequence (1+ (or gnus-cloud-sequence 0)))
      (insert (format "Subject: (sequence: %s type: %s storage-method: %s)\n"
                      gnus-cloud-sequence
                      (if full :full :partial)
                      gnus-cloud-storage-method))
      (insert "From: nobody@gnus.cloud.invalid\n")
      (insert "\n")
      (insert (gnus-cloud-make-chunk elems))
      (if (gnus-request-accept-article gnus-cloud-group-name gnus-cloud-method
                                       t t)
          (progn
            (gnus-cloud-add-timestamps elems)
            (gnus-message 3 "Uploaded Gnus Cloud data successfully to %s" group)
            (gnus-group-refresh-group group))
        (gnus-error 2 "Failed to upload Gnus Cloud data to %s" group)))))