martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(rmail-toggle-header): Don't reset

Browse Source 
rmail-header-style permanently (bug#2016).
This commit is contained in:
Chong Yidong
2009-01-28 15:54:46 +00:00
parent 09881c0d4d
commit 8372c367bd
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/mail/rmail.el
View File

@@ -2368,12 +2368,12 @@ the message. Point is at the beginning of the message."
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."