Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mark.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 859a2309aef8
children 05472e90ae02
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
341 (list this-command 'marking-message)) 341 (list this-command 'marking-message))
342 (vm-update-summary-and-mode-line)) 342 (vm-update-summary-and-mode-line))
343 343
344 (defun vm-next-command-uses-marks () 344 (defun vm-next-command-uses-marks ()
345 "Does nothing except insure that the next VM command will operate only 345 "Does nothing except insure that the next VM command will operate only
346 on the marked messages in the current folder." 346 on the marked messages in the current folder. This only works for
347 commands bound to key, menu or button press events. M-x vm-command will
348 not work."
347 (interactive) 349 (interactive)
348 (setq this-command 'vm-next-command-uses-marks) 350 (setq this-command 'vm-next-command-uses-marks)
349 (vm-unsaved-message "Next command uses marks...") 351 (message "Next command uses marks...")
350 (vm-display nil nil '(vm-next-command-uses-marks) 352 (vm-display nil nil '(vm-next-command-uses-marks)
351 '(vm-next-command-uses-marks))) 353 '(vm-next-command-uses-marks)))
352 354
353 (defun vm-marked-messages () 355 (defun vm-marked-messages ()
354 (let (list (mp vm-message-list)) 356 (let (list (mp vm-message-list))