message.el (message-hide-headers): Don't do intangible.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00b39bb..f7a578e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,8 @@
 
 2003-04-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-hide-headers): Don't do intangible.
+
        * gnus.el (gnus-group-prefixed-name): Comment out the test for
        colon. 
 

diff --git a/lisp/message.el b/lisp/message.el
index 71dfef1..7560068 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6522,9 +6522,9 @@ regexp varstr."
                (message-next-header)
              (let ((begin (point)))
                (message-next-header)
-               (add-text-properties begin (point)
-                                    '(intangible t invisible t
-                                                 message-hidden t))))))))))
+               (add-text-properties
+                begin (point)
+                '(invisible t message-hidden t))))))))))
 
 (defun message-hide-header-p (regexps)
   (let ((result nil)