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

Create mail directory

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-09-29 23:43:25 +03:00
parent f45cfee653
commit 958d17b29f
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
idec.el
View File

@ -96,6 +96,15 @@
;; FUNCTIONS
;; ;;;;;;;;;
(defun create-echo-mail-dir (echo)
"Create ECHO directory inside `idec-mail-dir'."
(if (file-exists-p idec-mail-dir)
(message idec-mail-dir)
(mkdir idec-mail-dir))
(if (file-exists-p (concat idec-mail-dir (concat "/" echo)))
(message (concat idec-mail-dir (concat "/" echo)))
(mkdir (concat idec-mail-dir (concat "/" echo)))))
(defun idec-load-new-messages ()
"Load new messages from IDEC nodes Not implemented.")