From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 May 1998 21:06:10 +0000 (+0000)
Subject: (rmail-old-pruned): New permanent local.
X-Git-Tag: emacs-20.3~813
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77fb89636c5edaafa99a3cda6757b05dc2bb4541;p=emacs.git

(rmail-old-pruned): New permanent local.
(rmail-edit-current-message): Set rmail-old-pruned, then display full headers.
(rmail-cease-edit): rmail-old-pruned controls whether to prune headers.
---

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 8f5a65a9b59..4fee4f848a2 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -61,10 +61,16 @@ to return to regular RMAIL:
 	(rmail-summary-disable)))
   (run-hooks 'rmail-edit-mode-hook))
 
+(defvar rmail-old-pruned nil)
+(put 'rmail-old-pruned 'permanent-local t)
+
 ;;;###autoload
 (defun rmail-edit-current-message ()
   "Edit the contents of this message."
   (interactive)
+  (make-local-variable 'rmail-old-pruned)
+  (setq rmail-old-pruned (rmail-msg-is-pruned))
+  (rmail-toggle-header 0)
   (rmail-edit-mode)
   (make-local-variable 'rmail-old-text)
   (setq rmail-old-text (buffer-substring (point-min) (point-max)))
@@ -74,7 +80,7 @@ to return to regular RMAIL:
 	   (eq (key-binding "\C-c\C-]") 'rmail-abort-edit))
       (message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort")
     (message "%s" (substitute-command-keys
-	       "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"))))
+		   "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"))))
 
 (defun rmail-cease-edit ()
   "Finish editing message; switch back to Rmail proper."
@@ -114,7 +120,8 @@ to return to regular RMAIL:
 						 (progn (forward-line 1)
 							(point))))))))))))
     (save-excursion
-      (rmail-show-message)))
+      (rmail-show-message)
+      (rmail-toggle-header (if rmail-old-pruned 1 0))))
   (setq buffer-read-only t))
 
 (defun rmail-abort-edit ()