From: yamaoka <yamaoka>
Date: Fri, 12 Feb 1999 07:06:58 +0000 (+0000)
Subject: * (article-hide-headers): Show all headers when unhiding.
X-Git-Tag: gnus-6_10_7~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=56a361930841f03c7ce733c691ee1208b95ebaed;p=elisp%2Fgnus.git-

* (article-hide-headers): Show all headers when unhiding.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 595c6f7..fef6d90 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -653,7 +653,10 @@ always hide."
   (current-buffer)
   (if (gnus-article-check-hidden-text 'headers arg)
       ;; Show boring headers as well.
-      (gnus-article-show-hidden-text 'boring-headers)
+      (progn
+	(gnus-article-show-hidden-text 'boring-headers)
+	(when (eq 1 (point-min))
+	  (set-window-start (get-buffer-window (current-buffer)) 1)))
     ;; This function might be inhibited.
     (unless gnus-inhibit-hiding
       (save-excursion