Commit 387f203c authored by Richard M. Stallman's avatar Richard M. Stallman

(rmail-summary-toggle-header): Make header visible in message buffer.

parent c422836d
......@@ -1155,7 +1155,19 @@ Interactively, empty argument means use same regexp used last time."
(interactive)
(save-excursion
(set-buffer rmail-buffer)
(rmail-toggle-header)))
(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))))))
(defun rmail-summary-add-label (label)
"Add LABEL to labels associated with current Rmail message.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment