[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-mime.el
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-mime.el |
Date: |
Mon, 19 May 2008 04:12:33 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Bill Wohler <wohler> 08/05/19 04:12:33
Modified files:
lisp/mh-e : mh-mime.el
Log message:
(mh-mh-to-mime, mh-mh-to-mime-undo): Preserve modes when converting to
or from MIME (closes SF #1966722).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-mime.el?cvsroot=emacs&r1=1.65&r2=1.66
Patches:
Index: mh-mime.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-mime.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- mh-mime.el 6 May 2008 03:56:47 -0000 1.65
+++ mh-mime.el 19 May 2008 04:12:32 -0000 1.66
@@ -1485,7 +1485,7 @@
"mhn"
(if extra-args mh-mh-to-mime-args)
buffer-file-name)))
- (revert-buffer t t)
+ (revert-buffer t t t)
(message "Running %s...done" (if (mh-variant-p 'nmh) "mhbuild" "mhn"))
(run-hooks 'mh-mh-to-mime-hook))
@@ -1531,7 +1531,7 @@
(let ((buffer-read-only nil))
(erase-buffer)
(insert-file-contents backup-file))
- (after-find-file nil)))
+ (after-find-file nil nil nil nil t)))
;; Shush compiler.
(defvar mh-identity-pgg-default-user-id)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-mime.el,
Bill Wohler <=