From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Dec 2008 03:56:30 +0000 (+0000)
Subject: (pmail-edit-saved-coding-system): Var deleted.
X-Git-Tag: emacs-pretest-23.0.90~896
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=759f544f5a4c2f2e447eb2bb59a46cf8717ff5eb;p=emacs.git

(pmail-edit-saved-coding-system): Var deleted.
(pmail-edit-current-message, pmail-cease-edit):
Don't set it, or save-buffer-coding-system.
---

diff --git a/lisp/mail/pmailedit.el b/lisp/mail/pmailedit.el
index 9ee13fb2e4a..c4585bc0f86 100644
--- a/lisp/mail/pmailedit.el
+++ b/lisp/mail/pmailedit.el
@@ -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)