Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-delete.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 859a2309aef8
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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