Mercurial > hg > xemacs-beta

diff lisp/vm/vm-mouse.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children c53a95d3c46d
line wrap: on
line diff
--- a/lisp/vm/vm-mouse.el	Mon Aug 13 08:51:58 2007 +0200
+++ b/lisp/vm/vm-mouse.el	Mon Aug 13 08:52:29 2007 +0200
@@ -75,7 +75,7 @@
 	      ((eq major-mode 'vm-virtual-mode)
 	       (vm-menu-popup-context-menu event))
 	      ((eq major-mode 'mail-mode)
-	       (vm-menu-popup-mode-menu event))))))
+	       (vm-menu-popup-context-menu event))))))
 
 (defun vm-mouse-3-help (object)
   nil
@@ -268,9 +268,9 @@
 		       nil arg-list))
 	  (cond ((equal status 0) t)
 		;; even if exit status non-zero, if there was no
-		;; diagnostic output the command probablyt
-		;; succeeded.  I have tried just use exit status
-		;; as the failure criteria and users complained.
+		;; diagnostic output the command probably
+		;; succeeded.  I have tried to just use exit status
+		;; as the failure criterion and users complained.
 		((equal (nth 7 (file-attributes tempfile)) 0)
 		 (message "%s exited non-zero (code %s)" command status)
 		 t)