Re: gnus-cloud work

[Steinar Bang <sb@dod.no>]

>>>>> Ted Zlatanov <tzz@lifelogs.com>:

> The newly pushed code should do the right thing.

Ok, now the gnus-cloud-method is saved like this in .emacs:
 '(gnus-cloud-method "nnimap:privat")
which looks a lot better.

I tried '~ RET' to save new data, and got the error below.

(it could be that this is caused by that there were no new read marks
after the 'I' upload...?)

Hm... I see they are related to the gnus.spam.reported group, which gas
some Summary buffer modifications.  The group has the following added to
the group parameters:
 (gnus-summary-line-format "%U%uS: %uT %-40,40s %[%-25,25uG %-20,20uA%z%I%(%-23,23f%]%)\n"))

Here's the stack trace from the error:


Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match("gmane.spam.reported" nil)
  (if (string-match "gmane.spam.reported" gnus-newsgroup-name) (progn (save-excursion (let ((queue nil) (score 0) line) (goto-char (point-min)) (while (search-forward "\nX-Gmane-Queue:" nil t) (setq line (split-string (buffer-substring ... ...))) (message "Resolving %s" (nth 4 line)) (setq queue (cons (list ... ... ... ...) queue))) (goto-char (point-max)) (if (search-backward "\nX-Spam-Report:" nil t) (progn (goto-char (match-end 0)) (setq score (read ...)) (if (numberp score) nil (setq score 0)))) (mail-header-set-extra header (list (list (quote Id) (nth 1 ...) (nth 3 ...)) (list (quote Ip) (nth 4 line)) (list (quote Score) score) (cons (quote Queue) (spam-gmane-collate-reports queue))))))))
  spam-gmane-massage-header([1 "(sequence: UNKNOWN type: :full storage-method: base64-gzip)" "nobody@gnus.cloud.invalid" "" "<86h9bff8nh.fsf@totally-fudged-out-message-id>" nil 61154 214 nil nil])
  gnus-get-newsgroup-headers([0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...])
  nnvirtual-convert-headers()
  gnus-agent-retrieve-headers((1 2 3 4 5 6 7 8) "nnimap+privat:Emacs-Cloud" nil)
  gnus-retrieve-headers((1 2 3 4 5 6 7 8) "nnimap+privat:Emacs-Cloud" nil)
  gnus-cache-retrieve-headers((1 2 3 4 5 6 7 8) "nnimap+privat:Emacs-Cloud" nil)
  gnus-retrieve-headers((1 2 3 4 5 6 7 8) "nnimap+privat:Emacs-Cloud")
  (if (gnus-retrieve-headers (gnus-uncompress-range active) group) (progn (save-current-buffer (set-buffer nntp-server-buffer) (goto-char (point-min)) (while (and (not (eobp)) (setq head (nnheader-parse-head))) (setq headers (cons head headers))))))
  (let* ((group (gnus-group-full-name gnus-cloud-group-name gnus-cloud-method)) (active (symbol-value (intern-soft group gnus-active-hashtb))) headers head) (if (gnus-retrieve-headers (gnus-uncompress-range active) group) (progn (save-current-buffer (set-buffer nntp-server-buffer) (goto-char (point-min)) (while (and (not (eobp)) (setq head (nnheader-parse-head))) (setq headers (cons head headers)))))) (sort (nreverse headers) (function (lambda (h1 h2) (> (gnus-cloud-chunk-sequence (aref h1 1)) (gnus-cloud-chunk-sequence (aref h2 1)))))))
  gnus-cloud-available-chunks()
  (let ((--dolist-tail-- (gnus-cloud-available-chunks)) header) (while --dolist-tail-- (setq header (car --dolist-tail--)) (if (> (gnus-cloud-chunk-sequence (aref header 1)) (or sequence-override gnus-cloud-sequence -1)) (progn (if (string-match (format "storage-method: %s" gnus-cloud-storage-method) (aref header 1)) (setq articles (cons (aref header 0) articles)) (gnus-message 1 "Skipping article %s because it didn't match the Gnus Cloud method %s: %s" (aref header 0) gnus-cloud-storage-method (aref header 1))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((articles nil) chunks) (let ((--dolist-tail-- (gnus-cloud-available-chunks)) header) (while --dolist-tail-- (setq header (car --dolist-tail--)) (if (> (gnus-cloud-chunk-sequence (aref header 1)) (or sequence-override gnus-cloud-sequence -1)) (progn (if (string-match (format "storage-method: %s" gnus-cloud-storage-method) (aref header 1)) (setq articles (cons ... articles)) (gnus-message 1 "Skipping article %s because it didn't match the Gnus Cloud method %s: %s" (aref header 0) gnus-cloud-storage-method (aref header 1))))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if articles (progn (nnimap-request-articles (nreverse articles) gnus-cloud-group-name) (save-current-buffer (set-buffer nntp-server-buffer) (goto-char (point-min)) (while (re-search-forward "^Gnus-Cloud-Version " ni
 l t) (beginning-of-line) (setq chunks (cons (gnus-cloud-parse-chunk) chunks)) (forward-line 1))))) (if update (mapcar (function gnus-cloud-update-all) chunks) chunks))
  gnus-cloud-download-data(t)
  gnus-cloud-download-all-data()
  call-interactively(gnus-cloud-download-all-data nil nil)
  command-execute(gnus-cloud-download-all-data)