From fbac2da8239b0261301b91fcb97e0d4f50366f61 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 19 Sep 2010 03:06:40 +0200 Subject: [PATCH] Bind `process-connection-type' to nil, so that CRLF doesn't get translated to \n. (nnimap-open-connection): Don't make 'shell commands only send \n. --- lisp/ChangeLog | 3 +++ lisp/nnimap.el | 18 ++++++++---------- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b6004e62..073322f60 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,9 @@ * nnimap.el (nnimap-finish-retrieve-group-infos): Return data in the nntp buffer so the agent can save it. + (nnimap-open-shell-stream): Bind `process-connection-type' to nil, so + that CRLF doesn't get translated to \n. + (nnimap-open-connection): Don't make 'shell commands only send \n. 2010-09-18 Julien Danjou diff --git a/lisp/nnimap.el b/lisp/nnimap.el index a19f96cb7..789c21326 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -197,14 +197,14 @@ not done by default on servers that doesn't support that command.") (current-buffer))) (defun nnimap-open-shell-stream (name buffer host port) - (let ((process (start-process name buffer shell-file-name - shell-command-switch - (format-spec - nnimap-shell-program - (format-spec-make - ?s host - ?p port))))) - process)) + (let ((process-connection-type nil)) + (start-process name buffer shell-file-name + shell-command-switch + (format-spec + nnimap-shell-program + (format-spec-make + ?s host + ?p port))))) (defun nnimap-credentials (address ports) (let (port credentials) @@ -263,8 +263,6 @@ not done by default on servers that doesn't support that command.") (delete-process (nnimap-process nnimap-object)) (setq nnimap-object nil)))) (when nnimap-object - (when (eq nnimap-stream 'shell) - (setf (nnimap-newlinep nnimap-object) t)) (setf (nnimap-capabilities nnimap-object) (mapcar #'upcase -- 2.34.1