From decf93f0311e01d985368b44e7ad93f4e83f376e Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 17 Apr 2006 12:56:00 +0000 Subject: [PATCH] (gnus-article-treat-types): Do treatment of text/x-verbatim parts. --- lisp/ChangeLog | 3 +++ lisp/gnus-art.el | 7 ++++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4989bf10..f54b8be80 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2006-04-17 Lars Magne Ingebrigtsen + * gnus-art.el (gnus-article-treat-types): Do treatment of + text/x-verbatim parts. + * ietf-drums.el (ietf-drums-parse-address): Attempt parsing addresses that contain invalid characters. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 4d06c6b2c..105e60e02 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1012,7 +1012,7 @@ parts. When nil, redisplay article." '(choice (const :tag "Off" nil) (const :tag "Header" head))) -(defvar gnus-article-treat-types '("text/plain") +(defvar gnus-article-treat-types '("text/plain" "text/x-verbatim") "Parts to treat.") (defvar gnus-inhibit-treatment nil @@ -6724,6 +6724,11 @@ positives are possible." ;; SoWWWAnchor(3iv), XSelectInput(3X11), X(1), X(7) ("\\b\\(\\(?:[a-z][-+_.:a-z0-9]+([1-9][X1a-z]*)\\)\\|\\b\\(?:X([1-9])\\)\\)\\W" 0 (>= gnus-button-man-level 5) gnus-button-handle-man 1) + ;; Recognizing patches to .el files. This is somewhat obscure, + ;; but considering the percentage of Gnus users who hack Emacs + ;; Lisp files... + ("^--- \\([-a-z0-9]+\\.el\\).*\n.*\n@@ -?\\([0-9]+\\)" 1 + (>= gnus-button-message-level 4) gnus-button-patch 1 2) ;; MID or mail: To avoid too many false positives we don't try to catch ;; all kind of allowed MIDs or mail addresses. Domain part must contain ;; at least one dot. TLD must contain two or three chars or be a know TLD -- 2.11.4.GIT