From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/72497 Path: news.gmane.org!not-for-mail From: Dave Goldberg Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-completing-read vs XEmacs 21.4 Date: Mon, 04 Oct 2010 11:20:30 -0400 Message-ID: <8462xiugqp.fsf@davestoy.home> References: <84bp7aujik.fsf@davestoy.home> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1286205691 16118 80.91.229.12 (4 Oct 2010 15:21:31 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 4 Oct 2010 15:21:31 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M20869@lists.math.uh.edu Mon Oct 04 17:21:29 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1P2mqw-00014z-AJ for ding-account@gmane.org; Mon, 04 Oct 2010 17:21:22 +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 1P2mqr-0006Ia-55; Mon, 04 Oct 2010 10:21:17 -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 1P2mqq-0006IL-0S for ding@lists.math.uh.edu; Mon, 04 Oct 2010 10:21:16 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1P2mqo-0003h7-5e for ding@lists.math.uh.edu; Mon, 04 Oct 2010 10:21:15 -0500 Original-Received: from vms173005pub.verizon.net ([206.46.173.5]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1P2mqn-0005zx-00 for ; Mon, 04 Oct 2010 17:21:13 +0200 Original-Received: from davestoy.home.verizon.net ([unknown] [173.48.216.252]) by vms173005.mailsrvcs.net (Sun Java(tm) System Messaging Server 7u2-7.02 32bit (built Apr 16 2009)) with ESMTPA id <0L9R00G1CUM13PX0@vms173005.mailsrvcs.net> for ding@gnus.org; Mon, 04 Oct 2010 10:20:26 -0500 (CDT) X-Face: W!bie|rYVd43O:2CkHTb*~s5}Yzx30X<@6Tq_bnP56Hp!xX4sVl4tgYRirjRcke\wfY!JJ9 i?]VIUJicJzq2\!3%7$5R%wi!R[.]Va97q In-reply-to: (Julien Danjou's message of "Mon, 04 Oct 2010 16:32:38 +0200") User-Agent: Gnus/5.110011 (No Gnus v0.11) XEmacs/21.4.22 (linux) X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:72497 Archived-At: > No, it's rather a code path I did not test, since there's a lot and some > of them I do/can not use. > Could you send me a backtrace when this happens so I can push a fix? Here you go. This when trying to copy an article to another group. Debugger entered--Lisp error: (wrong-type-argument listp "nnml:emunah") all-completions("nnml:sof" ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil) (setq poss (all-completions str table pred)) (if (not (setq p ...)) (setq poss (all-completions str table pred)) (let (...) (setq p compl) (while p ... ...))) (if (and (eq mode ...) (PC-is-complete-p str table pred)) (quote complete) (setq dirlength (if filename ... 0)) (and filename (not ...) (progn ... ... ...)) (or (equal PC-word-delimiters PC-delims) (setq PC-delims PC-word-delimiters PC-delim-regex ... PC-ndelims-regex ... PC-delims-list ...)) (and filename (string-match "\\*.*/" str) (let ... ... ... ... ...)) (if filename (if incname ... ...) (setq basestr str)) (setq regex (regexp-quote basestr) offset (if ... 1 0) p offset) (while (setq p ...) (if ... ... ...)) (setq p 0) (if filename (while ... ...)) (setq regex (concat "\\`" regex)) (if (not ...) (setq poss ...) (let ... ... ...)) (cond (... ...) (... ... ... ... ... ...) (t ... t))) (let* ((table minibuffer-completion-table) (pred minibuffer-completion-predicate) (filename ...) (dirname nil) dirlength (str ...) (incname ...) (ambig nil) basestr regex p offset (poss nil) helpposs (case-fold-search completion-ignore-case)) (if (and ... ...) (quote complete) (setq dirlength ...) (and filename ... ...) (or ... ...) (and filename ... ...) (if filename ... ...) (setq regex ... offset ... p offset) (while ... ...) (setq p 0) (if filename ...) (setq regex ...) (if ... ... ...) (cond ... ... ...))) PC-do-completion(nil) (if (and window (window-buffer window) (buffer-name ...)) (save-excursion (set-buffer ...) (if ... ... ...)) (PC-do-completion nil)) (let ((window minibuffer-scroll-window)) (if (and window ... ...) (save-excursion ... ...) (PC-do-completion nil))) (if (PC-was-meta-key) (minibuffer-complete) (or (eq last-command this-command) (setq minibuffer-scroll-window nil)) (let (...) (if ... ... ...))) (lambda nil "Like minibuffer-complete, but allows \"b--di\"-style abbreviations.\nFor example, \"M-x b--di\" would match `byte-recompile-directory', or any\nname which consists of three or more words, the first beginning with \"b\"\nand the third beginning with \"di\".\n\nThe pattern \"b--d\" is ambiguous for `byte-recompile-directory' and\n`beginning-of-defun', so this would produce a list of completions\njust like when normal Emacs completions are ambiguous.\n\nWord-delimiters for the purposes of Partial Completion are \"-\", \"_\",\n\".\", and SPC." (interactive) (if (PC-was-meta-key) (minibuffer-complete) (or ... ...) (let ... ...)))() call-interactively(PC-complete) read-minibuffer-internal("Copy this article to (default nnml:inbox): ") byte-code("..." [standard-output standard-input prompt recursion-depth minibuffer-depth t read-minibuffer-internal] 2) read-from-minibuffer("Copy this article to (default nnml:inbox): " "nnml:" # nil gnus-group-history nil "nnml:inbox") completing-read("Copy this article to (default nnml:inbox): " ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil nil "nnml:" gnus-group-history "nnml:inbox") gnus-std-completing-read("Copy this article to (default nnml:inbox): " ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil "nnml:" gnus-group-history "nnml:inbox") gnus-completing-read("Copy this article to" ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil "nnml:" gnus-group-history "nnml:inbox") gnus-group-completing-read("Copy this article to" [nnml:emunah nnml:mm nnml:vv nnml:temple nnml:spam nnml:business nnml:bbdb-digest nndoc+/home/dsg/dslmsg\.mbox:dslmsg\.mbox nnml:friends nnml:personal nnml:misc nnml:software nnml:personal\.molly nndraft:drafts nnml:personal\.the_browns nnml:inbox\.mm nndraft:queue nnml:family nnml:ding-list nnml:inbox nnml:itac] nil "nnml:" gnus-group-history "nnml:inbox") gnus-read-move-group-name("Copy" nil (11592) "nnml:") gnus-summary-move-article(nil nil nil copy) gnus-summary-copy-article(nil) call-interactively(gnus-summary-copy-article) -- Dave Goldberg david.goldberg6@verizon.net