mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(smtpmail-warn-about-unknown-extensions): New

Browse source 
option.
(smtpmail-via-smtp): Print warnings about unknown SMTP extensions
only if smtpmail-warn-about-unknown-extensions is set.
This commit is contained in:
Gerd Moellmann 2001-05-07 11:24:51 +00:00
parent 47ba811051
commit 1b62b0624f
2 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2001-05-07 Gerd Moellmann <gerd@gnu.org>
* mail/smtpmail.el (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.
* mail/rmail.el (rmail-mode-map): Use rmail-sort-by-labels
instead of rmail-sort-by-keywords.

13
lisp/mail/smtpmail.el
View file

@ -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 @@ 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
: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 @@ 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)