Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-delete.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children a145efe76779
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
145 ((< arg 0) 145 ((< arg 0)
146 (setq arg -1)) 146 (setq arg -1))
147 (t (setq arg 0))) 147 (t (setq arg 0)))
148 (if vm-move-after-killing 148 (if vm-move-after-killing
149 (let ((vm-circular-folders (and vm-circular-folders 149 (let ((vm-circular-folders (and vm-circular-folders
150 (eq vm-move-after-deleting t)))) 150 (eq vm-move-after-killing t))))
151 (vm-next-message arg t executing-kbd-macro)))) 151 (vm-next-message arg t executing-kbd-macro))))
152 152
153 (defun vm-expunge-folder (&optional shaddap) 153 (defun vm-expunge-folder (&optional shaddap)
154 "Expunge messages with the `deleted' attribute. 154 "Expunge messages with the `deleted' attribute.
155 For normal folders this means that the deleted messages are 155 For normal folders this means that the deleted messages are