Function: rmail-summary-toggle-header
rmail-summary-toggle-header is an interactive and byte-compiled
function defined in rmailsum.el.gz.
Signature
(rmail-summary-toggle-header)
Documentation
Show original message header if pruned header currently shown, or vice versa.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/mail/rmailsum.el.gz
(defun rmail-summary-toggle-header ()
"Show original message header if pruned header currently shown, or vice versa."
(interactive)
(save-window-excursion
(set-buffer rmail-buffer)
(rmail-toggle-header))
;; Inside save-excursion, some changes to point in the RMAIL buffer are lost.
;; Set point to point-min in the RMAIL buffer, if it is visible.
(let ((window (get-buffer-window rmail-buffer)))
(if window
;; Using save-window-excursion would lose the new value of point.
(let ((owin (selected-window)))
(unwind-protect
(progn
(select-window window)
(goto-char (point-min)))
(select-window owin))))))