From: Bruno Tavernier <tavernier.bruno@gmail.com>
To: ding@gnus.org
Subject: Re: nnimap-article-ranges error on sending message
Date: Thu, 30 Sep 2010 23:57:13 +0900 [thread overview]
Message-ID: <87y6aj9t4m.fsf@gmail.com> (raw)
In-Reply-To: <m3sk0rv0fl.fsf@quimbies.gnus.org>
Below the backtrace when sending message.
Note, the error only happen when sending from an Imap folder where (gcc-self . t)
My imap server is Dovecot and I connect without ssl/tls but over ssh.
> `(setq debug-on-error t)', repeat the bug and mail me the resulting
> backtrace.
Debugger entered--Lisp error: (wrong-type-argument numberp nil)
number-to-string(nil)
(if (consp elem) (format "%d:%d" (car elem) (cdr elem)) (number-to-string elem))
(cons (if (consp elem) (format "%d:%d" ... ...) (number-to-string elem)) result)
(setq result (cons (if ... ... ...) result))
(push (if (consp elem) (format "%d:%d" ... ...) (number-to-string elem)) result)
(while --cl-dolist-temp-- (setq elem (car --cl-dolist-temp--)) (push (if ... ... ...) result) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- ranges) elem) (while --cl-dolist-temp-- (setq elem ...) (push ... result) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... elem) (while --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... elem) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (elem ranges) (push (if ... ... ...) result))
(cond ((numberp ranges) (number-to-string ranges)) ((numberp ...) (format "%d:%d" ... ...)) (t (dolist ... ...) (mapconcat ... ... ",")))
(let (result) (cond (... ...) (... ...) (t ... ...)))
nnimap-article-ranges((nil))
(nnimap-send-command "UID STORE %s %sFLAGS.SILENT (%s)" (nnimap-article-ranges range) (if (eq action ...) "-" "+") (mapconcat (function identity) flags " "))
(setq sequence (nnimap-send-command "UID STORE %s %sFLAGS.SILENT (%s)" (nnimap-article-ranges range) (if ... "-" "+") (mapconcat ... flags " ")))
(progn (setq sequence (nnimap-send-command "UID STORE %s %sFLAGS.SILENT (%s)" ... ... ...)))
(if flags (progn (setq sequence ...)))
(when flags (setq sequence (nnimap-send-command "UID STORE %s %sFLAGS.SILENT (%s)" ... ... ...)))
(let ((flags ...)) (when flags (setq sequence ...)))
(let* ((--cl-rest-- action) (range ...) (action ...) (marks ...)) (let (...) (when flags ...)))
(progn (let* (... ... ... ...) (let ... ...)))
(destructuring-bind (range action marks) action (let (...) (when flags ...)))
(while --cl-dolist-temp-- (setq action (car --cl-dolist-temp--)) (destructuring-bind (range action marks) action (let ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- actions) action) (while --cl-dolist-temp-- (setq action ...) (destructuring-bind ... action ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... action) (while --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... action) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (action actions) (destructuring-bind (range action marks) action (let ... ...)))
(save-current-buffer (set-buffer (nnimap-buffer)) (erase-buffer) (dolist (action actions) (destructuring-bind ... action ...)) (when sequence (nnimap-wait-for-response sequence)))
(with-current-buffer (nnimap-buffer) (erase-buffer) (dolist (action actions) (destructuring-bind ... action ...)) (when sequence (nnimap-wait-for-response sequence)))
(let (sequence) (with-current-buffer (nnimap-buffer) (erase-buffer) (dolist ... ...) (when sequence ...)))
(progn (let (sequence) (with-current-buffer ... ... ... ...)))
(if (nnimap-possibly-change-group group server) (progn (let ... ...)))
(when (nnimap-possibly-change-group group server) (let (sequence) (with-current-buffer ... ... ... ...)))
nnimap-request-set-mark("INBOX" (((nil) del (read))) "Cloud")
gnus-request-set-mark("INBOX" (((nil) del (read))))
gnus-agent-synchronize-group-flags("INBOX" (((nil) del (read))) (nnimap "Cloud" (nnimap-address "localhost") (nnimap-server-port 10143) (nnimap-stream network) (nnimap-nov-is-evil nil) (nnir-search-engine imap)))
gnus-agent-regenerate-group("INBOX" (nil))
gnus-request-accept-article("INBOX" (nnimap "Cloud" (nnimap-address "localhost") (nnimap-server-port 10143) (nnimap-stream network) (nnimap-nov-is-evil nil) (nnir-search-engine imap)) t t)
gnus-inews-do-gcc()
gnus-agent-possibly-do-gcc()
run-hooks(message-sent-hook)
message-send(nil)
message-send-and-exit(nil)
call-interactively(message-send-and-exit nil nil)
--
Bruno
next prev parent reply other threads:[~2010-09-30 14:57 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-09-30 7:51 Bruno Tavernier
2010-09-30 13:06 ` Lars Magne Ingebrigtsen
2010-09-30 13:11 ` Adam Sjøgren
2010-09-30 13:13 ` Lars Magne Ingebrigtsen
2010-09-30 14:57 ` Bruno Tavernier [this message]
2010-10-01 7:32 ` Bruno Tavernier
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=87y6aj9t4m.fsf@gmail.com \
--to=tavernier.bruno@gmail.com \
--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).