mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-old-pruned): New permanent local.

Browse source 
(rmail-edit-current-message): Set rmail-old-pruned, then display full headers.
(rmail-cease-edit): rmail-old-pruned controls whether to prune headers.
This commit is contained in:
Richard M. Stallman 1998-05-27 21:06:10 +00:00
parent 903e09b79c
commit 77fb89636c
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mail/rmailedit.el
View file

@ -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 ()