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

Cosmetic

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-10-04 17:58:27 +03:00
parent 0e57b3505d
commit 723da9ecb4
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
idec.el
View File

@ -370,10 +370,11 @@ Return list with body content."
(defun display-new-messages ()
"Display new fetched messages from `new-messages-list'."
(with-output-to-temp-buffer (get-buffer-create "*IDEC: New messages*")
(switch-to-buffer "*IDEC: New messages*")
(if (= (hash-table-count new-messages-list) 0)
(princ "No new messages.")
(if (= (hash-table-count new-messages-list) 0)
(message "IDEC: No new messages.")
(with-output-to-temp-buffer (get-buffer-create "*IDEC: New messages*")
(switch-to-buffer "*IDEC: New messages*")
(maphash (lambda (id msg)
(let (m)
(setq m (make-hash-table :test 'equal))
@ -404,8 +405,8 @@ Return list with body content."
? )
(get-message-field msg "echo")
(get-message-field msg "time"))))
new-messages-list)))
(idec-mode))
new-messages-list))
(idec-mode)))
(defun get-messages-content (messages)
"Get MESSAGES content from `idec-primary-node'."
@ -464,7 +465,7 @@ with `idec-download-offset' and `idec-download-limit'."
(defun make-messages-url (messages)
"Make MESSAGES url to retreive messages from `idec-primary-node'."
;; Check ECHOES is list
;; Check MESSAGES is list
(if (listp messages)
;; Required GNU Emacs >= 25.3
(let (msgs)