#1 ":deliver-rules" and ":refile-rules" don't seem to work

[Anonymous]

":deliver-rules" and ":refile-rules" don't seem to work:

host$ ls -l ~/.scmail/
total 2
-rw-r--r-- 1 foo users 201 Feb 2 18:59 config
-rw-r--r-- 1 foo users 0 Feb 2 18:59 log
-rw-r--r-- 1 foo users 76 Feb 2 19:00 rules
host$ cat ~/.scmail/config
;; -*- scheme -*-
(
:smtp-host "localhost"
:log-file "~/.scmail/log"
:umask #o077
:refile-rules "rules"
:deliver-rules "rules"
:mailbox "~/Mail"
:inbox "inbox"
:mailbox-type mh
)
host$ cat ~/.scmail/rules
;; -*- scheme -*-

(add-filter-rule!
(lambda (mail) (copy mail "scmail")))
host$ scmail-refile -v
error: couldn't open input file: "/home/yuusuke/.scmail/refile-rules"
host$

Environment:
host$ uname -v
FreeBSD 6.2-RELEASE #0: Fri Jan 12 11:05:30 UTC 2007 root@dessler.cse.buffalo.edu:/usr/obj/usr/src/sys/SMP
host$ pkg_info -a -I | egrep '(scmail|gauche)'
gauche-0.8.9 Scheme script interpreter with multibyte character handling
gauche-gdbm-0.8.9 GDBM interface for Gauche
scmail-1.3 A mail filter written in Scheme
slib-gauche-3a1 SLIB installation for Gauche
host$ gosh -V
Gauche scheme interpreter, version 0.8.9 [utf-8,pthreads]

Patch:
--- scmail.scm.orig Mon Jul 26 23:43:20 2004
+++ scmail.scm Fri Feb 2 19:16:37 2007
@@ -352,7 +352,7 @@
(scmail-set-program-name! (car args))
(scmail-check-gauche-version)
(let* ((config-file (scmail-config-default-file))
- (rule-file (scmail-config-get-path rule))
+ (rule-file #f)
(target-folder #f)
(verbose-mode #f)
(dry-run-mode #f))
@@ -385,7 +385,7 @@
(scmail-config-read config-file)
(sys-umask (ref (scmail-config) 'umask))
(scmail-config-make-directory)
- (read-filter-rule rule-file)
+ (read-filter-rule (or rule-file (scmail-config-get-path rule)))
(main-process (make-scmail-mailbox
(ref (scmail-config) 'mailbox-type)
(ref (scmail-config) 'mailbox))