From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/45179 Path: main.gmane.org!not-for-mail From: lawrence mitchell <0198183+ding@sms.ed.ac.uk> Newsgroups: gmane.emacs.gnus.general Subject: patch for gnus-int.el Date: Sun, 09 Jun 2002 22:06:31 +0100 Organization: me Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1023656902 11002 127.0.0.1 (9 Jun 2002 21:08:22 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 9 Jun 2002 21:08:22 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17H9vC-0002rK-00 for ; Sun, 09 Jun 2002 23:08:22 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17H9uV-0008Ck-00; Sun, 09 Jun 2002 16:07:39 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 09 Jun 2002 16:07:57 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id QAA14850 for ; Sun, 9 Jun 2002 16:07:46 -0500 (CDT) Original-Received: (qmail 21392 invoked by alias); 9 Jun 2002 21:07:24 -0000 Original-Received: (qmail 21387 invoked from network); 9 Jun 2002 21:07:24 -0000 Original-Received: from grassmarket.ucs.ed.ac.uk (129.215.166.64) by gnus.org with SMTP; 9 Jun 2002 21:07:24 -0000 Original-Received: from FURRFU.resnet (19852584.resnet.ed.ac.uk [10.20.0.77]) by grassmarket.ucs.ed.ac.uk (8.11.6/8.11.6) with ESMTP id g59L7Jo26685 for ; Sun, 9 Jun 2002 22:07:22 +0100 (BST) Original-To: ding@gnus.org X-No-Yes: No Mail-Followup-To: ding@gnus.org Mail-Copies-To: nobody Original-Lines: 30 User-Agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2 (i386-msvc-nt5.0.2195) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:45179 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:45179 Having just updated from CVS, I noticed that `gnus-request-expire-articles' was no longer working, seems that it accidentally uses a let rather than let*, this patch fixed it for me: diff -u -r "f:/text/emacs/site-lisp/gnus/gnus-int.el.orig" "f:/text/emacs/site-lisp/gnus/gnus-int.el" --- f:/text/emacs/site-lisp/gnus/gnus-int.el.orig Sun Jun 09 22:00:07 2002 +++ f:/text/emacs/site-lisp/gnus/gnus-int.el Sun Jun 09 22:01:00 2002 @@ -484,12 +484,12 @@ info (nth 1 gnus-command-method)))) (defun gnus-request-expire-articles (articles group &optional force) - (let ((gnus-command-method (gnus-find-method-for-group group)) - (not-deleted - (funcall - (gnus-get-function gnus-command-method 'request-expire-articles) - articles (gnus-group-real-name group) (nth 1 gnus-command-method) - force))) + (let* ((gnus-command-method (gnus-find-method-for-group group)) + (not-deleted + (funcall + (gnus-get-function gnus-command-method 'request-expire-articles) + articles (gnus-group-real-name group) (nth 1 gnus-command-method) + force))) (when (and gnus-agent gnus-agent-cache (gnus-sorted-difference articles not-deleted)) (gnus-agent-expire (gnus-sorted-difference articles not-deleted) -- lawrence mitchell <0198183+ding@sms.ed.ac.uk>