From 3e3cb3d2c9ff3a44447ac2473b4e742017fe41cb Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Wed, 23 Feb 2000 13:32:50 +0000 Subject: [PATCH] (imap-send-command): Change EOL-chars when `imap-client-eol' differs from default, not only for kerberos4. (imap-mailbox-status): Get encoded mailbox's status. --- lisp/imap.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/imap.el b/lisp/imap.el index 746043167..523af5e3f 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -1001,9 +1001,9 @@ returned, if ITEMS is a symbol only it's value is returned." (list items)))))) (if (listp items) (mapcar (lambda (item) - (imap-mailbox-get-1 item mailbox)) + (imap-mailbox-get item mailbox)) items) - (imap-mailbox-get-1 items mailbox))))) + (imap-mailbox-get items mailbox))))) (defun imap-mailbox-acl-get (&optional mailbox buffer) "Get ACL on mailbox from server in BUFFER." @@ -1320,11 +1320,11 @@ on failure." (let ((process imap-process) (stream imap-stream)) (with-current-buffer cmd - (when (eq stream 'kerberos4) + (when (not (equal imap-client-eol "\r\n")) ;; XXX modifies buffer! (goto-char (point-min)) (while (search-forward "\r\n" nil t) - (replace-match "\n"))) + (replace-match imap-client-eol))) (and imap-log (with-current-buffer (get-buffer-create imap-log) -- 2.25.1