From 2c79f5b83167eef163568818b6cb17a8ada67abf Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 4 Sep 1998 20:08:58 +0000 Subject: [PATCH] (smtpmail-via-smtp): Parse out the first word on extension lines. --- lisp/mail/smtpmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 8bbb98edd86..6e567148b1a 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -350,7 +350,7 @@ This is relative to `smtpmail-queue-dir'.") (throw 'done nil))) (let ((extension-lines (cdr (cdr response-code)))) (while extension-lines - (let ((name (intern (downcase (substring (car extension-lines) 4))))) + (let ((name (intern (downcase (car (split-string (substring (car extension-lines) 4) "[ ]")))))) (and name (cond ((memq name '(verb xvrb 8bitmime onex xone expn size dsn etrn -- 2.39.2