* 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 (file)
--- 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 (file)
--- 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