[elpa] externals/objed 96d5bc9 10/21: Add mail object

[Clemens Radermacher]

branch: externals/objed
commit 96d5bc915dc5c40aff755a71c7c64e8e924f86d9
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add mail object
---
 objed-objects.el | 8 ++++++++
 objed.el         | 1 +
 2 files changed, 9 insertions(+)

diff --git a/objed-objects.el b/objed-objects.el
index 8917bae..66ee922 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1615,6 +1615,14 @@ comments."
   :try-prev
   (re-search-backward  "/\\|\\\\" nil t))
 
+(objed-define-object nil mail
+  :get-obj
+  (bounds-of-thing-at-point 'email)
+  :try-next
+  (re-search-forward  "@" nil t)
+  :try-prev
+  (re-search-backward  "@" nil t))
+
 (objed-define-object nil page
   :atp
   (looking-at page-delimiter)
diff --git a/objed.el b/objed.el
index ba3de8c..0138e89 100644
--- a/objed.el
+++ b/objed.el
@@ -910,6 +910,7 @@ To define new operations see `objed-define-op'.")
 
     (define-key map "t" 'objed-tag-object)
     (define-key map "f" 'objed-file-object)
+    (define-key map "m" 'objed-mail-object)
 
     (define-key map "*" 'objed-section-object)
     (define-key map "l" 'objed-page-object)