From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13744
Path: main.gmane.org!not-for-mail
From: Mark Moll <mmoll@cs.cmu.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: function to pack folders
Date: 02 Feb 1998 13:22:53 -0500
Sender: owner-ding@hpc.uh.edu
Message-ID: <uttbtwprhmq.fsf@gs236.sp.cs.cmu.edu>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035153053 10867 80.91.224.250 (20 Oct 2002 22:30:53 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 22:30:53 +0000 (UTC)
Cc: mmoll+@cs.cmu.edu
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16])
	by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id KAA03194
	for <steve@altair.xemacs.org>; Mon, 2 Feb 1998 10:27:11 -0800
Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA26864
	for <steve@xemacs.org>; Mon, 2 Feb 1998 12:24:17 -0600 (CST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id MAH08792; Mon, 2 Feb 1998 12:24:16 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 02 Feb 1998 12:23:50 -0600 (CST)
Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id MAA08778 for <ding@hpc.uh.edu>; Mon, 2 Feb 1998 12:23:43 -0600 (CST)
Original-Received: (qmail 8744 invoked by uid 504); 2 Feb 1998 18:23:40 -0000
Original-Received: (qmail 8741 invoked from network); 2 Feb 1998 18:23:40 -0000
Original-Received: from gs236.sp.cs.cmu.edu (128.2.213.41)
  by claymore.vcinet.com with SMTP; 2 Feb 1998 18:23:40 -0000
Original-To: ding@gnus.org
X-Face: $92c:Z.SW1(?c'Y(OH8-XA7Q8p&Y>@^o^VYA8|cCXLp}G7z>g:m"@it_Fmv;7_M0SR2T
    /o4k("Imbj)DjJceO*/0$y^g=)7RrpmL/DA={Abwj{o)D6ChZh_}"pt?N]^q;K;rDnGZFvc}
    nv)6W<"LP';G~.X&4y0t
Original-Lines: 29
X-Mailer: Quassia Gnus v0.22/XEmacs 20.3 - "Vatican City"
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:13744
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13744


I wrote this little function to renumber articles in my nnml folders. I
don't know that much about elisp, but this seemed a reasonable way to do it.
For some reason, however, I get the following error when I call the function 
below in the summary buffer.

      Symbol's value as variable is void: group

It's probably something very trivial, but can anybody tell me what I'm
doing wrong?

(defun mm-pack-folder ()
  "Renumber the articles such that holes in the numbering are removed."
  (interactive)
  (let ((group gnus-newsgroup-name)
	(folder (replace-in-string
		 (replace-in-string group 
				    "\\(nnml\\+archive:\\)\\(.*\\)"
				    "archive/\\2")
		 "\\(nnml:\\)\\(.*\\)" "\\2"))
	(dir (concat message-directory folder)))
    (call-process "gunzip" nil nil nil (concat dir "/*.gz"))
    (call-process "folder" nil nil nil (concat "+" folder) "-pack")
    (nnml-generate-nov-databases-1 (concat dir))
    (call-process "gzip" nil nil nil (concat dir "/*"))
    (gnus-summary-reselect-current-group)))

-- 
Mark Moll