From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/87184 Path: news.gmane.org!not-for-mail From: Steinar Bang Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-cloud work Date: Thu, 28 Jul 2016 19:18:22 +0200 Organization: Probably a good idea Message-ID: <86wpk51y1t.fsf@dod.no> References: <87poqxjls5.fsf@lifelogs.com> <87shvsj1lg.fsf@lifelogs.com> <87lh1eg6s6.fsf@lifelogs.com> <87d1m8bh5z.fsf@lifelogs.com> <86wpkcaym2.fsf@dod.no> <86mvl7f9eh.fsf@dod.no> <86invvf96u.fsf@dod.no> <86d1m3f60a.fsf@dod.no> <87oa5l50uw.fsf@lifelogs.com> <87fuqx7gwz.fsf@linux-m68k.org> <87a8h5jgl0.fsf@lifelogs.com> <86a8h47r32.fsf@dod.no> <87zip4iizk.fsf@lifelogs.com> <867fc8jl69.fsf@dod.no> <8637mwjkjk.fsf@dod.no> <87fuqwgp1q.fsf@lifelogs.com> <86vazshzbp.fsf@dod.no> <8760rrgozv.fsf@lifelogs.com> <8660rrhy0z.fsf@dod.no> <87fuqtg9z2.fsf@lifelogs.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1469726371 14249 80.91.229.3 (28 Jul 2016 17:19:31 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 28 Jul 2016 17:19:31 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M35404@lists.math.uh.edu Thu Jul 28 19:19:15 2016 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1bSoxl-0004Nc-S6 for ding-account@gmane.org; Thu, 28 Jul 2016 19:19:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.86_2) (envelope-from ) id 1bSoxO-0004ec-61; Thu, 28 Jul 2016 12:18:50 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.86_2) (envelope-from ) id 1bSoxL-0004dy-Nw for ding@lists.math.uh.edu; Thu, 28 Jul 2016 12:18:47 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.86_2) (envelope-from ) id 1bSoxJ-0005QG-U5 for ding@lists.math.uh.edu; Thu, 28 Jul 2016 12:18:47 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]) by quimby.gnus.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.80) (envelope-from ) id 1bSowx-0004IP-Pi for ding@gnus.org; Thu, 28 Jul 2016 19:18:30 +0200 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1bSoww-00040g-0K for ding@gnus.org; Thu, 28 Jul 2016 19:18:22 +0200 Original-Received: from 45.81-166-192.customer.lyse.net ([81.166.192.45]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 28 Jul 2016 19:18:21 +0200 Original-Received: from sb by 45.81-166-192.customer.lyse.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 28 Jul 2016 19:18:21 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 40 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: 45.81-166-192.customer.lyse.net Mail-Copies-To: never User-Agent: Gnus/5.130016 (Ma Gnus v0.16) Emacs/24.4 (windows-nt) Cancel-Lock: sha1:nzQUs6lv99ENYgGriy+hzPN3fzY= X-Spam-Score: -4.2 (----) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:87184 Archived-At: >>>>> Ted Zlatanov : > 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)