Re: gnus-cloud work

[Ted Zlatanov <tzz@lifelogs.com>]

On Thu, 28 Jul 2016 19:18:22 +0200 Steinar Bang <sb@dod.no> wrote: 

>>>>>> Ted Zlatanov <tzz@lifelogs.com>:
>> The newly pushed code should do the right thing.

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

Cool.

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

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

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

I think the error is in `spam-gmane-massage-header' but I'm not sure why
it's called. I don't have that function, is it an external package?

SB> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
SB>   string-match("gmane.spam.reported" nil)
SB>   (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))))))))
SB>   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])
SB>   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 ...])
SB>   nnvirtual-convert-headers()
SB>   gnus-agent-retrieve-headers((1 2 3 4 5 6 7 8) "nnimap+privat:Emacs-Cloud" nil)

Something in that call chain is breaking when gnus-cloud sets the marks,
then refreshes the group. It looks like the code expects
`gnus-newsgroup-name' to be set but in this case (when we refresh
without entering the group) it isn't. I don't know what's the exact
situation, this is just a guess, sorry.

Ted