--- a/.emacs-my	Fri Apr 01 17:40:12 2016 +0300
+++ b/.emacs-my	Fri Apr 01 17:55:30 2016 +0300
@@ -1571,86 +1571,85 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "org-mode, GTD, PIM, organize, todo")
 
-(when (>= emacs-major-version 22)
-  (require 'org))
+(require 'org)
+(require 'org-capture nil t)
+
+(eval-when 'compile
+  (require 'org-agenda)
+  (require 'org-archive)
+  (require 'remember nil t))
 
 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
-(when (or (featurep 'org) (featurep 'org-install))
-  (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
-  (setq org-directory "~/my/gtd")
-  (setq
-   org-agenda-ndays 31
-   org-deadline-warning-days 7
-   org-agenda-show-all-dates t
-   org-agenda-format-date "%Y-%m-%d, %A %e %B"
-   org-agenda-skip-deadline-if-done t
-   org-agenda-skip-scheduled-if-done t
-   org-agenda-start-on-weekday nil
-   org-reverse-note-order t
-   org-hide-leading-stars t
-   org-tags-column 64
-   org-archive-save-context-info '(time file olpath todo itags)
-   )
-  (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))
-  (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))
-  (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'"
-        org-agenda-files (list org-directory))
-  ;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org"))
-  ;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file))
-  (define-key global-map "\C-va" 'org-agenda)
-  (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
-
-  (setq org-todo-keywords '("|" "DONE"))
-
-  ;; My tags for remember buffer.
-  (setq org-tag-alist
-        '(
-          ("ADMIN" . ?a)
-          ("BLOG" . ?b)
-          ("DEVEL" . ?d)
-          ("HOME" . ?h)
-          ("GET" . ?g)
-          ("LIFE" . ?l)
-          ("MAIL" . ?m)
-          ("JOB" . ?j)
-          ("QUESTION" . ?q)
-          ("PROJECT" . ?p)
-          ("READ" . ?r)
-          ("SEE" . ?s)
+(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
+(setq org-directory "~/my/gtd")
+(setq
+ org-agenda-ndays 31
+ org-deadline-warning-days 7
+ org-agenda-show-all-dates t
+ org-agenda-format-date "%Y-%m-%d, %A %e %B"
+ org-agenda-skip-deadline-if-done t
+ org-agenda-skip-scheduled-if-done t
+ org-agenda-start-on-weekday nil
+ org-reverse-note-order t
+ org-hide-leading-stars t
+ org-tags-column 64
+ org-archive-save-context-info '(time file olpath todo itags)
+ )
+(setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))
+(setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))
+(setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'"
+      org-agenda-files (list org-directory))
+;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org"))
+;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file))
+(define-key global-map "\C-va" 'org-agenda)
+(define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
+
+(setq org-todo-keywords '("|" "DONE"))
+
+;; My tags for remember buffer.
+(setq org-tag-alist
+      '(
+        ("ADMIN" . ?a)
+        ("BLOG" . ?b)
+        ("DEVEL" . ?d)
+        ("HOME" . ?h)
+        ("GET" . ?g)
+        ("LIFE" . ?l)
+        ("MAIL" . ?m)
+        ("JOB" . ?j)
+        ("QUESTION" . ?q)
+        ("PROJECT" . ?p)
+        ("READ" . ?r)
+        ("SEE" . ?s)
+        ))
+;; With this variable tags duplicated in *Org Tags* menu. I use
+;; `org-tag-alist' instead until bug fixed.
+(setq org-tag-persistent-alist nil)
+
+(setq org-support-shift-select t)
+
+(cond
+ ((featurep 'org-capture)
+  (setq org-default-notes-file my-org-agenda-todo-file)
+  (setq org-capture-templates
+        '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n  SCHEDULED: %T")))
+  (define-key global-map "\C-vr"
+    (lambda () (interactive) (org-capture nil "t")))
+  )
+ ((or (featurep 'remember) (fboundp 'remember))
+  (setq remember-annotation-functions '(org-remember-annotation))
+  (setq remember-handler-functions '(org-remember-handler))
+  (add-hook 'remember-mode-hook 'org-remember-apply-template)
+  (define-key global-map "\C-vr" 'org-remember)
+  (setq org-remember-templates
+        ;; With one item org-mode do not prompt choose template.
+        `(
+          ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file)
+          ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file)
           ))
-  ;; With this variable tags duplicated in *Org Tags* menu. I use
-  ;; `org-tag-alist' instead until bug fixed.
-  (setq org-tag-persistent-alist nil)
-
-  (setq org-support-shift-select t)
-
-  (when (>= emacs-major-version 24)
-    (require 'org-capture))
-
-  (cond
-   ((featurep 'org-capture)
-    (setq org-default-notes-file my-org-agenda-todo-file)
-    (setq org-capture-templates
-          '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n  SCHEDULED: %T")))
-    (define-key global-map "\C-vr"
-      (lambda () (interactive) (org-capture nil "t")))
-    )
-   ((or (featurep 'remember) (fboundp 'remember))
-    (setq remember-annotation-functions '(org-remember-annotation))
-    (setq remember-handler-functions '(org-remember-handler))
-    (add-hook 'remember-mode-hook 'org-remember-apply-template)
-    (define-key global-map "\C-vr" 'org-remember)
-    (setq org-remember-templates
-          ;; With one item org-mode do not prompt choose template.
-          `(
-            ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file)
-            ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file)
-            ))
-    (setq org-remember-store-without-prompt t)
-    (org-remember-insinuate)
-    ))
-
-  )
+  (setq org-remember-store-without-prompt t)
+  (org-remember-insinuate)
+  ))
 
 (defun my/org-archive-location (path)
   "For given PATH make path to archive. Currently add undescore

--- a/.emacs-obsolete	Fri Apr 01 17:40:12 2016 +0300
+++ b/.emacs-obsolete	Fri Apr 01 17:55:30 2016 +0300
@@ -91,3 +91,12 @@
 (when (not (window-system))
   (xterm-mouse-mode +1))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "org-mode, GTD, PIM, organize, todo")
+
+(when (>= emacs-major-version 22)
+  (require 'org))
+
+(when (or (featurep 'org) (featurep 'org-install))
+  (message "Many lines here..."))
+