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

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 595c6f7..fef6d90 100644 (file)
--- 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