From: yamaoka <yamaoka>
Date: Tue, 8 Jan 2002 11:49:37 +0000 (+0000)
Subject: * gnus-art.el (article-toggle-headers): Expose headers even if there is a
X-Git-Tag: t-gnus-6_15_4-11~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=973b9866964d5c2ad95aa885d7fc17ae5a02270a;p=elisp%2Fgnus.git-

* gnus-art.el (article-toggle-headers): Expose headers even if there is a
 boundary line.
---

diff --git a/ChangeLog b/ChangeLog
index fd77355..683591a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-08  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-art.el (article-toggle-headers): Expose headers even
+	if there is a boundary line.
+
 2002-01-08  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* lisp/gnus-namazu.el (gnus-namazu/highlight-words): Reimplemented.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 60768c3..72d5a69 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1647,13 +1647,18 @@ if given a positive prefix, always hide."
 				       'invisible t)))
 	    ;; If the invisible text is not terminated with newline, we
 	    ;; won't expose it.  Because it may be created by x-face-mule.
-	    ;; BTW, XEmacs sometimes fail in putting a invisible text
+	    ;; BTW, XEmacs sometimes fail in putting an invisible text
 	    ;; property with `gnus-article-hide-text' (really?).  In that
 	    ;; case, the invisible text might be started from the middle of
-	    ;; a line so we will expose the sort of thing.
+	    ;; a line, so we will expose the sort of thing.
 	    (when (or (not (or (eq header-start field-start)
 			       (eq ?\n (char-before field-start))))
-		      (eq ?\n (char-before field-end)))
+		      (eq ?\n (char-before field-end))
+		      ;; Expose a boundary line anyway.
+		      (string-equal
+		       "\nX-Boundary: "
+		       (buffer-substring (max (- field-end 13) header-start)
+					 field-end)))
 	      (remove-text-properties field-start field-end
 				      gnus-hidden-properties)
 	      (put-text-property field-start field-end