--- a/autobm.el	Sat Dec 12 00:45:05 2015 +0200
+++ b/autobm.el	Sat Dec 12 01:06:07 2015 +0200
@@ -21,11 +21,11 @@
   (cl-some #'thing-at-point autobm-try-thingatpt-things))
 
 (defun autobm-get-active-handlers ()
-  (let ( h handlers (modes (list t)) )
+  (let ( h handlers (modes (list major-mode)) )
     (dolist (m minor-mode-list)
       (when (and (boundp m) (symbol-value m))
         (push m modes)))
-    (push major-mode modes)
+    (push t modes)
     (dolist (m modes)
       (setq h (assoc m autobm-mode-handlers))
       (when h