comparison lisp/vm/vm-summary.el @ 146:2af401a6ecca r20-2p1

Import from CVS: tag r20-2p1
author cvs
date Mon, 13 Aug 2007 09:34:46 +0200
parents cca96a509cfe
children 43dd3413c7c7
comparison
equal deleted inserted replaced
145:e13feca31ba6 146:2af401a6ecca
30 vm-summary-=> (if (stringp vm-summary-arrow) vm-summary-arrow "") 30 vm-summary-=> (if (stringp vm-summary-arrow) vm-summary-arrow "")
31 vm-summary-no-=> (make-string (length vm-summary-=>) ? ) 31 vm-summary-no-=> (make-string (length vm-summary-=>) ? )
32 truncate-lines t) 32 truncate-lines t)
33 ;; horizontal scrollbar off by default 33 ;; horizontal scrollbar off by default
34 ;; user can turn it on in summary hook if desired. 34 ;; user can turn it on in summary hook if desired.
35 (and (fboundp 'set-specifier) 35 (and vm-xemacs-p (featurep 'scrollbar)
36 scrollbar-height
37 (set-specifier scrollbar-height (cons (current-buffer) 0))) 36 (set-specifier scrollbar-height (cons (current-buffer) 0)))
38 (use-local-map vm-summary-mode-map) 37 (use-local-map vm-summary-mode-map)
39 (and (vm-menu-support-possible-p) 38 (and (vm-menu-support-possible-p)
40 (vm-menu-install-menus)) 39 (vm-menu-install-menus))
41 (and vm-mouse-track-summary 40 (and vm-mouse-track-summary