comparison lisp/mail/mspools.el @ 85478:786d3a985758

* term/x-win.el (x-gtk-stock-map, icon-map-list) (x-gtk-map-stock): Delete duplicated definitions from merge. * progmodes/octave-mod.el: Require octave-inf at compile time * progmodes/compile.el (compilation-skip-to-next-location) (compilation-skip-threshold, compilation-skip-visited): Move definitions earlier. * play/zone.el (zone-fall-through-ws): * play/landmark.el (lm-move-down, lm-move-up): * play/handwrite.el (handwrite): * mail/mspools.el (mspools-visit-spool): * wdired.el (wdired-next-line, wdired-previous-line): * tar-mode.el (tar-subfile-save-buffer): * scroll-lock.el (scroll-lock-next-line) (scroll-lock-previous-line): * image-dired.el (image-dired-next-line) (image-dired-previous-line): * ediff-help.el (ediff-help-message-line-length): Use forward-line. * smerge-mode.el (smerge-auto-refine): * diff-mode.el (diff-auto-refine): Add :group. * play/yow.el: Require doctor at compile time. * vmsproc.el: Provide vmsproc. (command-send-input): Use forward-line. * vms-patch.el: Require ps-print and vmsproc at compile time. * vc-mtn.el (log-view-message-re, log-view-file-re) (log-view-font-lock-keywords): Pacify byte-compiler. * vc-hg.el: Require log-view at compile time.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 20 Oct 2007 06:30:18 +0000
parents 0092d723fe35
children 4aedd218aad1 4bc33ffdda1a
comparison
equal deleted inserted replaced
85477:6b081e079821 85478:786d3a985758
270 (if (eq (count-lines (point-min) 270 (if (eq (count-lines (point-min)
271 (save-excursion 271 (save-excursion
272 (end-of-line) 272 (end-of-line)
273 (point))) 273 (point)))
274 mspools-files-len) 274 mspools-files-len)
275 (next-line (- 1 mspools-files-len)) ;back to top of list 275 (forward-line (- 1 mspools-files-len)) ;back to top of list
276 ;; else just on to next line 276 ;; else just on to next line
277 (next-line 1)) 277 (forward-line 1))
278 278
279 ;; Choose whether to use VM or RMAIL for reading folder. 279 ;; Choose whether to use VM or RMAIL for reading folder.
280 (if mspools-using-vm 280 (if mspools-using-vm
281 (vm-visit-folder (concat mspools-folder-directory folder-name)) 281 (vm-visit-folder (concat mspools-folder-directory folder-name))
282 ;; else using RMAIL 282 ;; else using RMAIL