From: tomo <tomo>
Date: Tue, 22 May 2001 09:24:54 +0000 (+0000)
Subject: GNU Emacs 21.0.103 with LEIM.
X-Git-Tag: Emacs-21_0_103+LEIM
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99df56360100416a9ed7ed7a02b531c959616a76;p=elisp%2Flemi.git

GNU Emacs 21.0.103 with LEIM.
---

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 <kagatani@rbc.ncl.omron.co.jp>
 ;; Maintainer: Brian D. Carlstrom <bdc@ai.mit.edu>
@@ -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)