[Emacs-diffs] master abdc82c: Make "Show Hidden Headers" in Message buffers more obvious

[Lars Ingebrigtsen]

branch: master
commit abdc82c08fa57e1ba66b8c7efb44a7874ba221f7
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/gnus/message.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 35baae0..9de35bd 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")