diff options
| author | Lars Ingebrigtsen | 2019-07-13 01:31:12 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-13 01:31:24 +0200 |
| commit | 99e8d6fc26a163001c3a7ccf6786e1c4ecc5788e (patch) | |
| tree | 6528230aef1117ceb4c2ddb22ffbeda1f420e525 | |
| parent | 655fe3fe0de92ace4a97dd3c478c3683b163e132 (diff) | |
| download | emacs-99e8d6fc26a163001c3a7ccf6786e1c4ecc5788e.tar.gz emacs-99e8d6fc26a163001c3a7ccf6786e1c4ecc5788e.zip | |
Fix long credentials when using auth in nnimap.el
* lisp/gnus/nnimap.el (nnimap-login): When base64-ing
credentials, don't let bsae64-encode-string split the result into
several lines, because servers do not understand that (bug#34458).
| -rw-r--r-- | lisp/gnus/nnimap.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 9e52abc1ca7..06817f452d2 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el | |||
| @@ -570,7 +570,8 @@ textual parts.") | |||
| 570 | (base64-encode-string | 570 | (base64-encode-string |
| 571 | (concat user " " | 571 | (concat user " " |
| 572 | (rfc2104-hash 'md5 64 16 password | 572 | (rfc2104-hash 'md5 64 16 password |
| 573 | (base64-decode-string challenge)))) | 573 | (base64-decode-string challenge))) |
| 574 | t) | ||
| 574 | "\r\n")) | 575 | "\r\n")) |
| 575 | (nnimap-wait-for-response sequence))) | 576 | (nnimap-wait-for-response sequence))) |
| 576 | ((and (not (nnimap-capability "LOGINDISABLED")) | 577 | ((and (not (nnimap-capability "LOGINDISABLED")) |
| @@ -586,7 +587,8 @@ textual parts.") | |||
| 586 | (base64-encode-string | 587 | (base64-encode-string |
| 587 | (format "\000%s\000%s" | 588 | (format "\000%s\000%s" |
| 588 | (nnimap-quote-specials user) | 589 | (nnimap-quote-specials user) |
| 589 | (nnimap-quote-specials password))))))) | 590 | (nnimap-quote-specials password)) |
| 591 | t))))) | ||
| 590 | 592 | ||
| 591 | (defun nnimap-quote-specials (string) | 593 | (defun nnimap-quote-specials (string) |
| 592 | (with-temp-buffer | 594 | (with-temp-buffer |