# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233158086 0
# Node ID 3fd27701bdb17a10820398670f38dffb21b6f600
# Parent  c316addfdee6b92f7d47ca7952c8556e94bab4c2
(rmail-toggle-header): Don't reset
rmail-header-style permanently (bug#2016).

diff -r c316addfdee6 -r 3fd27701bdb1 lisp/mail/rmail.el
--- 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."