Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-summary.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
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
42 (vm-mouse-support-possible-p) 41 (vm-mouse-support-possible-p)
43 (vm-mouse-xemacs-mouse-p) 42 (vm-mouse-xemacs-mouse-p)
44 (add-hook 'mode-motion-hook 'mode-motion-highlight-line)) 43 (add-hook 'mode-motion-hook 'mode-motion-highlight-line))
45 (if (or vm-frame-per-folder vm-frame-per-summary) 44 (if (and vm-mutable-frames (or vm-frame-per-folder vm-frame-per-summary))
46 (vm-set-hooks-for-frame-deletion)) 45 (vm-set-hooks-for-frame-deletion))
47 (run-hooks 'vm-summary-mode-hook) 46 (run-hooks 'vm-summary-mode-hook)
48 ;; Lucid Emacs apparently used this name 47 ;; Lucid Emacs apparently used this name
49 (run-hooks 'vm-summary-mode-hooks)) 48 (run-hooks 'vm-summary-mode-hooks))
50 49
282 (and w vm-auto-center-summary (vm-auto-center-summary)) 281 (and w vm-auto-center-summary (vm-auto-center-summary))
283 (run-hooks 'vm-summary-pointer-update-hook))) 282 (run-hooks 'vm-summary-pointer-update-hook)))
284 (and old-window (select-window old-window))))))) 283 (and old-window (select-window old-window)))))))
285 284
286 (defun vm-summary-highlight-region (start end face) 285 (defun vm-summary-highlight-region (start end face)
287 (cond ((fboundp 'make-overlay) 286 (cond (vm-fsfemacs-19-p
288 (if (and vm-summary-overlay (overlay-buffer vm-summary-overlay)) 287 (if (and vm-summary-overlay (overlay-buffer vm-summary-overlay))
289 (move-overlay vm-summary-overlay start end) 288 (move-overlay vm-summary-overlay start end)
290 (setq vm-summary-overlay (make-overlay start end)) 289 (setq vm-summary-overlay (make-overlay start end))
291 (overlay-put vm-summary-overlay 'evaporate nil) 290 (overlay-put vm-summary-overlay 'evaporate nil)
292 (overlay-put vm-summary-overlay 'face face))) 291 (overlay-put vm-summary-overlay 'face face)))
293 ((fboundp 'make-extent) 292 (vm-xemacs-p
294 (if (and vm-summary-overlay (extent-end-position vm-summary-overlay)) 293 (if (and vm-summary-overlay (extent-end-position vm-summary-overlay))
295 (set-extent-endpoints vm-summary-overlay start end) 294 (set-extent-endpoints vm-summary-overlay start end)
296 (setq vm-summary-overlay (make-extent start end)) 295 (setq vm-summary-overlay (make-extent start end))
297 ;; the reason this isn't needed under FSF Emacs is 296 ;; the reason this isn't needed under FSF Emacs is
298 ;; that insert-before-markers also inserts before 297 ;; that insert-before-markers also inserts before
928 927
929 (defun vm-su-message-id (m) 928 (defun vm-su-message-id (m)
930 (or (vm-message-id-of m) 929 (or (vm-message-id-of m)
931 (vm-set-message-id-of 930 (vm-set-message-id-of
932 m 931 m
933 (or (vm-get-header-contents m "Message-Id:") 932 (or (let ((id (vm-get-header-contents m "Message-Id:")))
933 (and id (car (vm-parse id "[^<]*\\(<[^>]+>\\)"))))
934 ;; try running md5 on the message body to produce an ID 934 ;; try running md5 on the message body to produce an ID
935 ;; better than nothing. 935 ;; better than nothing.
936 (save-excursion 936 (save-excursion
937 (set-buffer (vm-buffer-of (vm-real-message-of m))) 937 (set-buffer (vm-buffer-of (vm-real-message-of m)))
938 (save-restriction 938 (save-restriction