Mercurial > hg > xemacs-beta

comparison lisp/utils/smtpmail.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 1370575f1259
children 6075d714658b
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
43 ;;; Code: 43 ;;; Code:
44 44
45 (require 'sendmail) 45 (require 'sendmail)
46 46
47 ;;; 47 ;;;
48 (defvar smtpmail-default-smtp-server nil 48 (defgroup smtpmail nil
49 "*Specify default SMTP server.") 49 "SMTP protocol for sending mail."
50 50 :group 'mail)
51 (defvar smtpmail-smtp-server 51
52
53 (defcustom smtpmail-default-smtp-server nil
54 "*Specify default SMTP server."
55 :type '(choice (const nil) string)
56 :group 'smtpmail)
57
58 (defcustom smtpmail-smtp-server
52 (or (getenv "SMTPSERVER") smtpmail-default-smtp-server) 59 (or (getenv "SMTPSERVER") smtpmail-default-smtp-server)
53 "*The name of the host running SMTP server.") 60 "*The name of the host running SMTP server."
54 61 :type '(choice (const nil) string)
55 (defvar smtpmail-smtp-service 25 62 :group 'smtpmail)
56 "*SMTP service port number. smtp or 25 .") 63
57 64 (defcustom smtpmail-smtp-service 25
58 (defvar smtpmail-local-domain nil 65 "*SMTP service port number. smtp or 25 ."
66 :type '(choice (integer :tag "Port") (string :tag "Service"))
67 :group 'smtpmail)
68
69 (defcustom smtpmail-local-domain nil
59 "*Local domain name without a host name. 70 "*Local domain name without a host name.
60 If the function (system-name) returns the full internet address, 71 If the function (system-name) returns the full internet address,
61 don't define this value.") 72 don't define this value."
62 73 :type '(choice (const nil) string)
63 (defvar smtpmail-debug-info nil 74 :group 'smtpmail)
64 "*smtpmail debug info printout. messages and process buffer.") 75
65 76 (defcustom smtpmail-debug-info nil
66 (defvar smtpmail-code-conv-from nil ;; *junet* 77 "*smtpmail debug info printout. messages and process buffer."
67 "*smtpmail code convert from this code to *internal*..for tiny-mime..") 78 :type 'boolean
79 :group 'smtpmail)
80
81 (defcustom smtpmail-code-conv-from nil ;; *junet*
82 "*smtpmail code convert from this code to *internal*..for tiny-mime.."
83 :type 'boolean
84 :group 'smtpmail)
68 85
69 ;;; 86 ;;;
70 ;;; 87 ;;;
71 ;;; 88 ;;;
72 89