From 99df56360100416a9ed7ed7a02b531c959616a76 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 22 May 2001 09:24:54 +0000 Subject: [PATCH] GNU Emacs 21.0.103 with LEIM. --- mail/smtpmail.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/mail/smtpmail.el b/mail/smtpmail.el index 6f53489..abe0a36 100644 --- a/mail/smtpmail.el +++ b/mail/smtpmail.el @@ -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 ;; Maintainer: Brian D. Carlstrom @@ -121,6 +121,14 @@ and sent with `smtpmail-send-queued-mail'." :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 + :version "21.1" + :group 'smtpmail) + (defvar smtpmail-queue-index-file "index" "File name of queued mail index, This is relative to `smtpmail-queue-dir'.") @@ -393,8 +401,8 @@ This is relative to `smtpmail-queue-dir'.") 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) -- 1.7.10.4