Mercurial > emacs
changeset 22264:225596bc6090
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 May 1998 21:06:10 +0000 |
| parents | 150184345dc7 |
| children | 46bb1b22d269 |
| files | lisp/mail/rmailedit.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el Wed May 27 21:05:02 1998 +0000 +++ b/lisp/mail/rmailedit.el Wed May 27 21:06:10 1998 +0000 @@ -61,10 +61,16 @@ (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 @@ (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 @@ (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 ()