* gnus-art.el (gnus-header-button-alist): Handle mailto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d909612..906fdea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-07  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-art.el (gnus-header-button-alist): Handle mailto.
+
        * mml.el (mml-preview): Bind gnus-original-article-buffer because
        article-decode-group-name uses it.  Bind gnus-article-prepare-hook
        because bbdb may use it.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 3b40587..fe87893 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5097,6 +5097,7 @@ variable it the real callback function."
     ("^X-[Uu][Rr][Ll]:" ,gnus-button-url-regexp 0 t browse-url 0)
     ("^Subject:" ,gnus-button-url-regexp 0 t browse-url 0)
     ("^[^:]+:" ,gnus-button-url-regexp 0 t browse-url 0)
+    ("^[^:]+:" "\\bmailto:\\([-a-zA-Z.@_+0-9%=?]+\\)" 0 t gnus-url-mailto 1)
     ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)" 1 t
      gnus-button-message-id 3))
   "*Alist of headers and regexps to match buttons in article heads.