Difrex/idec.el
Difrex/idec.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixes #3

Browse Source
This commit is contained in:
Denis Zheleztsov 2018-06-26 12:13:23 +03:00
parent feb4da9f86
commit f2527a0b47
Signed by: Difrex
GPG Key ID: B047A0E62A285621
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
idec-online.el
View File

@ -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"

6
idec.el
View File

@ -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)