From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/21665 Path: main.gmane.org!not-for-mail From: jari.aalto@poboxes.com (Jari Aalto+mail.emacs) Newsgroups: gmane.emacs.gnus.general Subject: 0.79 nnmail-spool-file 'directory read error (patch included) Date: 28 Feb 1999 16:44:55 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035159727 24103 80.91.224.250 (21 Oct 2002 00:22:07 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:22:07 +0000 (UTC) Keywords: file,spool,list,suffix,source,regexp-quote,predicate,path Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id JAA13822 for ; Sun, 28 Feb 1999 09:46:21 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id IAB04070; Sun, 28 Feb 1999 08:45:18 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 28 Feb 1999 08:45:53 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id IAA04505 for ; Sun, 28 Feb 1999 08:45:43 -0600 (CST) Original-Received: from axl01it.ntc.nokia.com (axl01it.ntc.nokia.com [131.228.118.232]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id JAA13808 for ; Sun, 28 Feb 1999 09:45:34 -0500 (EST) Original-Received: from zeus.ntc.nokia.com (zeus.ntc.nokia.com [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id QAA11551 for ; Sun, 28 Feb 1999 16:44:05 +0200 (EET) Original-Received: from creator.ntc.nokia.com (creator.ntc.nokia.com [131.228.48.178]) by zeus.ntc.nokia.com (8.6.4/8.6.4) with ESMTP id QAA15828 for ; Sun, 28 Feb 1999 16:53:42 +0200 Original-Received: (from jaalto@localhost) by creator.ntc.nokia.com (8.8.6 (PHNE_14041)/8.7.1) id QAA06339; Sun, 28 Feb 1999 16:44:55 +0200 (EET) Original-To: Ding mailing list X-Sender-Info: Emacs tiny tools: ftp://cs.uta.fi/pub/ssjaaa/ File server: Send subject 'send help' to PGP 2.6.x keyid 47141D35 http://www.pgp.net/pgpnet/ Original-Lines: 54 User-Agent: Gnus/5.070079 (Pterodactyl Gnus v0.79) Emacs/20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:21665 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:21665 Downloaded latest 0.79 and wondered why command my-gnus-group-get-new-news-this-group No more read the nnml procmail spool files. I chased it to the wrong regexp definition in nnmail::mail-source-fetch. Since the files all have suffix ".spool" the regexp never matches due to extra "$". (setq-default nnmail-spool-file (list (list 'file ':path (getenv "MAIL")) (list 'directory ':path spool ':suffix ".spool") ;; .prcml )) The problem crystalized in mail-source-fetch-directory. jari (dolist (file (directory-files path t (concat (regexp-quote suffix) "$"))) >> already filters .spool (d!! (file-name-nondirectory file) predicate callback "\n\n" ) (when (and (file-regular-p file) (funcall predicate file) >> but this will never accept file mail.default.spool (mail-source-movemail file mail-source-crash-box)) (incf found (mail-source-callback callback file)))) found))) --- nnmail.el.orig Sun Feb 28 16:36:36 1999 +++ nnmail.el Sun Feb 28 16:36:47 1999 @@ -1379,8 +1379,8 @@ (setq source (append source (list :predicate `(lambda (file) - (string-match - ,(concat (regexp-quote group) "$") + (string-match + ,(concat (regexp-quote group) ) file)))))) (when nnmail-fetched-sources (if (member source nnmail-fetched-sources)