*** d:/emacs/emacs-20.3.1/lisp/mail/smtpmail.el	Tue May 12 12:35:51 1998
--- smtpmail.el	Mon Aug 31 21:32:01 1998
***************
*** 351,357 ****
  		      (throw 'done nil)))
  	      (let ((extension-lines (cdr (cdr response-code))))
  		(while extension-lines
! 		  (let ((name (intern (downcase (substring (car extension-lines) 4)))))
  		    (and name
  			 (cond ((memq name '(verb xvrb 8bitmime onex xone
  						  expn size dsn etrn
--- 351,357 ----
  		      (throw 'done nil)))
  	      (let ((extension-lines (cdr (cdr response-code))))
  		(while extension-lines
! 		  (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