Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-page.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents cca96a509cfe
children 2d532a89d707
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
23 If at the end of the current message, moves to the next message iff the 23 If at the end of the current message, moves to the next message iff the
24 value of vm-auto-next-message is non-nil. 24 value of vm-auto-next-message is non-nil.
25 Prefix argument N means scroll forward N lines." 25 Prefix argument N means scroll forward N lines."
26 (interactive "P") 26 (interactive "P")
27 (let ((mp-changed (vm-follow-summary-cursor)) 27 (let ((mp-changed (vm-follow-summary-cursor))
28 needs-decoding
28 (was-invisible nil)) 29 (was-invisible nil))
29 (vm-select-folder-buffer) 30 (vm-select-folder-buffer)
30 (vm-check-for-killed-summary) 31 (vm-check-for-killed-summary)
31 (vm-check-for-killed-presentation) 32 (vm-check-for-killed-presentation)
32 (vm-error-if-folder-empty) 33 (vm-error-if-folder-empty)
34 (setq needs-decoding (and vm-display-using-mime
35 (not vm-mime-decoded)
36 (not (vm-mime-plain-message-p
37 (car vm-message-pointer)))
38 vm-auto-decode-mime-messages
39 (eq vm-system-state 'previewing)))
33 (and vm-presentation-buffer 40 (and vm-presentation-buffer
34 (set-buffer vm-presentation-buffer)) 41 (set-buffer vm-presentation-buffer))
35 (let ((point (point)) 42 (let ((point (point))
36 (w (vm-get-visible-buffer-window (current-buffer)))) 43 (w (vm-get-visible-buffer-window (current-buffer))))
37 (if (or (null w) 44 (if (or (null w)
44 ;; region moves back past it in the buffer. fix it. 51 ;; region moves back past it in the buffer. fix it.
45 (setq w (vm-get-visible-buffer-window (current-buffer))) 52 (setq w (vm-get-visible-buffer-window (current-buffer)))
46 (if (= (window-start w) (point-max)) 53 (if (= (window-start w) (point-max))
47 (set-window-start w (point-min))) 54 (set-window-start w (point-min)))
48 (setq was-invisible t)))) 55 (setq was-invisible t))))
49 (if (or mp-changed was-invisible 56 (if (or mp-changed was-invisible needs-decoding
50 (and (eq vm-system-state 'previewing) 57 (and (eq vm-system-state 'previewing)
51 (pos-visible-in-window-p 58 (pos-visible-in-window-p
52 (point-max) 59 (point-max)
53 (vm-get-visible-buffer-window (current-buffer))))) 60 (vm-get-visible-buffer-window (current-buffer)))))
54 (progn 61 (progn
486 (vm-text-of (car vm-message-pointer))) 493 (vm-text-of (car vm-message-pointer)))
487 (vm-energize-headers))) 494 (vm-energize-headers)))
488 ;; display xfaces, if we can 495 ;; display xfaces, if we can
489 (if (and vm-display-xfaces 496 (if (and vm-display-xfaces
490 vm-xemacs-p 497 vm-xemacs-p
491 (vm-multiple-frames-possible-p)
492 (featurep 'xface)) 498 (featurep 'xface))
493 (save-restriction 499 (save-restriction
494 (widen) 500 (widen)
495 (narrow-to-region (vm-headers-of (car vm-message-pointer)) 501 (narrow-to-region (vm-headers-of (car vm-message-pointer))
496 (vm-text-of (car vm-message-pointer))) 502 (vm-text-of (car vm-message-pointer)))