X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-imap4.el;h=3f694d4aff03aacfc61242011523c0f9b9c3fee9;hb=ba3cbf9aa81cbbeaf6d7016121f364ae3784bf79;hp=c7a4ff9dc7b33d1c4e1fbf709d5db773550853b2;hpb=3394755a37d70df50e840ce4ec7cb7d19c8cf0a0;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index c7a4ff9..3f694d4 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -879,10 +879,8 @@ If CHOP-LENGTH is not specified, message set is not chopped."
      (with-temp-buffer
        (insert (or (elmo-imap4-response-bodydetail-text element)
 		   ""))
-       ;; Delete CR.
-       (goto-char (point-min))
-       (while (search-forward "\r\n" nil t)
-	 (replace-match "\n"))
+       ;; Replace all CRLF with LF.
+       (elmo-delete-cr-buffer)
        (elmo-msgdb-create-message-entity-from-buffer
 	handler
 	(elmo-imap4-response-value element 'uid)