[Emacs-diffs] scratch/gnus-cloud cb3beec 61/61: Protect from null gnus-cloud-sequence

[Teodor Zlatanov]

branch: scratch/gnus-cloud
commit cb3beec73d517d7825707eeb6d8f559b072b21a6
Author: Ted Zlatanov <address@hidden>
Commit: Ted Zlatanov <address@hidden>

    Protect from null gnus-cloud-sequence
---
 lisp/gnus/gnus-cloud.el |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index dac8d42..f17a6d0 100644
--- a/lisp/gnus/gnus-cloud.el
+++ b/lisp/gnus/gnus-cloud.el
@@ -306,7 +306,7 @@
     (let ((elems (gnus-cloud-files-to-upload full))
           (group (gnus-group-full-name gnus-cloud-group-name 
gnus-cloud-method)))
       (insert (format "Subject: (sequence: %d type: %s storage-method: %s)\n"
-                      gnus-cloud-sequence
+                      (or gnus-cloud-sequence "UNKNOWN")
                       (if full :full :partial)
                       gnus-cloud-storage-method))
       (insert "From: address@hidden")
@@ -315,7 +315,7 @@
       (if (gnus-request-accept-article gnus-cloud-group-name gnus-cloud-method
                                        t t)
           (progn
-            (setq gnus-cloud-sequence (1+ gnus-cloud-sequence))
+            (setq gnus-cloud-sequence (1+ (or gnus-cloud-sequence 0)))
             (gnus-cloud-add-timestamps elems)
             (gnus-message 3 "Uploaded Emacs Cloud data successfully to %s" 
group))
         (gnus-error 2 "Failed to upload Emacs Cloud data to %s" group)))))
@@ -380,7 +380,7 @@ Otherwise, returns the Gnus Cloud data chunks."
         chunks)
     (dolist (header (gnus-cloud-available-chunks))
       (when (> (gnus-cloud-chunk-sequence (mail-header-subject header))
-               (or sequence-override gnus-cloud-sequence))
+               (or sequence-override gnus-cloud-sequence -1))
 
         (if (string-match (format "storage-method: %s" 
gnus-cloud-storage-method)
                           (mail-header-subject header))