/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47.4.5 by miles, Wed Sep 29 07:22:15 2004 UTC revision 1.47.4.6 by miles, Fri Oct 22 10:13:32 2004 UTC
# Line 6122  positives are possible." Line 6122  positives are possible."
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)
# Line 6170  positives are possible." Line 6170  positives are possible."
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)
# Line 6204  positives are possible." Line 6205  positives are possible."
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
# Line 6257  variable it the real callback function." Line 6258  variable it the real callback function."
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))
# Line 6602  specified by `gnus-button-alist'." Line 6603  specified by `gnus-button-alist'."
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)

Legend:
Removed from v.1.47.4.5  
changed lines
  Added in v.1.47.4.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26