fixing a few things in bbdb, json and org

4 files changed, 6 insertions, 1 deletions

diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el
index 8485a86..4c68f2b 100644
--- a/emacs/.emacs.d/init/ycp-gnus.el
+++ b/emacs/.emacs.d/init/ycp-gnus.el
@@ -185,6 +185,7 @@
   (setq bbdb-message-all-addresses t)
   (setq bbdb-mua-pop-up-window-size .15)
   (setq bbdb-new-mails-primary nil)
+  (setq bbdb-ignore-redundant-mails t)
   (setq bbdb-mail-user-agent 'gnus-user-agent)
   (setq bbdb-update-records-p 'create)
   (setq bbdb-message-clean-mail-function 'my-bbdb-clean-mail)
diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index 1330f0a..d4879dd 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -101,7 +101,7 @@
   (:delay 30)
   (:install t)
   (require 'my-prog)
-  (add-hook 'json-mode-hook 'my-json-set-header-line-to-path)
+  (add-hook 'json-mode-hook 'my-json-set-header-line-hook)
   )
 
 (provide 'ycp-markup)
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index 2d40c37..f13fb0f 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -294,6 +294,7 @@
   (setq org-use-speed-commands t)
   (setq org-speed-commands
         '(("User commands")
+          ("g" . org-delete-property)
           ("W" . my-org-clock-refile-clocking)
           ("+" . my-org-vote-up)
           ("-" . my-org-vote-down)
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el
index a38f956..e84478d 100644
--- a/emacs/.emacs.d/lisp/my/my-prog.el
+++ b/emacs/.emacs.d/lisp/my/my-prog.el
@@ -417,6 +417,9 @@ REVISION is the commit hash."
    (mapcar 'prin1-to-string (plist-get (json-path-to-position (point)) :path))
    "/"))
 
+(defun my-json-set-header-line-hook ()
+  (when (< (point-max) 100000 (my-json-set-header-line-to-path))))
+
 (defun my-json-set-header-line-to-path ()
   (setq header-line-format
         '((:eval (my-json-mode-path)))))