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

Download message only if it not in local mail

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-10-03 10:46:43 +03:00
parent 7e1ed72435
commit 27987cb894
1 changed files with 30 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
idec.el
View File

@ -184,7 +184,7 @@ Not used if `idec-smart-fetching' is not nil."
(defun check-message-in-echo (msg echo)
"Check if exists message MSG in ECHO `idec-mail-dir'."
(not (file-exists-p (get-message-file echo msg))))
(not (f-file? (get-message-file echo msg))))
;; Message fields pasing
(defun trim-string (string)
@ -300,6 +300,8 @@ White space here is any of: space, tab, Emacs newline (line feed, ASCII 10)."
"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 (= (length new-messages-list) 0)
(princ "No new messages.")
(dolist (msg new-messages-list)
;; Write message subj
(insert-text-button (concat (get-message-field msg "subj")
@ -326,7 +328,7 @@ White space here is any of: space, tab, Emacs newline (line feed, ASCII 10)."
? )
(get-message-field msg "echo")
(get-message-field msg "time")))
(add-to-invisibility-spec '(msg . t)))))
(add-to-invisibility-spec '(msg . t))))))
(defun get-message-content (echo msg)
"Get ECHO MSG content from `idec-primary-node'."