--- a/.emacs-my	Fri Apr 01 18:49:09 2016 +0300
+++ b/.emacs-my	Fri Apr 01 18:55:36 2016 +0300
@@ -1454,13 +1454,13 @@
 (message "info-lookup")
 
 ;; Info index nodes for automake under Debian.
-(setq my-fix-for-automake-info-lookup
-      '(("(automake-1.11)Macro Index" nil
-         "^`" "['(]")
-        ("(automake-1.11)Variable Index" nil
-         "^`" "['(]")
-        ("(automake-1.11)General Index" nil
-         "^`" "['(]")))
+(defvar my-fix-for-automake-info-lookup
+  '(("(automake-1.11)Macro Index" nil
+     "^`" "['(]")
+    ("(automake-1.11)Variable Index" nil
+     "^`" "['(]")
+    ("(automake-1.11)General Index" nil
+     "^`" "['(]")))
 
 ;; Add `my-fix-for-automake-info-lookup' entries to the end of doc-spec for
 ;; some modes.
@@ -1553,8 +1553,8 @@
  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"))
+(defvar my-org-agenda-todo-file (concat org-directory "/TODO.org"))
+(defvar 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"))
@@ -1672,10 +1672,6 @@
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "fortune")
-(setq fortune-file "~/XXX")
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mail, message")
 
 (eval-when 'compile (require 'message))

--- a/.emacs-obsolete	Fri Apr 01 18:49:09 2016 +0300
+++ b/.emacs-obsolete	Fri Apr 01 18:55:36 2016 +0300
@@ -244,3 +244,7 @@
   (modify-coding-system-alist 'process "svn" '(cp1251 . cp1251))
   (setq vc-svn-checkin-switches '("--encoding" "UTF-8"))
   )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "fortune")
+(setq fortune-file "~/XXX")