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

Do not messaging plain message

Browse Source
This commit is contained in:
Denis Zheleztsov 2018-06-28 10:46:15 +03:00
parent d41e084ae5
commit 5eb6333d24
Signed by: Difrex
GPG Key ID: B047A0E62A285621
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
idec.el
View File

@ -95,7 +95,6 @@ put cursor to CHECKPOINT."
(defun display-message-hash (msg) (defun display-message-hash (msg)
"Disaply message MSG in new buffer." "Disaply message MSG in new buffer."
(mark-message-read (gethash "id" msg) (gethash "echo" msg)) (mark-message-read (gethash "id" msg) (gethash "echo" msg))
(message (make-plain-text-message-from-hash msg))
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: " (gethash "subj" msg) "*")) (with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: " (gethash "subj" msg) "*"))
(switch-to-buffer (concat "*IDEC: " (gethash "subj" msg) "*")) (switch-to-buffer (concat "*IDEC: " (gethash "subj" msg) "*"))
(princ (make-message-header msg)) (princ (make-message-header msg))
@ -120,6 +119,7 @@ put cursor to CHECKPOINT."
(defun display-message (msg) (defun display-message (msg)
"Display message MSG in new buffer in idec-mode." "Display message MSG in new buffer in idec-mode."
(mark-message-read (gethash "id" msg) (get-message-field (gethash "msg" msg) "echo")) (mark-message-read (gethash "id" msg) (get-message-field (gethash "msg" msg) "echo"))
(defvar line "__________________________________")
(with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: " (with-output-to-temp-buffer (get-buffer-create (concat "*IDEC: "
(decode-coding-string (decode-coding-string
(get-message-field (get-message-field
@ -138,11 +138,11 @@ put cursor to CHECKPOINT."
(princ (concat "Echo: " (get-message-field (gethash "msg" msg) "echo") "\n")) (princ (concat "Echo: " (get-message-field (gethash "msg" msg) "echo") "\n"))
(princ (concat "At: " (get-message-field (gethash "msg" msg) "time") "\n")) (princ (concat "At: " (get-message-field (gethash "msg" msg) "time") "\n"))
(princ (concat "Subject: " (get-message-field (gethash "msg" msg) "subj") "\n")) (princ (concat "Subject: " (get-message-field (gethash "msg" msg) "subj") "\n"))
(princ (concat "__________________________________\n\n" (princ (concat line "\n\n"
(replace-in-string "\r" "" (replace-in-string "\r" ""
(s-join "\n" (get-message-field (gethash "msg" msg) (s-join "\n" (get-message-field (gethash "msg" msg)
"body"))))) "body")))))
(princ "\n__________________________________\n") (princ (concat "\n" line "\n"))
(princ "[") (princ "[")
(let (answer-hash) (let (answer-hash)
(setq answer-hash (make-hash-table :test 'equal)) (setq answer-hash (make-hash-table :test 'equal))
@ -152,7 +152,7 @@ put cursor to CHECKPOINT."
'id (gethash "id" msg) 'id (gethash "id" msg)
'msg-hash answer-hash)) 'msg-hash answer-hash))
(princ "]") (princ "]")
(princ "\t [") (princ (concat (make-string 6 ? ) "["))
(insert-button "Quote answer") (insert-button "Quote answer")
(princ "]") (princ "]")
(add-text-properties (point-min) (point-max) 'read-only)) (add-text-properties (point-min) (point-max) 'read-only))