diff options
| author | Karl Heuer | 1998-09-04 20:08:58 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-04 20:08:58 +0000 |
| commit | 2c79f5b83167eef163568818b6cb17a8ada67abf (patch) | |
| tree | 795c53bc7ef3ed60cd266a033c2794039cdc99b9 | |
| parent | ae5f1b888f9589d09b85fc05ab300d8d1732bff6 (diff) | |
| download | emacs-2c79f5b83167eef163568818b6cb17a8ada67abf.tar.gz emacs-2c79f5b83167eef163568818b6cb17a8ada67abf.zip | |
(smtpmail-via-smtp): Parse out the first word
on extension lines.
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'.") | |||
| 350 | (throw 'done nil))) | 350 | (throw 'done nil))) |
| 351 | (let ((extension-lines (cdr (cdr response-code)))) | 351 | (let ((extension-lines (cdr (cdr response-code)))) |
| 352 | (while extension-lines | 352 | (while extension-lines |
| 353 | (let ((name (intern (downcase (substring (car extension-lines) 4))))) | 353 | (let ((name (intern (downcase (car (split-string (substring (car extension-lines) 4) "[ ]")))))) |
| 354 | (and name | 354 | (and name |
| 355 | (cond ((memq name '(verb xvrb 8bitmime onex xone | 355 | (cond ((memq name '(verb xvrb 8bitmime onex xone |
| 356 | expn size dsn etrn | 356 | expn size dsn etrn |