Mercurial > hg > xemacs-beta

diff lisp/vm/vm-save.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 4103f0995bd7
line wrap: on
line diff
--- a/lisp/vm/vm-save.el	Mon Aug 13 08:49:44 2007 +0200
+++ b/lisp/vm/vm-save.el	Mon Aug 13 08:50:05 2007 +0200
@@ -142,7 +142,7 @@
       (intern (buffer-name) vm-buffers-needing-display-update)
       (vm-update-summary-and-mode-line))
     (if (zerop archived)
-	(message "No messages archived")
+	(message "No messages were archived")
       (message "%d message%s archived"
 	       archived (if (= 1 archived) "" "s")))))
 
@@ -486,7 +486,7 @@
 	(let ((pop-up-windows (and pop-up-windows (eq vm-mutable-windows t))))
 	  (call-process-region (point-min) (point-max)
 			       (or shell-file-name "sh")
-			       nil buffer nil "-c" command)))
+			       nil buffer nil shell-command-switch command)))
       (setq mlist (cdr mlist)))
      (set-buffer buffer)
      (if (not (zerop (buffer-size)))