Make "Show Hidden Headers" in Message buffers more obvious

* lisp/gnus/message.el (message-widen-and-recenter): New command
to ensure that we show most of the headers (bug#23252).
(message-mode-field-menu): Use it.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 35baae01f97..9de35bd44c0 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2890,7 +2890,7 @@ systematically send encrypted emails when possible."
     ["Sort Headers" message-sort-headers t]
     ["Encode non-ASCII domain names" message-idna-to-ascii-rhs t]
     ;; We hide `message-hidden-headers' by narrowing the buffer.
-    ["Show Hidden Headers" widen t]
+    ["Show Hidden Headers" message-widen-and-recenter t]
     ["Goto Body" message-goto-body t]
     ["Goto Signature" message-goto-signature t]))
 
@@ -3369,6 +3369,12 @@ or in the synonym headers, defined by `message-header-synonyms'."
 
 ;;; Various commands
 
+(defun message-widen-and-recenter ()
+  "Widen the buffer and go to the start."
+  (interactive)
+  (widen)
+  (goto-char (point-min)))
+
 (defun message-delete-not-region (beg end)
   "Delete everything in the body of the current message outside of the region."
   (interactive "r")