procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make "Show Hidden Headers" in Message buffers more obvious

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-09-23 13:24:44 +02:00
parent a90c5684a3
commit abdc82c08f
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/message.el
View file

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