Mercurial > emacs
changeset 37598:595c23d107f8
(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 | 95a1e7b6d4cf |
| children | 750b22aa861a |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Mon May 07 11:17:09 2001 +0000 +++ b/lisp/mail/smtpmail.el Mon May 07 11:24:12 2001 +0000 @@ -2,7 +2,7 @@ ;;; ### Hacked by Mike Taylor, 11th October 1999 to add support for ;;; automatically appending a domain to RCPT TO: addresses. -;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 2001 Free Software Foundation, Inc. ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp> ;; Maintainer: Brian D. Carlstrom <bdc@ai.mit.edu> @@ -121,6 +121,13 @@ :type 'directory :group 'smtpmail) +(defcustom smtpmail-warn-about-unknown-extensions nil + "*If set, print warnings about unknown SMTP extensions. +This is mainly useful for development purposes, to learn about +new SMTP extensions that might be useful to support." + :type 'boolean + :group 'smtpmail) + (defvar smtpmail-queue-index-file "index" "File name of queued mail index, This is relative to `smtpmail-queue-dir'.") @@ -393,8 +400,8 @@ help xusr)) (setq supported-extensions (cons name supported-extensions))) - (t (message "unknown extension %s" - name))))) + (smtpmail-warn-about-unknown-extensions + (message "Unknown extension %s" name))))) (setq extension-lines (cdr extension-lines))))) (if (or (member 'onex supported-extensions)