Mercurial > emacs

changeset 23181:89d6facea3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-via-smtp): Parse out the first word on extension lines.
author Karl Heuer <kwzh@gnu.org>
date Fri, 04 Sep 1998 20:08:58 +0000
parents d894edff4984
children 0ba967162ee0
files lisp/mail/smtpmail.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el	Fri Sep 04 20:07:04 1998 +0000
+++ b/lisp/mail/smtpmail.el	Fri Sep 04 20:08:58 1998 +0000
@@ -350,7 +350,7 @@
 		      (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