From aa87946f90c67cdca7f85a6556ece6c9fc5e5af0 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Sat, 24 Mar 2007 19:26:02 +0000 Subject: [PATCH] (gnus-article-browse-html-article): Fix typo in doc string. (gnus-button-alist): Also catch ` k ...'. --- lisp/ChangeLog | 10 ++++++++-- lisp/gnus-art.el | 6 +++--- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 38f56d213..90f310b59 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-03-24 Reiner Steib + + * gnus-art.el (gnus-article-browse-html-article): Fix typo in doc + string. + (gnus-button-alist): Also catch ` k ...'. + 2007-03-24 Simon Josefsson * hashcash.el (hashcash-generate-payment-async): Don't crash if @@ -247,8 +253,8 @@ (gnus-button-alist): Add mid\\|message-id. (gnus-button-fetch-group): Extend for use in `browse-url-browser-function'. - (gnus-button-url-regexp): Try to catch URL with parentheses as in - WikiPedia URL. + (gnus-button-url-regexp): Try to catch paired parentheses like in + Wikipedia URLs. * gnus-sum.el (gnus-summary-reparent-children): Another doc string fix. Suggested by Simon Krahnke . diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 9e45350d3..c94f2b2eb 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2839,7 +2839,7 @@ Recurse into multiparts." Warning: Spammers use links to images in HTML articles to verify whether you have read the message. As `gnus-article-browse-html-article' passes the unmodified HTML -content to the browser without eliminatin these \"web bugs\" you +content to the browser without eliminating these \"web bugs\" you should only use it for mails from trusted senders." ;; Cf. `mm-w3m-safe-url-regexp' (interactive) @@ -6473,7 +6473,7 @@ groups." (punct "!?:;.,")) (concat "\\(?:" - ;; Match paired parentheses, e.g. in WikiPedia URLs: + ;; Match paired parentheses, e.g. in Wikipedia URLs: "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "[" chars "]" "\\|" "[" chars punct "]+" "[" chars "]" @@ -6953,7 +6953,7 @@ positives are possible." 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2) ("\\b\\(C-h\\|?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET" 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2) - ("`\\(\\b\\(C-h\\|?\\)[ \t\n]+k[ \t\n]+\\([^']+\\)\\)'" + ("`\\(\\(C-h\\|?\\)[ \t\n]+k[ \t\n]+\\([^']+\\)\\)'" ;; Unlike the other regexps we really have to require quoting ;; here to determine where it ends. 1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3) -- 2.25.1