From e96a278687928c927a2cf57ef86e5e58660806d3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 25 Feb 2004 13:52:53 +0000 Subject: [PATCH] Synch to No Gnus 200402251344. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 77beac6..3d85e5b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-02-25 Reiner Steib + + * gnus-art.el (gnus-button-alist, gnus-header-button-alist): Allow + / in mailto URLs. + 2004-02-24 Reiner Steib * spam-report.el (spam-report-process-queue): Fix interactive use. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 83d76d5..4f8d463 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -6565,7 +6565,7 @@ positives are possible." ("\\( \n\t]+\\)>" 0 (>= gnus-button-message-level 0) gnus-url-mailto 2) ;; RFC 2368 (The mailto URL scheme) - ("mailto:\\([-a-z.@_+0-9%=?&]+\\)" + ("\\bmailto:\\([-a-z.@_+0-9%=?&/]+\\)" 0 (>= gnus-button-message-level 0) gnus-url-mailto 1) ("\\bmailto:\\([^ \n\t]+\\)" 0 (>= gnus-button-message-level 0) gnus-url-mailto 1) @@ -6700,7 +6700,7 @@ variable it the real callback function." 0 (>= gnus-button-browse-level 0) browse-url 0) ("^[^:]+:" gnus-button-url-regexp 0 (>= gnus-button-browse-level 0) browse-url 0) - ("^[^:]+:" "\\bmailto:\\([-a-z.@_+0-9%=?&]+\\)" + ("^[^:]+:" "\\bmailto:\\([-a-z.@_+0-9%=?&/]+\\)" 0 (>= gnus-button-message-level 0) gnus-url-mailto 1) ("^[^:]+:" "\\(<\\(url: \\)?\\(nntp\\|news\\):\\([^>\n ]*\\)>\\)" 1 (>= gnus-button-message-level 0) gnus-button-message-id 4)) -- 1.7.10.4