From abdc82c08fa57e1ba66b8c7efb44a7874ba221f7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 23 Sep 2019 13:24:44 +0200 Subject: [PATCH] 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 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") -- 2.39.2