mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 11:20:41 -08:00
Code Issues Projects Releases Wiki Activity

(pmail-edit-saved-coding-system): Var deleted.

Browse source 
(pmail-edit-current-message, pmail-cease-edit):
Don't set it, or save-buffer-coding-system.
This commit is contained in:
Richard M. Stallman 2008-12-23 03:56:30 +00:00
parent 125d2ddf70
commit 759f544f5a
1 changed files with 0 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/pmailedit.el
View file

@ -77,9 +77,6 @@ This functions runs the normal hook `pmail-edit-mode-hook'.
(defvar pmail-old-pruned nil)
(put 'pmail-old-pruned 'permanent-local t)
(defvar pmail-edit-saved-coding-system nil)
(put 'pmail-edit-saved-coding-system 'permanent-local t)
;;;###autoload
(defun pmail-edit-current-message ()
"Edit the contents of this message."
@ -88,13 +85,7 @@ This functions runs the normal hook `pmail-edit-mode-hook'.
(error "No messages in this file"))
(make-local-variable 'pmail-old-pruned)
(setq pmail-old-pruned (eq pmail-header-style 'normal))
(make-local-variable 'pmail-edit-saved-coding-system)
(setq pmail-edit-saved-coding-system save-buffer-coding-system)
(pmail-edit-mode)
;; As the local value of save-buffer-coding-system is deleted by
;; pmail-edit-mode, we restore the original value.
(make-local-variable 'save-buffer-coding-system)
(setq save-buffer-coding-system pmail-edit-saved-coding-system)
(make-local-variable 'pmail-old-text)
(setq pmail-old-text (buffer-substring (point-min) (point-max)))
(setq buffer-read-only nil)
@ -129,9 +120,6 @@ This functions runs the normal hook `pmail-edit-mode-hook'.
(if (boundp 'tool-bar-map)
(set (make-local-variable 'tool-bar-map) pmail-tool-bar-map))
(pmail-variables)
;; As the local value of save-buffer-coding-system is changed by
;; pmail-variables, we restore the original value.
(setq save-buffer-coding-system pmail-edit-saved-coding-system)
(unless (and (= (length old) (- (point-max) (point-min)))
(string= old (buffer-substring (point-min) (point-max))))
(setq old nil)