Mercurial > emacs

comparison lisp/mail/sendmail.el @ 59996:aac0a33f5772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents af2c1ea381f4
children 2333319dc01c 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
280 "*Directory for mail buffers. 280 "*Directory for mail buffers.
281 Value of `default-directory' for mail buffers. 281 Value of `default-directory' for mail buffers.
282 This directory is used for auto-save files of mail buffers." 282 This directory is used for auto-save files of mail buffers."
283 :type '(directory :tag "Directory") 283 :type '(directory :tag "Directory")
284 :group 'sendmail 284 :group 'sendmail
285 :version "21.4") 285 :version "22.1")
286 286
287 (defvar mail-reply-action nil) 287 (defvar mail-reply-action nil)
288 (defvar mail-send-actions nil 288 (defvar mail-send-actions nil
289 "A list of actions to be performed upon successful sending of a message.") 289 "A list of actions to be performed upon successful sending of a message.")
290 (put 'mail-reply-action 'permanent-local t) 290 (put 'mail-reply-action 'permanent-local t)
322 support Delivery Status Notification." 322 support Delivery Status Notification."
323 :group 'sendmail 323 :group 'sendmail
324 :type '(repeat (radio (const :tag "Failure" failure) 324 :type '(repeat (radio (const :tag "Failure" failure)
325 (const :tag "Delay" delay) 325 (const :tag "Delay" delay)
326 (const :tag "Success" success))) 326 (const :tag "Success" success)))
327 :version "21.4") 327 :version "22.1")
328 328
329 ;; Note: could use /usr/ucb/mail instead of sendmail; 329 ;; Note: could use /usr/ucb/mail instead of sendmail;
330 ;; options -t, and -v if not interactive. 330 ;; options -t, and -v if not interactive.
331 (defvar mail-mailer-swallows-blank-line 331 (defvar mail-mailer-swallows-blank-line
332 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration) 332 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration)