Some changes

idec-answers.el

@@ -209,7 +209,7 @@
                             'action (lambda (x) (send-reply-message (button-get x 'msg)))
                             'msg answer-hash)
         (goto-char p)
-        (org-idec)))
+        (idec)))
 
 ;; END OF ANSWERS
 

idec-db.el

@@ -1,10 +1,11 @@
-;;; idec-db.el --- This file is a part of GNU Emacs client for IDEC network
+;;; idec-db.el --- This file is a part of client for IDEC network
 
 ;; Copyright (c) 2017 Denis Zheleztsov
 
 ;; Author: Denis Zheleztsov <difrex.punk@gmail.com>
 ;; Keywords: lisp,network,IDEC
 ;; Version: 0.1
+;; Homepage: https://github.com/idec-net/idec.el
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

idec-mode.el

@@ -35,8 +35,9 @@
 
 ;; Not used
 (defcustom idec-nodes-list
-    "http://idec.spline-online.tk/,https://ii-net.tk/ii/ii-point.php?q=/"
+    "http://idec.spline-online.tk/,https://ii-net.tk/ii/ii-point.php?q=/;
-    "List(comma separated) of IDEC nodes."
+    List(comma separated) of IDEC nodes;
+    Currently not used."
     :type 'string
     :group 'idec)
 
@@ -48,10 +49,11 @@
 ;; Never used at this time.
 (defcustom idec-use-list-txt t
     "Use /list.txt extension."
+    :type 'boolean
     :group 'idec)
 
 (defcustom idec-smart-fetch t
-    "Enable smat fetching;
+    "Enable smart fetching;
 Download only new messages; Not implemented."
     :type 'boolean
     :group 'idec)
@@ -73,7 +75,7 @@ Not used if `idec-smart-fetching' is not nil."
     :type 'string
     :group 'idec)
 
-(defcustom idec-mail-dir "~/.emacs.d/idec-mail"
+(defcustom idec-mail-dir (concat user-emacs-directory "/idec-mail")
     "Directory to store mail."
     :type 'string
     :group 'idec)
@@ -146,10 +148,10 @@ Default to `idec-download-offset'"
 
 (defvar idec-mode-map
     (let ((map (make-sparse-keymap)))
-        (define-key map ["C-c C-c"] 'kill-this-buffer)
+        (define-key map "\C-c \C-c" 'kill-this-buffer)
-        (define-key map ["C-c C-n"] 'idec-next-message)
+        (define-key map "\C-c \C-n" 'idec-next-message)
-        (define-key map ["C-c C-b"] 'idec-previous-message)
+        (define-key map "\C-c \C-b" 'idec-previous-message)
-        (define-key map ["C-c C-e"] 'idec-new-message)
+        (define-key map "\C-c \C-e" 'idec-new-message)
         map)
     "Keymapping for IDEC mode.")
 
@@ -182,7 +184,7 @@ Default to `idec-download-offset'"
       "Subject" "From" "To" "Echo" "At")
     '(("=" . 'font-lock-operator)
       (";" . 'font-lock-builtin))
-    '("\\.idec$")
+    '("\\.*idec\\.*|\\.*Idec\\.*|\\.*IDEC\\.*$")
     nil)
 
 (define-derived-mode org-idec text-mode "IDEC"

idec.el

@@ -114,7 +114,7 @@ put cursor to CHECKPOINT."
         (insert-button "Quote answer")
         (princ "]")
         (add-text-properties (point-min) (point-max) 'read-only))
-    (idec-mode))
+    (idec))
 
 (defun display-message (msg)
     "Display message MSG in new buffer in idec-mode."