I inappropriately sent this to xemacs-review before. This is a resend to xemacs-beta. Hello Simon, I do see the problem you describe. So I gave your patch a try by building a new package locally with an incremented VERSION number. I installed it, started a new XEmacs to send an E-mail from it, and still got this: Message-Log: Sending... unknown extension (size 33554432) unknown extension 8bitmime unknown extension help Sending...done *trace of SMTP session to mailto.t-online.de*: 220 fwd01.sul.t-online.com T-Online ESMTP receiver fsmtpd ready. EHLO D5DC120J.t-online.de 250-fwd01.sul.t-online.com ready. 250-SIZE 33554432 250-8BITMIME 250 HELP MAIL FROM: <Adrian.Aichner(a)T-Online.De&gt; SIZE=6819 250 Ok. RCPT TO: <Adrian.Aichner(a)T-Online.De&gt; 250 Ok. RCPT TO: <turnbull(a)sk.tsukuba.ac.jp&gt; 250 Ok. DATA 354 Ok, start with data. . 250 Message accepted. QUIT 221 fwd01.sul.t-online.com closing. All this with (emacs-version) "XEmacs 21.1 (patch 14) \"Cuyahoga Valley\" [Lucid] (i386-pc-win32) of Wed Mar 14 2001 on D5DC120J" gnus-version "Gnus v5.8.8" What to make of this? Best regards, Adrian Simon> Hi, I'll commit this to xemacs-mail-lib shortly. It removes the Simon> "unknown extension" warning if a server passes arguments to EHLO Simon> tokens (like the argument for SIZE to specify maximum mail size the Simon> server will accept). Simon> 2001-03-22 Simon Josefsson <simon(a)josefsson.org&gt; Simon> * smtpmail.el (smtpmail-via-smtp): Support EHLO SIZE arguments. Simon> Index: smtpmail.el Simon> =================================================================== Simon> RCS file: /usr/CVSroot/XEmacs/xemacs-packages/libs/mail-lib/smtpmail.el,v Simon> retrieving revision 1.5 Simon> diff -u -w -r1.5 smtpmail.el Simon> --- smtpmail.el 2000/12/12 19:12:26 1.5 Simon> +++ smtpmail.el 2001/03/22 16:23:24 Simon> ＠＠ -442,18 +442,15 ＠＠ Simon> (and (eq (length name) 1) Simon> (setq name (car name))) Simon> (and name Simon> - (cond ((memq name '(verb xvrb 8bitmime onex xone Simon> + (if (memq (if (consp name) (car name) name) Simon> + '(verb xvrb 8bitmime onex xone Simon> expn size dsn etrn Simon> enhancedstatuscodes Simon> help xusr Simon> auth=login auth starttls)) Simon> (setq supported-extensions Simon> (cons name supported-extensions))) Simon> - ((and (consp name) (memq (car name) '(auth))) Simon> - (setq supported-extensions Simon> - (cons name supported-extensions))) Simon> - (t (message "unknown extension %s" Simon> - name))))) Simon> + (message "unknown extension %s" name))) Simon> (setq extension-lines (cdr extension-lines))))) Simon> (if (and (smtpmail-find-credentials smtpmail-starttls-credentials host port) Simon> ＠＠ -536,7 +533,8 ＠＠ Simon> ;; MAIL FROM: <sender> Simon> (let ((size-part Simon> - (if (member 'size supported-extensions) Simon> + (if (or (member 'size supported-extensions) Simon> + (assoc 'size supported-extensions)) Simon> (format " SIZE=%d" Simon> (save-excursion Simon> (set-buffer smtpmail-text-buffer) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/