--- a/.emacs-my	Sun Feb 28 11:42:42 2016 +0200
+++ b/.emacs-my	Sun Feb 28 23:57:49 2016 +0200
@@ -1662,7 +1662,7 @@
   (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
         (my/org-archive-file file)))
 
-(setq org-agenda-include-diary t)
+(setq org-agenda-include-diary nil)
 
 (defun my-org-kill-by-tag (tag)
   "Put all entries that matches TAG from current org-file to `kill-ring'."