From f2527a0b47f78f1026b7c68620bd69a376016d78 Mon Sep 17 00:00:00 2001 From: Denis Zheleztsov Date: Tue, 26 Jun 2018 12:13:23 +0300 Subject: [PATCH] Fixes #3 --- idec-online.el | 6 +++++- idec.el | 6 ++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/idec-online.el b/idec-online.el index 375c8d4..a665f13 100644 --- a/idec-online.el +++ b/idec-online.el @@ -56,7 +56,11 @@ (setq subj (concat "Subject: " (get-message-field (gethash "content" msg-hash) "subj"))) (princ (concat subj "\n"))) (princ (concat "__________________________________\n\n" - (s-join "\n" (get-message-field (gethash "content" msg-hash) "body")))) + (replace-in-string "\r" "" + (s-join "\n" + (get-message-field + (gethash "content" msg-hash) + "body"))))) (princ "\n__________________________________\n") (princ "[") (insert-button "Answer" diff --git a/idec.el b/idec.el index 7ef17a9..4316226 100644 --- a/idec.el +++ b/idec.el @@ -81,7 +81,7 @@ put cursor to CHECKPOINT." (switch-to-buffer (concat "*IDEC: " (gethash "subj" msg) "*")) (princ (make-message-header msg)) (princ (concat "__________________________________\n\n" - (gethash "body" msg))) + (replace-in-string "\r" "" (gethash "body" msg)))) (princ "\n__________________________________\n") (princ "[") (let (answer-hash) @@ -120,7 +120,9 @@ put cursor to CHECKPOINT." (princ (concat "At: " (get-message-field (gethash "msg" msg) "time") "\n")) (princ (concat "Subject: " (get-message-field (gethash "msg" msg) "subj") "\n")) (princ (concat "__________________________________\n\n" - (s-join "\n" (get-message-field (gethash "msg" msg) "body")))) + (replace-in-string "\r" "" + (s-join "\n" (get-message-field (gethash "msg" msg) + "body"))))) (princ "\n__________________________________\n") (princ "[") (let (answer-hash)