/[mailutils]/mailutils/guimb/scm/redirect.scm
ViewVC logotype

Diff of /mailutils/guimb/scm/redirect.scm

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

revision 1.3 by gray, Tue Oct 23 22:31:52 2001 UTC revision 1.4 by gray, Fri Dec 28 22:33:01 2001 UTC
# Line 44  Line 44 
44         (else         (else
45          (let ((out-msg (mu-message-copy sieve-current-message)))          (let ((out-msg (mu-message-copy sieve-current-message)))
46            (mu-message-set-header out-msg "X-Sender" sieve-my-email)            (mu-message-set-header out-msg "X-Sender" sieve-my-email)
47            (sieve-message-bounce out-msg (list address))            (mu-message-send out-msg #f sender address)
48            (mu-message-destroy out-msg))            (mu-message-destroy out-msg))
49          (mu-message-delete sieve-current-message)))))          (mu-message-delete sieve-current-message)))))
50    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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