/[mailutils]/mailutils/guimb/scm/sieve-core.scm
ViewVC logotype

Diff of /mailutils/guimb/scm/sieve-core.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by gray, Thu May 16 11:17:59 2002 UTC revision 1.9 by gray, Tue Aug 13 13:24:57 2002 UTC
# Line 65  Line 65 
65  (define (sieve-expand-filename filename)  (define (sieve-expand-filename filename)
66    (case (string-ref filename 0)    (case (string-ref filename 0)
67      ((#\~)      ((#\~)
68       (let ((pw (mu_getpwuid (geteuid))))       (let ((pw (mu-getpwuid (geteuid))))
69          (if (and (vector? pw)          (if (and (vector? pw)
70                   (let ((dir (vector-ref pw 5)))                   (let ((dir (vector-ref pw 5)))
71                     (and                     (and

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26