[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmailedit.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmailedit.el |
Date: |
Tue, 23 Dec 2008 03:56:30 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Richard M. Stallman <rms> 08/12/23 03:56:30
Modified files:
lisp/mail : pmailedit.el
Log message:
(pmail-edit-saved-coding-system): Var deleted.
(pmail-edit-current-message, pmail-cease-edit):
Don't set it, or save-buffer-coding-system.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailedit.el?cvsroot=emacs&r1=1.8&r2=1.9
Patches:
Index: pmailedit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmailedit.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- pmailedit.el 23 Dec 2008 03:46:03 -0000 1.8
+++ pmailedit.el 23 Dec 2008 03:56:30 -0000 1.9
@@ -77,9 +77,6 @@
(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 @@
(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 @@
(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)
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmailedit.el,
Richard M. Stallman <=
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmailedit.el, Richard M. Stallman, 2008/12/29