Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-motion.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1 ;;; Commands to move around in a VM folder 1 ;;; Commands to move around in a VM folder
2 ;;; Copyright (C) 1989, 1990, 1993, 1994 Kyle E. Jones 2 ;;; Copyright (C) 1989-1997 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)
22 (setq vm-last-message-pointer old 23 (setq vm-last-message-pointer old
23 vm-message-pointer new 24 vm-message-pointer new
24 vm-need-summary-pointer-update t)) 25 vm-need-summary-pointer-update t))
25 26
26 (defun vm-goto-message (n) 27 (defun vm-goto-message (n)
273 "Like vm-next-message but will not skip deleted or read messages." 274 "Like vm-next-message but will not skip deleted or read messages."
274 (interactive "p") 275 (interactive "p")
275 (if (interactive-p) 276 (if (interactive-p)
276 (vm-follow-summary-cursor)) 277 (vm-follow-summary-cursor))
277 (vm-select-folder-buffer) 278 (vm-select-folder-buffer)
278 (vm-display nil nil '(vm-Next-message) '(vm-Next-message)) 279 (vm-display nil nil '(vm-next-message-no-skip)
280 '(vm-next-message-no-skip))
279 (let ((vm-skip-deleted-messages nil) 281 (let ((vm-skip-deleted-messages nil)
280 (vm-skip-read-messages nil)) 282 (vm-skip-read-messages nil))
281 (vm-next-message count nil t))) 283 (vm-next-message count nil t)))
282 ;; backward compatibility 284 ;; backward compatibility
283 (fset 'vm-Next-message 'vm-next-message-no-skip) 285 (fset 'vm-Next-message 'vm-next-message-no-skip)
286 "Like vm-previous-message but will not skip deleted or read messages." 288 "Like vm-previous-message but will not skip deleted or read messages."
287 (interactive "p") 289 (interactive "p")
288 (if (interactive-p) 290 (if (interactive-p)
289 (vm-follow-summary-cursor)) 291 (vm-follow-summary-cursor))
290 (vm-select-folder-buffer) 292 (vm-select-folder-buffer)
291 (vm-display nil nil '(vm-Previous-message) '(vm-Previous-message)) 293 (vm-display nil nil '(vm-previous-message-no-skip)
294 '(vm-previous-message-no-skip))
292 (let ((vm-skip-deleted-messages nil) 295 (let ((vm-skip-deleted-messages nil)
293 (vm-skip-read-messages nil)) 296 (vm-skip-read-messages nil))
294 (vm-previous-message count))) 297 (vm-previous-message count)))
295 ;; backward compatibility 298 ;; backward compatibility
296 (fset 'vm-Previous-message 'vm-previous-message-no-skip) 299 (fset 'vm-Previous-message 'vm-previous-message-no-skip)