← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty-proposed

« back to all changes in this revision

Viewing changes to src/edwin/sendmail.scm

  • Committer: Bazaar Package Importer
  • Author(s): Soren Hansen
  • Date: 2007-05-09 10:57:57 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070509105757-p8focimovgqxaaed
Tags: 7.7.90+20070205-1ubuntu1
* Merge from debian unstable, remaining changes:
  * Bootstrapping done via supplied binary package. See log entry for
    7.7.90+20060906-3ubuntu1 for details.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/edwin/sendmail.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: sendmail.scm,v 1.87 2006/06/12 04:19:43 cph Exp $
 
3
$Id: sendmail.scm,v 1.90 2007/01/05 21:19:24 cph Exp $
4
4
 
5
 
Copyright 1991,1992,1993,1994,1995,1996 Massachusetts Institute of Technology
6
 
Copyright 1997,1998,2000,2001,2003,2004 Massachusetts Institute of Technology
7
 
Copyright 2005,2006 Massachusetts Institute of Technology
 
5
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
 
6
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 
7
    2006, 2007 Massachusetts Institute of Technology
8
8
 
9
9
This file is part of MIT/GNU Scheme.
10
10
 
20
20
 
21
21
You should have received a copy of the GNU General Public License
22
22
along with MIT/GNU Scheme; if not, write to the Free Software
23
 
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 
23
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
24
24
USA.
25
25
 
26
26
|#
150
150
 
151
151
(define-variable sendmail-program
152
152
  "Filename of sendmail program."
153
 
  (os/sendmail-program)
154
 
  string?)
 
153
  #f
 
154
  string-or-false?)
155
155
 
156
156
(define-variable send-mail-procedure
157
157
  "Procedure to call to send the current buffer as mail.
862
862
 
863
863
(define (send-mail-using-sendmail message-pathname lookup-context)
864
864
  (message "Sending...")
865
 
  (let ((program (ref-variable sendmail-program lookup-context)))
 
865
  (let ((program
 
866
         (or (ref-variable sendmail-program lookup-context)
 
867
             (os/sendmail-program))))
866
868
    (if (ref-variable mail-interactive lookup-context)
867
869
        (call-with-temporary-buffer " sendmail errors"
868
870
          (lambda (error-buffer)