Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mark.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 0d2f883870bc
children b980b6286996
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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))