/[emacs]/emacs/lisp/mail/sendmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/sendmail.el

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

revision 1.252 by rms, Sun Mar 3 22:18:12 2002 UTC revision 1.253 by rms, Thu Apr 25 21:33:14 2002 UTC
# Line 1  Line 1 
1  ;;; sendmail.el --- mail sending commands for Emacs.  -*- byte-compile-dynamic: t -*-  ;;; sendmail.el --- mail sending commands for Emacs.  -*- byte-compile-dynamic: t -*-
2    
3  ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001  ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002
4  ;;   Free Software Foundation, Inc.  ;;   Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 301  for the recipient, who may not know how Line 301  for the recipient, who may not know how
301    :type '(choice (const t) (const nil) (const query) (const mime))    :type '(choice (const t) (const nil) (const query) (const mime))
302    :group 'sendmail)    :group 'sendmail)
303    
304    (defcustom mail-use-dsn nil
305      "*Ask MTA for notification of failed, delayed or successful delivery.
306    Note that only some MTAs (currently only recent versions of Sendmail)
307    support Delivery Status Notification."
308      :group 'sendmail
309      :type '(repeat (radio (const :tag "Failure" failure)
310                            (const :tag "Delay" delay)
311                            (const :tag "Success" success)))
312      :version "21.3")
313    
314  ;; Note: could use /usr/ucb/mail instead of sendmail;  ;; Note: could use /usr/ucb/mail instead of sendmail;
315  ;; options -t, and -v if not interactive.  ;; options -t, and -v if not interactive.
316  (defvar mail-mailer-swallows-blank-line  (defvar mail-mailer-swallows-blank-line
# Line 991  external program defined by `sendmail-pr Line 1001  external program defined by `sendmail-pr
1001  ;;;                           (or resend-to-addresses  ;;;                           (or resend-to-addresses
1002                                    '("-t")                                    '("-t")
1003  ;;;                               )  ;;;                               )
1004                                  (if mail-use-dsn
1005                                      (list "-N" (mapconcat 'symbol-name
1006                                                            mail-use-dsn ",")))
1007                                )                                )
1008                        )                        )
1009                       (exit-value (apply 'call-process-region args)))                       (exit-value (apply 'call-process-region args)))

Legend:
Removed from v.1.252  
changed lines
  Added in v.1.253

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