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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b6004e..073322f 100644 (file)
--- 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  <julien@danjou.info>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index a19f96c..789c213 100644 (file)
--- 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