Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-motion.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 859a2309aef8
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; Commands to move around in a VM folder 1 ;;; Commands to move around in a VM folder
2 ;;; Copyright (C) 1989-1997 Kyle E. Jones 2 ;;; Copyright (C) 1989, 1990, 1993, 1994 Kyle E. Jones
3 ;;; 3 ;;;
4 ;;; This program is free software; you can redistribute it and/or modify 4 ;;; This program is free software; you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by 5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation; either version 1, or (at your option) 6 ;;; the Free Software Foundation; either version 1, or (at your option)
7 ;;; any later version. 7 ;;; any later version.
17 17
18 (provide 'vm-motion) 18 (provide 'vm-motion)
19 19
20 (defun vm-record-and-change-message-pointer (old new) 20 (defun vm-record-and-change-message-pointer (old new)
21 (intern (buffer-name) vm-buffers-needing-display-update) 21 (intern (buffer-name) vm-buffers-needing-display-update)
22 (vm-garbage-collect-message)
23 (setq vm-last-message-pointer old 22 (setq vm-last-message-pointer old
24 vm-message-pointer new 23 vm-message-pointer new
25 vm-need-summary-pointer-update t)) 24 vm-need-summary-pointer-update t))
26 25
27 (defun vm-goto-message (n) 26 (defun vm-goto-message (n)
274 "Like vm-next-message but will not skip deleted or read messages." 273 "Like vm-next-message but will not skip deleted or read messages."
275 (interactive "p") 274 (interactive "p")
276 (if (interactive-p) 275 (if (interactive-p)
277 (vm-follow-summary-cursor)) 276 (vm-follow-summary-cursor))
278 (vm-select-folder-buffer) 277 (vm-select-folder-buffer)
279 (vm-display nil nil '(vm-next-message-no-skip) 278 (vm-display nil nil '(vm-Next-message) '(vm-Next-message))
280 '(vm-next-message-no-skip))
281 (let ((vm-skip-deleted-messages nil) 279 (let ((vm-skip-deleted-messages nil)
282 (vm-skip-read-messages nil)) 280 (vm-skip-read-messages nil))
283 (vm-next-message count nil t))) 281 (vm-next-message count nil t)))
284 ;; backward compatibility 282 ;; backward compatibility
285 (fset 'vm-Next-message 'vm-next-message-no-skip) 283 (fset 'vm-Next-message 'vm-next-message-no-skip)
288 "Like vm-previous-message but will not skip deleted or read messages." 286 "Like vm-previous-message but will not skip deleted or read messages."
289 (interactive "p") 287 (interactive "p")
290 (if (interactive-p) 288 (if (interactive-p)
291 (vm-follow-summary-cursor)) 289 (vm-follow-summary-cursor))
292 (vm-select-folder-buffer) 290 (vm-select-folder-buffer)
293 (vm-display nil nil '(vm-previous-message-no-skip) 291 (vm-display nil nil '(vm-Previous-message) '(vm-Previous-message))
294 '(vm-previous-message-no-skip))
295 (let ((vm-skip-deleted-messages nil) 292 (let ((vm-skip-deleted-messages nil)
296 (vm-skip-read-messages nil)) 293 (vm-skip-read-messages nil))
297 (vm-previous-message count))) 294 (vm-previous-message count)))
298 ;; backward compatibility 295 ;; backward compatibility
299 (fset 'vm-Previous-message 'vm-previous-message-no-skip) 296 (fset 'vm-Previous-message 'vm-previous-message-no-skip)