From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Sep 1998 20:08:58 +0000 (+0000)
Subject: (smtpmail-via-smtp): Parse out the first word
X-Git-Tag: emacs-20.4~1768
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c79f5b83167eef163568818b6cb17a8ada67abf;p=emacs.git

(smtpmail-via-smtp): Parse out the first word
on extension lines.
---

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