6122 |
("\\(<URL: *\\)mailto: *\\([^> \n\t]+\\)>" |
("\\(<URL: *\\)mailto: *\\([^> \n\t]+\\)>" |
6123 |
0 (>= gnus-button-message-level 0) gnus-url-mailto 2) |
0 (>= gnus-button-message-level 0) gnus-url-mailto 2) |
6124 |
;; RFC 2368 (The mailto URL scheme) |
;; RFC 2368 (The mailto URL scheme) |
6125 |
("mailto:\\([-a-z.@_+0-9%=?&]+\\)" |
("\\bmailto:\\([-a-z.@_+0-9%=?&/]+\\)" |
6126 |
0 (>= gnus-button-message-level 0) gnus-url-mailto 1) |
0 (>= gnus-button-message-level 0) gnus-url-mailto 1) |
6127 |
("\\bmailto:\\([^ \n\t]+\\)" |
("\\bmailto:\\([^ \n\t]+\\)" |
6128 |
0 (>= gnus-button-message-level 0) gnus-url-mailto 1) |
0 (>= gnus-button-message-level 0) gnus-url-mailto 1) |
6170 |
("M-x[ \t\n]+apropos-documentation[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET" |
("M-x[ \t\n]+apropos-documentation[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET" |
6171 |
0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1) |
0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1) |
6172 |
;; The following entries may lead to many false positives so don't enable |
;; The following entries may lead to many false positives so don't enable |
6173 |
;; them by default (use a high button level): |
;; them by default (use a high button level). |
6174 |
("/\\([a-z][-a-z0-9]+\\.el\\)\\>" |
("/\\([a-z][-a-z0-9]+\\.el\\)\\>[^.?]" |
6175 |
|
;; Exclude [.?] for URLs in gmane.emacs.cvs |
6176 |
1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) |
1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) |
6177 |
("`\\([a-z][-a-z0-9]+\\.el\\)'" |
("`\\([a-z][-a-z0-9]+\\.el\\)'" |
6178 |
1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) |
1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1) |
6205 |
(gnus-button-url-regexp |
(gnus-button-url-regexp |
6206 |
0 (>= gnus-button-browse-level 0) browse-url 0) |
0 (>= gnus-button-browse-level 0) browse-url 0) |
6207 |
;; man pages |
;; man pages |
6208 |
("\\b\\([a-z][a-z]+\\)([1-9])\\W" |
("\\b\\([a-z][a-z]+([1-9])\\)\\W" |
6209 |
0 (and (>= gnus-button-man-level 1) (< gnus-button-man-level 3)) |
0 (and (>= gnus-button-man-level 1) (< gnus-button-man-level 3)) |
6210 |
gnus-button-handle-man 1) |
gnus-button-handle-man 1) |
6211 |
;; more man pages: resolv.conf(5), iso_8859-1(7), xterm(1x) |
;; more man pages: resolv.conf(5), iso_8859-1(7), xterm(1x) |
6212 |
("\\b\\([a-z][-_.a-z0-9]+\\)([1-9])\\W" |
("\\b\\([a-z][-_.a-z0-9]+([1-9])\\)\\W" |
6213 |
0 (and (>= gnus-button-man-level 3) (< gnus-button-man-level 5)) |
0 (and (>= gnus-button-man-level 3) (< gnus-button-man-level 5)) |
6214 |
gnus-button-handle-man 1) |
gnus-button-handle-man 1) |
6215 |
;; even more: Apache::PerlRun(3pm), PDL::IO::FastRaw(3pm), |
;; even more: Apache::PerlRun(3pm), PDL::IO::FastRaw(3pm), |
6216 |
;; SoWWWAnchor(3iv), XSelectInput(3X11), X(1), X(7) |
;; SoWWWAnchor(3iv), XSelectInput(3X11), X(1), X(7) |
6217 |
("\\b\\([a-z][-+_.:a-z0-9]+\\)([1-9][X1a-z]*)\\W\\|\\b\\(X\\)([1-9])\\W" |
("\\b\\(\\(?:[a-z][-+_.:a-z0-9]+([1-9][X1a-z]*)\\)\\|\\b\\(?:X([1-9])\\)\\)\\W" |
6218 |
0 (>= gnus-button-man-level 5) gnus-button-handle-man 1) |
0 (>= gnus-button-man-level 5) gnus-button-handle-man 1) |
6219 |
;; MID or mail: To avoid too many false positives we don't try to catch |
;; MID or mail: To avoid too many false positives we don't try to catch |
6220 |
;; all kind of allowed MIDs or mail addresses. Domain part must contain |
;; all kind of allowed MIDs or mail addresses. Domain part must contain |
6258 |
0 (>= gnus-button-browse-level 0) browse-url 0) |
0 (>= gnus-button-browse-level 0) browse-url 0) |
6259 |
("^[^:]+:" gnus-button-url-regexp |
("^[^:]+:" gnus-button-url-regexp |
6260 |
0 (>= gnus-button-browse-level 0) browse-url 0) |
0 (>= gnus-button-browse-level 0) browse-url 0) |
6261 |
("^[^:]+:" "\\bmailto:\\([-a-z.@_+0-9%=?&]+\\)" |
("^[^:]+:" "\\bmailto:\\([-a-z.@_+0-9%=?&/]+\\)" |
6262 |
0 (>= gnus-button-message-level 0) gnus-url-mailto 1) |
0 (>= gnus-button-message-level 0) gnus-url-mailto 1) |
6263 |
("^[^:]+:" "\\(<\\(url: \\)?\\(nntp\\|news\\):\\([^>\n ]*\\)>\\)" |
("^[^:]+:" "\\(<\\(url: \\)?\\(nntp\\|news\\):\\([^>\n ]*\\)>\\)" |
6264 |
1 (>= gnus-button-message-level 0) gnus-button-message-id 4)) |
1 (>= gnus-button-message-level 0) gnus-button-message-id 4)) |
6603 |
|
|
6604 |
(defun gnus-button-handle-man (url) |
(defun gnus-button-handle-man (url) |
6605 |
"Fetch a man page." |
"Fetch a man page." |
6606 |
|
(gnus-message 9 "`%s' `%s'" gnus-button-man-handler url) |
6607 |
|
(when (eq gnus-button-man-handler 'woman) |
6608 |
|
(setq url (gnus-replace-in-string url "([1-9][X1a-z]*).*\\'" ""))) |
6609 |
|
(gnus-message 9 "`%s' `%s'" gnus-button-man-handler url) |
6610 |
(funcall gnus-button-man-handler url)) |
(funcall gnus-button-man-handler url)) |
6611 |
|
|
6612 |
(defun gnus-button-handle-info-url (url) |
(defun gnus-button-handle-info-url (url) |