From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30118 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug in 5.8.5 (copying articles) Date: 21 Apr 2000 23:34:49 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: <877ldrgq8m.fsf@tea.thpoon.com> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035166690 6778 80.91.224.250 (21 Oct 2002 02:18:10 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:18:10 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id 44228D051E for ; Fri, 21 Apr 2000 17:37:48 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id QAB30420; Fri, 21 Apr 2000 16:37:42 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 21 Apr 2000 16:37:02 -0500 (CDT) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id QAA08035 for ; Fri, 21 Apr 2000 16:36:51 -0500 (CDT) Original-Received: from badis.pdc.kth.se (badis.pdc.kth.se [130.237.221.45]) by mailhost.sclp.com (Postfix) with ESMTP id 5C0B6D051E for ; Fri, 21 Apr 2000 17:37:04 -0400 (EDT) Original-Received: (from jas@localhost) by badis.pdc.kth.se (8.10.0/8.10.0) id e3LLYpU20421; Fri, 21 Apr 2000 23:34:51 +0200 Original-To: Arcady Genkin In-Reply-To: Arcady Genkin's message of "21 Apr 2000 16:20:57 -0400" Original-Lines: 69 User-Agent: Gnus/5.0805 (Gnus v5.8.5) Emacs/20.6 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:30118 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30118 Arcady Genkin writes: > I think I discovered another bug in the latest CVS gnus. I tried to > copy an article from an nntp group into an nnimap one, or from an > nnimap into nnimap. I use "B c" from summary buffer. Here's the trace: > > Signaling: (wrong-type-argument listp "archive") > car("archive") This patch might solve that problem, could you see if it does? This is the same patch as Chris Brierley re-sent earlier, only without byte-compile warnings. 2000-03-01 Simon Josefsson * gnus-sum.el (gnus-read-move-group-name): (gnus-summary-move-article): Use `gnus-group-method' to find out what method the manually entered group belong to. `gnus-group-name-to-method' doesn't return any method parameters and `gnus-find-method-for-group' uses `gnus-group-name-to-method' for new groups so they wouldn't work. Index: gnus-sum.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v retrieving revision 5.104 diff -w -u -u -w -r5.104 gnus-sum.el --- gnus-sum.el 2000/04/21 20:18:21 5.104 +++ gnus-sum.el 2000/04/21 21:27:23 @@ -7333,7 +7333,8 @@ articles prefix)) (set (intern (format "gnus-current-%s-group" action)) to-newsgroup)) (setq to-method (or select-method - (gnus-group-method to-newsgroup))) + (gnus-server-to-method + (gnus-group-method to-newsgroup)))) ;; Check the method we are to move this article to... (unless (gnus-check-backend-function 'request-accept-article (car to-method)) @@ -9030,7 +9031,8 @@ (mapcar (lambda (el) (list el)) (nreverse split-name)) nil nil nil - 'gnus-group-history))))) + 'gnus-group-history)))) + (to-method (gnus-server-to-method (gnus-group-method to-newsgroup)))) (when to-newsgroup (if (or (string= to-newsgroup "") (string= to-newsgroup prefix)) @@ -9038,15 +9040,12 @@ (unless to-newsgroup (error "No group name entered")) (or (gnus-active to-newsgroup) - (gnus-activate-group to-newsgroup nil nil - (gnus-group-method to-newsgroup)) + (gnus-activate-group to-newsgroup nil nil to-method) (if (gnus-y-or-n-p (format "No such group: %s. Create it? " to-newsgroup)) - (or (and (gnus-request-create-group - to-newsgroup (gnus-group-method to-newsgroup)) + (or (and (gnus-request-create-group to-newsgroup to-method) (gnus-activate-group - to-newsgroup nil nil - (gnus-group-method to-newsgroup)) + to-newsgroup nil nil to-method) (gnus-subscribe-group to-newsgroup)) (error "Couldn't create group %s" to-newsgroup))) (error "No such group: %s" to-newsgroup)))