procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(smtpmail-via-smtp): Parse out the first word

Browse source 
on extension lines.
This commit is contained in:
Karl Heuer 1998-09-04 20:08:58 +00:00
parent ae5f1b888f
commit 2c79f5b831
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/smtpmail.el
View file

@ -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