[Emacs-diffs] emacs/lisp/mail rmail.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/28 15:54:47

Modified files:
        lisp/mail      : rmail.el 

Log message:
        (rmail-toggle-header): Don't reset
        rmail-header-style permanently (bug#2016).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.474&r2=1.475

Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.474
retrieving revision 1.475
diff -u -b -r1.474 -r1.475
--- rmail.el    28 Jan 2009 02:50:43 -0000      1.474
+++ rmail.el    28 Jan 2009 15:54:46 -0000      1.475
@@ -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
+  (let ((rmail-header-style
        (cond
         ((and (numberp arg) (> arg 0)) 'normal)
         ((eq rmail-header-style 'full) 'normal)
-        (t 'full)))
-  (rmail-show-message-maybe))
+         (t 'full))))
+    (rmail-show-message-maybe)))
 
 (defun rmail-beginning-of-message ()
   "Show current message starting from the beginning."