From: Steinar Bang <sb@dod.no>
To: ding@gnus.org
Subject: Re: gnus-cloud work
Date: Tue, 21 Jun 2016 20:52:51 +0200 [thread overview]
Message-ID: <upzc37o674sc.fsf@dod.no> (raw)
In-Reply-To: <upzch9corqyv.fsf@dod.no>
>>>>> Steinar Bang <sb@dod.no>:
>>>>> Ted Zlatanov <tzz@lifelogs.com>:
TZ> * get Steinar, Dave, and others to try this out...
> I'm committed to trying this out, if I can find a way that doesn't
> involve me moving to git emacs.
Ok, now I've tried it out:
1. Entered the *server buffer*
2. Positioned the cursor in front of the nnimap server
3. Typed I
4. Got the following error message:
Debugger entered--Lisp error: (error "Format specifier doesn't match argument type")
format("Subject: (sequence: %d type: %s storage-method: %s)\n" "nil" :full epg)
(insert (format "Subject: (sequence: %d type: %s storage-method: %s)\n" gnus-cloud-sequence (if full :full :partial) gnus-cloud-storage-method))
(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 (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 (setq gnus-cloud-sequence (1+ gnus-cloud-sequence)) (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)))
(progn (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 (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 (setq gnus-cloud-sequence (1+ gnus-cloud-sequence)) (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))))
(unwind-protect (progn (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 (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 (setq gnus-cloud-sequence (1+ gnus-cloud-sequence)) (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)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (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 (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 (setq gnus-cloud-sequence (1+ gnus-cloud-sequence)) (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)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
)
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (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 (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 (setq gnus-cloud-sequence ...) (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)))) (and (buffer-name temp-buf
fer) (kill-buffer temp-buffer)))))
gnus-cloud-upload-data(t)
gnus-server-toggle-cloud-method-server()
call-interactively(gnus-server-toggle-cloud-method-server nil nil)
command-execute(gnus-server-toggle-cloud-method-server)
The server is marked with GNUS-CLOUD, I don't know what else to look
for.
Note: I'm running gnus-obsolete with your changes, not emacs git gnus.
I gave up applying the patches, just copied the modified files over from
the emacs repo.
The git repository is here:
https://github.com/steinarb/gnus-obsolete-gnus-cloud
next prev parent reply other threads:[~2016-06-21 18:52 UTC|newest]
Thread overview: 88+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-10-07 3:11 check mtime of newsrc.eld before saving it Ted Zlatanov
2014-10-07 3:49 ` Eric Abrahamsen
2014-10-14 19:41 ` Ted Zlatanov
2015-01-27 1:40 ` Lars Ingebrigtsen
2015-02-04 11:39 ` Ted Zlatanov
2015-02-04 21:05 ` Steinar Bang
2015-02-04 22:40 ` Ted Zlatanov
2015-05-20 15:53 ` Any cloudy news...? (Was: check mtime of newsrc.eld before saving it) Steinar Bang
2015-06-07 21:28 ` Trying to get gnus-sync working with plink (Was: Any cloudy news...?) Steinar Bang
2015-06-08 16:15 ` Trying to get gnus-sync working with plink Steinar Bang
2015-06-08 16:25 ` Steinar Bang
2015-06-09 10:24 ` Sivaram Neelakantan
2015-06-09 14:47 ` Steinar Bang
2016-03-07 14:10 ` gnus-sync work (was: Trying to get gnus-sync working with plink) Ted Zlatanov
2016-05-19 22:45 ` gnus-sync work Dave Abrahams
2016-05-20 17:43 ` Steinar Bang
2016-05-24 19:17 ` Ted Zlatanov
2016-05-31 21:33 ` Dave Abrahams
2016-06-01 5:38 ` Steinar Bang
2016-06-05 20:27 ` Dave Abrahams
2016-06-07 18:22 ` Ted Zlatanov
2016-06-07 19:53 ` Steinar Bang
2016-06-15 18:55 ` gnus-cloud work (was: gnus-sync work) Ted Zlatanov
2016-06-17 20:21 ` gnus-cloud work Ted Zlatanov
2016-06-20 12:21 ` Steinar Bang
2016-06-20 19:10 ` Steinar Bang
2016-06-20 19:56 ` Steinar Bang
2016-06-21 15:39 ` Steinar Bang
2016-06-21 17:35 ` Andreas Schwab
2016-06-21 18:05 ` Steinar Bang
2016-06-21 18:52 ` Steinar Bang [this message]
2016-06-27 14:09 ` Ted Zlatanov
2016-06-27 15:07 ` Steinar Bang
2016-06-27 15:43 ` Ted Zlatanov
2016-07-03 10:10 ` Steinar Bang
2016-07-03 17:05 ` Steinar Bang
2016-07-05 2:39 ` Ted Zlatanov
2016-07-06 21:19 ` Steinar Bang
2016-07-07 12:52 ` Ted Zlatanov
2016-06-27 14:08 ` Ted Zlatanov
2016-06-30 14:42 ` Eric Abrahamsen
2016-06-30 15:02 ` Ted Zlatanov
2016-07-01 2:00 ` Eric Abrahamsen
2016-07-01 4:27 ` Eric Abrahamsen
2016-07-01 17:44 ` Ted Zlatanov
2016-07-02 1:00 ` Ted Zlatanov
2016-07-06 14:50 ` Ted Zlatanov
2016-07-20 12:58 ` Ted Zlatanov
2016-07-23 20:27 ` Steinar Bang
2016-07-24 13:33 ` Steinar Bang
2016-07-24 13:38 ` Steinar Bang
2016-07-24 14:46 ` Steinar Bang
2016-07-25 13:00 ` Ted Zlatanov
2016-07-25 17:42 ` Andreas Schwab
2016-07-26 2:09 ` Ted Zlatanov
2016-07-26 8:15 ` Steinar Bang
2016-07-26 14:14 ` Ted Zlatanov
2016-07-26 18:42 ` Steinar Bang
2016-07-26 18:55 ` Steinar Bang
2016-07-26 19:46 ` Ted Zlatanov
2016-07-26 21:19 ` Steinar Bang
2016-07-27 14:00 ` Ted Zlatanov
2016-07-27 15:59 ` Steinar Bang
2016-07-28 13:37 ` Ted Zlatanov
2016-07-28 17:18 ` Steinar Bang
2016-07-28 17:41 ` Ted Zlatanov
2016-07-28 20:50 ` Steinar Bang
2016-07-29 20:35 ` Steinar Bang
2016-07-29 23:04 ` What happenend Gmane? (Was: Re: gnus-cloud work) Byung-Hee HWANG (황병희)
2016-07-30 6:36 ` What happenend Gmane? Steinar Bang
2016-07-30 8:40 ` Byung-Hee HWANG (황병희)
2016-08-01 16:28 ` gnus-cloud work Ted Zlatanov
2016-08-01 19:34 ` Steinar Bang
2016-08-02 9:59 ` Ted Zlatanov
2016-08-03 7:20 ` Steinar Bang
2016-08-03 7:44 ` gnus-cloud: Invalid base64 data (Was: gnus-cloud work) Steinar Bang
2016-09-19 0:06 ` gnus-cloud work Dave Abrahams
2016-09-20 12:54 ` Ted Zlatanov
2016-09-30 18:27 ` Dave Abrahams
2016-09-30 18:29 ` Dave Abrahams
2016-07-23 20:32 ` Steinar Bang
2016-07-24 7:33 ` Steinar Bang
2015-02-05 3:13 ` check mtime of newsrc.eld before saving it Lars Ingebrigtsen
2015-02-05 4:08 ` Ted Zlatanov
2015-02-05 4:40 ` Lars Ingebrigtsen
2015-02-05 10:49 ` Steinar Bang
2015-02-05 10:59 ` Ted Zlatanov
2015-02-13 6:25 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=upzc37o674sc.fsf@dod.no \
--to=sb@dod.no \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).