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