Mercurial > emacs

comparison lisp/mail/smtpmail.el @ 37598:595c23d107f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-warn-about-unknown-extensions): New option. (smtpmail-via-smtp): Print warnings about unknown SMTP extensions only if smtpmail-warn-about-unknown-extensions is set.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 07 May 2001 11:24:12 +0000
parents a0126ac842dc
children 20c37aac51cd
comparison
equal deleted inserted replaced
37597:95a1e7b6d4cf 37598:595c23d107f8
1 ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail 1 ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
2 ;;; ### Hacked by Mike Taylor, 11th October 1999 to add support for 2 ;;; ### Hacked by Mike Taylor, 11th October 1999 to add support for
3 ;;; automatically appending a domain to RCPT TO: addresses. 3 ;;; automatically appending a domain to RCPT TO: addresses.
4 4
5 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. 5 ;; Copyright (C) 1995, 1996, 2001 Free Software Foundation, Inc.
6 6
7 ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp> 7 ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
8 ;; Maintainer: Brian D. Carlstrom <bdc@ai.mit.edu> 8 ;; Maintainer: Brian D. Carlstrom <bdc@ai.mit.edu>
9 ;; ESMTP support: Simon Leinen <simon@switch.ch> 9 ;; ESMTP support: Simon Leinen <simon@switch.ch>
10 ;; Keywords: mail 10 ;; Keywords: mail
117 :group 'smtpmail) 117 :group 'smtpmail)
118 118
119 (defcustom smtpmail-queue-dir "~/Mail/queued-mail/" 119 (defcustom smtpmail-queue-dir "~/Mail/queued-mail/"
120 "*Directory where `smtpmail.el' stores queued mail." 120 "*Directory where `smtpmail.el' stores queued mail."
121 :type 'directory 121 :type 'directory
122 :group 'smtpmail)
123
124 (defcustom smtpmail-warn-about-unknown-extensions nil
125 "*If set, print warnings about unknown SMTP extensions.
126 This is mainly useful for development purposes, to learn about
127 new SMTP extensions that might be useful to support."
128 :type 'boolean
122 :group 'smtpmail) 129 :group 'smtpmail)
123 130
124 (defvar smtpmail-queue-index-file "index" 131 (defvar smtpmail-queue-index-file "index"
125 "File name of queued mail index, 132 "File name of queued mail index,
126 This is relative to `smtpmail-queue-dir'.") 133 This is relative to `smtpmail-queue-dir'.")
391 (cond ((memq name '(verb xvrb 8bitmime onex xone 398 (cond ((memq name '(verb xvrb 8bitmime onex xone
392 expn size dsn etrn 399 expn size dsn etrn
393 help xusr)) 400 help xusr))
394 (setq supported-extensions 401 (setq supported-extensions
395 (cons name supported-extensions))) 402 (cons name supported-extensions)))
396 (t (message "unknown extension %s" 403 (smtpmail-warn-about-unknown-extensions
397 name))))) 404 (message "Unknown extension %s" name)))))
398 (setq extension-lines (cdr extension-lines))))) 405 (setq extension-lines (cdr extension-lines)))))
399 406
400 (if (or (member 'onex supported-extensions) 407 (if (or (member 'onex supported-extensions)
401 (member 'xone supported-extensions)) 408 (member 'xone supported-extensions))
402 (progn 409 (progn