From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/81704 Path: news.gmane.org!not-for-mail From: Matt Ford Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug with gnus agent when processing message queue and having archive alist Date: Tue, 10 Apr 2012 22:15:57 +0100 Organization: Dancingfrog Message-ID: <87fwcbqodu.fsf@dancingfrog.co.uk> References: <87aa2oetih.fsf@dancingfrog.co.uk> <87k41s4tz9.fsf@dancingfrog.co.uk> <87k41shcq0.fsf@dancingfrog.co.uk> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1334092647 16624 80.91.229.3 (10 Apr 2012 21:17:27 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 10 Apr 2012 21:17:27 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M29983@lists.math.uh.edu Tue Apr 10 23:17:27 2012 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1SHiRI-00007e-H9 for ding-account@gmane.org; Tue, 10 Apr 2012 23:17:24 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1SHiQm-0006TB-Pk; Tue, 10 Apr 2012 16:16:52 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1SHiQl-0006Su-0e for ding@lists.math.uh.edu; Tue, 10 Apr 2012 16:16:51 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1SHiQg-0006Rr-Ux for ding@lists.math.uh.edu; Tue, 10 Apr 2012 16:16:50 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1SHiQe-0005Dx-Tz for ding@gnus.org; Tue, 10 Apr 2012 23:16:44 +0200 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1SHiQX-00087z-UT for ding@gnus.org; Tue, 10 Apr 2012 23:16:37 +0200 Original-Received: from host-92-22-235-129.as13285.net ([92.22.235.129]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 10 Apr 2012 23:16:37 +0200 Original-Received: from matt by host-92-22-235-129.as13285.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 10 Apr 2012 23:16:37 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 46 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: host-92-22-235-129.as13285.net User-Agent: Gnus/5.130004 (Ma Gnus v0.4) Emacs/24.0.95 (gnu/linux) Cancel-Lock: sha1:U7bKJPd02XwuBsCyjjPi0cL3Rgw= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:81704 Archived-At: Lars Magne Ingebrigtsen writes: > Matt Ford 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