[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master abdc82c: Make "Show Hidden Headers" in Message buff

From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master abdc82c: Make "Show Hidden Headers" in Message buffers more obvious
Date: Mon, 23 Sep 2019 07:24:54 -0400 (EDT)

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 
 ;;; 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")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]