Only inhibit body washing, and leave the header washing to take place.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98e0343..87db427 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-treat-article): Only inhibit body washing, and
+       leave the header washing to take place.
+
 2010-10-31  Daniel Dehennin  <daniel.dehennin@baby-gnu.org>
 
        * gnus-msg.el (gnus-configure-posting-styles): Permit the use of

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b1d28ca..713773e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -8279,7 +8279,8 @@ For example:
              (symbol-value (car elem))))
       (when (and (or (consp val)
                     treated-type)
-                (not gnus-inhibit-article-treatments)
+                (or (not gnus-inhibit-article-treatments)
+                    (eq condition 'head))
                 (gnus-treat-predicate val)
                 (or (not (get (car elem) 'highlight))
                     highlightp))