diff lisp/vm/vm-edit.el @ 155:43dd3413c7c7 r20-3b4

Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 0d2f883870bc
children
line wrap: on
line diff
--- a/lisp/vm/vm-edit.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/vm/vm-edit.el	Mon Aug 13 09:39:39 2007 +0200
@@ -83,7 +83,8 @@
 	     (substitute-command-keys
 	      "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change.")))
 	(set-buffer edit-buf))
-      (if (and vm-frame-per-edit (vm-multiple-frames-possible-p))
+      (if (and vm-mutable-frames vm-frame-per-edit
+	       (vm-multiple-frames-possible-p))
 	  (let ((w (vm-get-buffer-window edit-buf)))
 	    (if (null w)
 		(progn