Add macro to open url in mails

mail.org

@@ -522,14 +522,8 @@ bind generic,index,pager \Ce next-line
 bind generic,index,pager \Cy previous-line
 #+end_src
 
-*** Index and Pager
-#+BEGIN_SRC conf
-bind pager k  previous-line
-bind pager j  next-line
-
-# Display mode information
-bind pager i display-toggle-weed
-
+*** Index (list of mails)
+#+begin_src conf
 bind index <space> collapse-thread
 
 bind index,pager K previous-entry
@@ -537,17 +531,9 @@ bind index,pager J next-entry
 
 bind index l  display-message
 bind index <Return> display-message
-bind pager l view-attachments
-
-bind pager gg top
-bind pager 0 top
-
-bind pager G bottom
-bind pager $ bottom
 
 macro index h "<change-folder>?" "Go back to the list of mailboxes"
 bind pager h exit
-bind pager q exit
 
 macro index c "<change-folder>?<toggle-mailboxes>" "change folder"
 
@@ -562,6 +548,36 @@ bind index,pager @ compose-to-sender
 macro index \Cr \
     "<tag-pattern>~N<enter><tag-prefix><clear-flag>N<untag-pattern>.<enter>" \
     "mark all new as read"
+#+end_src
+
+#+begin_src conf
+bind index U toggle-new
+#+end_src
+
+Copy and move mails
+#+BEGIN_SRC conf
+macro index C "<copy-message>?<toggle-mailboxes>" "copy a message to a mailbox"
+macro index M "<save-message>?<toggle-mailboxes>" "move a message to a mailbox"
+#+END_SRC
+
+*** Pager (One mail opened)
+#+BEGIN_SRC conf
+bind pager k  previous-line
+bind pager j  next-line
+bind pager l view-attachments
+
+# Display mode information
+bind pager i display-toggle-weed
+
+bind pager gg top
+bind pager 0 top
+
+bind pager G bottom
+bind pager $ bottom
+
+bind pager q exit
+
+macro pager L "<pipe-message> urlscan<Enter>" "call urls
 #+END_SRC
 
 #+begin_src conf
@@ -601,22 +617,12 @@ Open mail with Vim
 macro index,pager V "<view-attachments><search>plain<enter><view-mailcap><exit>"
 #+end_src
 
-#+begin_src conf
-bind index U toggle-new
-#+end_src
-
 Labels
 #+BEGIN_SRC conf
 bind index,pager y edit-label
 bind index,pager Y modify-labels
 #+END_SRC
 
-Copy and move mails
-#+BEGIN_SRC conf
-macro index C "<copy-message>?<toggle-mailboxes>" "copy a message to a mailbox"
-macro index M "<save-message>?<toggle-mailboxes>" "move a message to a mailbox"
-#+END_SRC
-
 *** Limit
 #+begin_src conf
 bind index L limit
@@ -695,8 +701,6 @@ Write html emails using markdown
 bind browser l select-entry
 macro browser h "<top-page><select-entry>"
 
-bind browser t tag-entry
-
 bind browser q exit
 #+end_src