From: Matt Ford <matt@dancingfrog.co.uk>
To: ding@gnus.org
Subject: Re: Bug with gnus agent when processing message queue and having archive alist
Date: Tue, 10 Apr 2012 22:15:57 +0100 [thread overview]
Message-ID: <87fwcbqodu.fsf@dancingfrog.co.uk> (raw)
In-Reply-To: <m3pqbf2zis.fsf@stories.gnus.org>
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> Matt Ford <matt@dancingfrog.co.uk> writes:
>
>> things fail like this...
>>
>> gnus-inews-insert-gcc: Wrong type argument: stringp, nil
>
> `(setq debug-on-error t)', repeat the bug and post the resulting
> backtrace.
Here it is: the string "Manchester:" is the first regex of my alist.
There's no check before the string-match to see if group has actually
been defined which is why forcing it "" works...
It's easy to invoke the bug, in title mode use the arrow keys to move
the cursor to a title heading and `C-u m'. One sees it also on return
from unplugged mode.
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("Manchester:" nil)
(if (string-match (caar var) group) (progn (cdar var)))
(when (string-match (caar var) group) (cdar var))
(cond ((stringp (caar var)) (when (string-match (caar var) group) (cdar var))) ((functionp (car var)) (funcall (car var) group)) (t (eval (car var))))
(setq result (cond ((stringp (caar var)) (when (string-match (caar var) group) (cdar var))) ((functionp (car var)) (funcall (car var) group)) (t (eval (car var)))))
(not (setq result (cond ((stringp (caar var)) (when (string-match (caar var) group) (cdar var))) ((functionp (car var)) (funcall (car var) group)) (t (eval (car var))))))
(and var (not (setq result (cond ((stringp (caar var)) (when (string-match (caar var) group) (cdar var))) ((functionp (car var)) (funcall (car var) group)) (t (eval (car var)))))))
(while (and var (not (setq result (cond ((stringp (caar var)) (when (string-match ... group) (cdar var))) ((functionp (car var)) (funcall (car var) group)) (t (eval (car var))))))) (setq var (cdr var)))
(cond ((null gnus-message-archive-method) nil) ((stringp var) (list var)) ((null var) nil) ((and (listp var) (stringp (car var))) var) ((functionp var) (funcall var group)) (t (while (and var (not (setq result (cond (... ...) (... ...) (t ...))))) (setq var (cdr var))) result))
(let* ((group (or group gnus-newsgroup-name)) (group (when group (gnus-group-decoded-name group))) (var (or gnus-outgoing-message-group gnus-message-archive-group)) (gcc-self-val (and group (gnus-group-find-parameter group (quote gcc-self)))) result (groups (cond ((null gnus-message-archive-method) nil) ((stringp var) (list var)) ((null var) nil) ((and (listp var) (stringp (car var))) var) ((functionp var) (funcall var group)) (t (while (and var (not ...)) (setq var (cdr var))) result))) name) (when (or groups gcc-self-val) (when (stringp groups) (setq groups (list groups))) (save-excursion (save-restriction (message-narrow-to-headers) (goto-char (point-max)) (insert "Gcc: ") (if gcc-self-val (progn (insert (if ... ... ...)) (if (not ...) (insert "\n") (gnus-delete-line))) (while (setq n
ame (pop groups)) (let (...) (insert ...)) (when groups (insert " "))) (insert "\n"))))))
gnus-inews-insert-gcc()
run-hooks(message-header-setup-hook)
message-setup-1(((To . "") (Subject . "")) nil nil nil)
message-setup(((To . "") (Subject . "")) nil nil nil nil nil)
message-mail()
gnus-group-mail((4))
call-interactively(gnus-group-mail nil nil)
recursive-edit()
debug(error (error "No such part"))
signal(error ("No such part"))
gnus-article-read-summary-keys(2)
call-interactively(gnus-article-read-summary-keys nil nil)
--
Matt
next prev parent reply other threads:[~2012-04-10 21:15 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-04-06 16:04 Matt Ford
2012-04-06 18:04 ` Matt Ford
2012-04-06 19:39 ` Matt Ford
2012-04-10 18:49 ` Lars Magne Ingebrigtsen
2012-04-10 21:15 ` Matt Ford [this message]
2012-04-10 22:38 ` Lars Magne Ingebrigtsen
2012-04-10 22:48 ` Matt Ford
2012-04-10 22:52 ` Lars Magne Ingebrigtsen
2012-04-12 10:25 ` Matt Ford
2012-04-12 18:35 ` Lars Magne Ingebrigtsen
2012-04-10 18:48 ` Lars Magne 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=87fwcbqodu.fsf@dancingfrog.co.uk \
--to=matt@dancingfrog.co.uk \
--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).