Mercurial > emacs
changeset 101616:3fd27701bdb1
(rmail-toggle-header): Don't reset
rmail-header-style permanently (bug#2016).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 28 Jan 2009 15:54:46 +0000 |
| parents | c316addfdee6 |
| children | bb28e4b4c12c |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Wed Jan 28 15:54:27 2009 +0000 +++ b/lisp/mail/rmail.el Wed Jan 28 15:54:46 2009 +0000 @@ -2368,12 +2368,12 @@ With argument ARG, show the message header pruned if ARG is greater than zero; otherwise, show it in full." (interactive "P") - (setq rmail-header-style - (cond - ((and (numberp arg) (> arg 0)) 'normal) - ((eq rmail-header-style 'full) 'normal) - (t 'full))) - (rmail-show-message-maybe)) + (let ((rmail-header-style + (cond + ((and (numberp arg) (> arg 0)) 'normal) + ((eq rmail-header-style 'full) 'normal) + (t 'full)))) + (rmail-show-message-maybe))) (defun rmail-beginning-of-message () "Show current message starting from the beginning."