From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56907 Path: main.gmane.org!not-for-mail From: Jesper Harder Newsgroups: gmane.emacs.gnus.general Subject: Re: CRM114 Mailfilter and spam.el Date: Sun, 04 Apr 2004 03:59:53 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: References: <87isgjpggh.fsf@virgil.koldfront.dk> <877jwwfwa6.fsf@virgil.koldfront.dk> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1081044276 15666 80.91.224.253 (4 Apr 2004 02:04:36 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 4 Apr 2004 02:04:36 +0000 (UTC) Original-X-From: ding-owner+M5446@lists.math.uh.edu Sun Apr 04 04:04:30 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B9wzt-0005Rq-00 for ; Sun, 04 Apr 2004 04:04:29 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1B9wzB-0004rz-00; Sat, 03 Apr 2004 20:03:45 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1B9wz4-0004rt-00 for ding@lists.math.uh.edu; Sat, 03 Apr 2004 20:03:38 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1B9wz3-0000OG-Hc for ding@lists.math.uh.edu; Sat, 03 Apr 2004 20:03:37 -0600 Original-Received: from pfepc.post.tele.dk (pfepc.post.tele.dk [195.41.46.237]) by justine.libertine.org (Postfix) with ESMTP id AE6CC3A0037 for ; Sat, 3 Apr 2004 20:03:35 -0600 (CST) Original-Received: from [195.249.83.3] (0xc3f95303.esnxr2.ras.tele.dk [195.249.83.3]) by pfepc.post.tele.dk (Postfix) with ESMTP id 52E13262805 for ; Sun, 4 Apr 2004 04:03:28 +0200 (CEST) Original-To: ding@gnus.org Mail-Followup-To: ding@gnus.org In-Reply-To: <877jwwfwa6.fsf@virgil.koldfront.dk> (Adam =?iso-8859-1?q?Sj=F8gren's?= message of "Sun, 04 Apr 2004 01:59:13 +0200") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-Spam-Score: -4.8 (----) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:56907 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56907 asjo@koldfront.dk (Adam Sj=F8gren) writes: > + (if db `("", db) `("")))) ; asjo: I don't know how to do this right. > + ; I'd like to add --fi= leprefix=3Ddb if > + ; db is set. Do you mean: (defun spam-check-crm114 (&optional score) "Check the CRM114 Mailfilter back end for the classification of this mess= age." (let ((article-buffer-name (buffer-name)) (db spam-crm114-database-directory)) (with-temp-buffer (let ((temp-buffer-name (buffer-name))) (with-current-buffer article-buffer-name (apply 'call-process-region (point-min) (point-max) spam-crm114-path nil temp-buffer-name nil (when db (list (concat "--fileprefix=3D" db))))) (spam-check-crm114-headers score))))) [untested!] > + (defcustom spam-crm114-path (executable-find "mailfilter.crm") > + "File path of the CRM114 Mailfilter executable program." > + :type '(choice (file :tag "Location of CRM114 Mailfilter") > + (const :tag "CRM114 Mailfilter is not installed")) > + :group 'spam-crm114) This isn't a very good name[1]. I think `spam-crm114-program' would be clearer. [1] From the GNU coding standards: Please do not use the term ``pathname'' that is used in Unix documentation; use ``file name'' (two words) instead. We use the term ``path'' only for search paths, which are lists of directory names. --=20 Jesper Harder