From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/31525 Path: main.gmane.org!not-for-mail From: Paul Stodghill Newsgroups: gmane.emacs.gnus.general Subject: Re: message archiving + spaces in group names? Date: 25 Jun 2000 11:04:36 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: References: <706871B20764CD449DB0E8E3D81C4D433DC70F@opus.cs.cornell.edu> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035167926 14625 80.91.224.250 (21 Oct 2002 02:38:46 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:38:46 +0000 (UTC) Cc: Simon Josefsson , "'ding@gnus.org'" Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by mailhost.sclp.com (Postfix) with ESMTP id 1A380D0521 for ; Sun, 25 Jun 2000 11:05:41 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.3/8.9.3) with ESMTP id KAC02224; Sun, 25 Jun 2000 10:05:08 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 25 Jun 2000 10:04:23 -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 KAA03632 for ; Sun, 25 Jun 2000 10:04:13 -0500 (CDT) Original-Received: from sundown.cs.cornell.edu (sundown.cs.cornell.edu [128.84.96.20]) by mailhost.sclp.com (Postfix) with ESMTP id 77007D0521 for ; Sun, 25 Jun 2000 11:04:45 -0400 (EDT) Original-Received: from MILHOUSE.cs.cornell.edu.cs.cornell.edu (dhcp211-230.cs.cornell.edu [128.84.211.230]) by sundown.cs.cornell.edu (8.9.3/8.9.3/R-3.0) with SMTP id LAA12402; Sun, 25 Jun 2000 11:04:36 -0400 (EDT) Original-To: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-1?q?Gro=DFjohann?=) In-Reply-To: Kai.Grossjohann@CS.Uni-Dortmund.DE's message of "Sun, 25 Jun 2000 16:24:40 +0200" Original-Lines: 65 User-Agent: Gnus/5.0806 (Gnus v5.8.6) XEmacs/21.1 (Capitol Reef) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:31525 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:31525 > Maybe gnus-inews-do-gcc shouldn't use message-tokenize-header to split > the header, or it should remove double quotes if present. How about this: --- message.el.ORIG Sun Jun 25 10:55:40 2000 +++ message.el Sun Jun 25 10:56:05 2000 @@ -1029,9 +1029,12 @@ `(delete-region (progn (beginning-of-line) (point)) (progn (forward-line ,(or n 1)) (point)))) -(defun message-tokenize-header (header &optional separator) +(defun message-tokenize-header (header &optional separator + remove-quotes) "Split HEADER into a list of header elements. -\",\" is used as the separator." +SEPARATOR is a string of characters to be used as separators. +\",\" is used by default. If REMOVE-QUOTES is true then remove +double quotes (\") from the resulting tokens." (if (not header) nil (let ((regexp (format "[%s]+" (or separator ","))) @@ -1061,7 +1064,19 @@ ((and (eq (char-after) ?\)) (not quoted)) (setq paren nil)))) - (nreverse elems))))) + (setq elems (nreverse elems)) + (if remove-quotes + (setq elems + (mapcar + (lambda (item) + (let (ind) + (while (setq ind (string-match "\"" item)) + (setq item (concat + (substring item 0 ind) + (substring item (+ ind 1))))) + item)) + elems))) + elems)))) (defun message-mail-file-mbox-p (file) "Say whether FILE looks like a Unix mbox file." --- gnus-msg.el.ORIG Sun Jun 25 10:56:48 2000 +++ gnus-msg.el Sun Jun 25 10:59:28 2000 @@ -1021,7 +1021,7 @@ (when gcc (message-remove-header "gcc") (widen) - (setq groups (message-tokenize-header gcc " ,")) + (setq groups (message-tokenize-header gcc " ," t)) ;; Copy the article over to some group(s). (while (setq group (pop groups)) (gnus-check-server --- nnimap.el.ORIG Mon Apr 24 15:01:43 2000 +++ nnimap.el Sun Jun 25 10:59:21 2000 @@ -737,7 +737,7 @@ (deffoo nnimap-request-post (&optional server) (let ((success t)) (dolist (mbx (message-tokenize-header - (message-fetch-field "Newsgroups")) success) + (message-fetch-field "Newsgroups") nil t) success) (let ((to-newsgroup (gnus-group-prefixed-name mbx gnus-command-method))) (or (gnus-active to-newsgroup) (gnus-activate-group to-newsgroup)