--- a/.emacs-my	Sun Jan 31 00:01:57 2021 +0200
+++ b/.emacs-my	Sun Jan 31 00:04:18 2021 +0200
@@ -1,10 +1,5 @@
 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
 ;;
-;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2015.
-;;
-;; This file formed from parts and ideas from many sites/docs and
-;; placed in public domain.
-;;
 ;; Config file for GNU Emacs.
 ;;
 ;; For load order see README.
@@ -166,12 +161,8 @@
 
 (cl-eval-when (compile) (require 'info))
 
-;; Set in ~/.emacs.d/.emacs-auth:
-;; (setq user-full-name "Oleksandr Gavenko")
-;; (setq user-mail-address "gavenkoa@gmail.com")
-;; (setq user-nick "gavenkoa")
-;; (setq user-home-page "http://gavenkoa.users.sf.net")
-;; (setq user-home-page "http://defun.work/")
+;; Following variables are loaded by (load my-lisp-auth t) from init.el:
+;; user-full-name  user-mail-address  user-nick  user-home-page
 
 (defvar user-nick (user-login-name)
   "My nick name.")
@@ -1956,8 +1947,8 @@
 (add-hook 'org-mode-hook #'mypasshide-mode)
 
 (defun my-org-archive-location (path)
-  "For given PATH make path to archive. Currently add undescore
-before file extention. If file name doesn't match
+  "For given PATH makes path for archive. Currently adds
+undescore before file extention. If file name doesn't match
 `org-agenda-file-regexp' or have no extention return `nil'."
   (if (and (file-name-extension path)
            (string-match org-agenda-file-regexp (file-name-nondirectory path)))