displaying message/rfc822 inline (patch included)

displaying message/rfc822 inline (patch included)

[paul stevenson]

When displaying an article with a MIME-included message (like a forward,
say). The article may be displayed inline (Content-Disposition:
inline). In this case pressing 't' to expand the headers only expands
the headers of the article, not the included message. This is how it
should be, I think. However subsequent pressing of 't' gets fooled by
the fact there are still hidden headers in the buffer (belonging to the
included message) and doesn't think it needs to hide them.

The following patch fixes this by narrowing to the article's headers
when checking for hidden header lines. 

(this leaves the question of how to examine the headers of the included
message more neatly than C-u g)

*** gnus-sum.el.orig	Sat Feb 27 13:41:26 1999
--- gnus-sum.el	Sat Feb 27 13:41:30 1999
***************
*** 7029,7037 ****
      (save-restriction
        (let* ((buffer-read-only nil)
  	     (inhibit-point-motion-hooks t)
! 	     (hidden (gnus-article-hidden-text-p 'headers))
  	     e)
  	(goto-char (point-min))
  	(when (search-forward "\n\n" nil t)
  	  (delete-region (point-min) (1- (point))))
  	(goto-char (point-min))
--- 7029,7042 ----
      (save-restriction
        (let* ((buffer-read-only nil)
  	     (inhibit-point-motion-hooks t)
! 	     (hidden)
  	     e)
  	(goto-char (point-min))
+ 	(when (search-forward "\n\n" nil t)
+ 	  (save-restriction 
+ 	    (narrow-to-region (point-min) (point))
+ 	    (setq hidden (gnus-article-hidden-text-p 'headers)))
+ 	  (goto-char (point-min)))
  	(when (search-forward "\n\n" nil t)
  	  (delete-region (point-min) (1- (point))))
  	(goto-char (point-min))