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 |
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 |
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))) |