Re: B c with nnimap: extra newlines

[Simon Josefsson <jas@pdc.kth.se>]

Janne Rinta-Manty <jrm@iki.fi> writes:

> JRM> I have a problem with nnimap: moving articles (B m) to other
> JRM> nnimap folders works fine, but copying (B c) doubles every
> JRM> newline in the article, including headers.
> 
> I seem to have solved the problem now by commenting out the following
> lines from nnimap-request-accept-article:
> 
> 		  ;; turn into rfc822 format (\r\n eol's)
> ;		  (with-current-buffer (current-buffer)
> ;		    (goto-char (point-min))
> ;		    (while (search-forward "\n" nil t)
> ;		      (replace-match "\r\n")))
> 
> Assuming the above code works for everybody else, I wonder what's
> wrong with my setup. IMAP server? SSH? Or should imap-client-eol be
> used instead of "\r\n" (I have set it to "\n")?

Are you using SSH port-forwarding?  Perhaps it doesn't preserve CRLF?
Was that the reason for changing `imap-client-eol'?

Anyway, I think there was a bug involved when modifying
`imap-client-eol'. Could you please back out your patch and test this
instead?

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 1.10
diff -w -u -u -w -r1.10 imap.el
--- imap.el	2000/01/04 15:45:06	1.10
+++ imap.el	2000/01/13 14:39:06
@@ -1320,11 +1320,11 @@
 		       (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)