Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-page.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children 43dd3413c7c7
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
203 ((symbolp arg) nil) 203 ((symbolp arg) nil)
204 (t arg)))) 204 (t arg))))
205 205
206 (defun vm-highlight-headers () 206 (defun vm-highlight-headers ()
207 (cond 207 (cond
208 ((and (vm-xemacs-p) vm-use-lucid-highlighting) 208 ((and vm-xemacs-p vm-use-lucid-highlighting)
209 (require 'highlight-headers) 209 (require 'highlight-headers)
210 ;; disable the url marking stuff, since VM has its own interface. 210 ;; disable the url marking stuff, since VM has its own interface.
211 (let ((highlight-headers-mark-urls nil) 211 (let ((highlight-headers-mark-urls nil)
212 (highlight-headers-regexp (or vm-highlighted-header-regexp 212 (highlight-headers-regexp (or vm-highlighted-header-regexp
213 highlight-headers-regexp))) 213 highlight-headers-regexp)))
214 (highlight-headers (point-min) (point-max) t))) 214 (highlight-headers (point-min) (point-max) t)))
215 ((vm-xemacs-p) 215 (vm-xemacs-p
216 (let (e) 216 (let (e)
217 (map-extents (function 217 (map-extents (function
218 (lambda (e ignore) 218 (lambda (e ignore)
219 (if (extent-property e 'vm-highlight) 219 (if (extent-property e 'vm-highlight)
220 (delete-extent e)) 220 (delete-extent e))
261 (+ (point-min) (/ search-limit 2))) 261 (+ (point-min) (/ search-limit 2)))
262 (cons (- (point-max) (/ search-limit 2)) 262 (cons (- (point-max) (/ search-limit 2))
263 (point-max)))) 263 (point-max))))
264 (setq search-pairs (list (cons (point-min) (point-max))))) 264 (setq search-pairs (list (cons (point-min) (point-max)))))
265 (cond 265 (cond
266 ((vm-xemacs-p) 266 (vm-xemacs-p
267 (let (e) 267 (let (e)
268 (map-extents (function 268 (map-extents (function
269 (lambda (e ignore) 269 (lambda (e ignore)
270 (if (extent-property e 'vm-url) 270 (if (extent-property e 'vm-url)
271 (delete-extent e)) 271 (delete-extent e))
297 (vm-mouse-send-url-at-position (point))))) 297 (vm-mouse-send-url-at-position (point)))))
298 (set-extent-property e 'keymap keymap) 298 (set-extent-property e 'keymap keymap)
299 (set-extent-property e 'balloon-help 'vm-url-help) 299 (set-extent-property e 'balloon-help 'vm-url-help)
300 (set-extent-property e 'highlight t)))) 300 (set-extent-property e 'highlight t))))
301 (setq search-pairs (cdr search-pairs))))) 301 (setq search-pairs (cdr search-pairs)))))
302 ((and (vm-fsfemacs-19-p) 302 ((and vm-fsfemacs-19-p
303 (fboundp 'overlay-put)) 303 (fboundp 'overlay-put))
304 (let (o-lists o p) 304 (let (o-lists o p)
305 (setq o-lists (overlay-lists) 305 (setq o-lists (overlay-lists)
306 p (car o-lists)) 306 p (car o-lists))
307 (while p 307 (while p
341 (overlay-put o 'local-map keymap)))) 341 (overlay-put o 'local-map keymap))))
342 (setq search-pairs (cdr search-pairs)))))))) 342 (setq search-pairs (cdr search-pairs))))))))
343 343
344 (defun vm-energize-headers () 344 (defun vm-energize-headers ()
345 (cond 345 (cond
346 ((vm-xemacs-p) 346 (vm-xemacs-p
347 (let ((search-tuples '(("^From:" vm-menu-author-menu) 347 (let ((search-tuples '(("^From:" vm-menu-author-menu)
348 ("^Subject:" vm-menu-subject-menu))) 348 ("^Subject:" vm-menu-subject-menu)))
349 regexp menu keymap e) 349 regexp menu keymap e)
350 (map-extents (function 350 (map-extents (function
351 (lambda (e ignore) 351 (lambda (e ignore)
375 (list 'popup-menu (list 'quote menu))))) 375 (list 'popup-menu (list 'quote menu)))))
376 (set-extent-property e 'keymap keymap) 376 (set-extent-property e 'keymap keymap)
377 (set-extent-property e 'balloon-help 'vm-mouse-3-help) 377 (set-extent-property e 'balloon-help 'vm-mouse-3-help)
378 (set-extent-property e 'highlight t)) 378 (set-extent-property e 'highlight t))
379 (setq search-tuples (cdr search-tuples))))) 379 (setq search-tuples (cdr search-tuples)))))
380 ((and (vm-fsfemacs-19-p) 380 ((and vm-fsfemacs-19-p
381 (fboundp 'overlay-put)) 381 (fboundp 'overlay-put))
382 (let ((search-tuples '(("^From:" vm-menu-fsfemacs-author-menu) 382 (let ((search-tuples '(("^From:" vm-menu-fsfemacs-author-menu)
383 ("^Subject:" vm-menu-fsfemacs-subject-menu))) 383 ("^Subject:" vm-menu-fsfemacs-subject-menu)))
384 regexp menu 384 regexp menu
385 o-lists o p) 385 o-lists o p)
468 (vm-energize-urls))))) 468 (vm-energize-urls)))))
469 469
470 (defun vm-highlight-headers-maybe () 470 (defun vm-highlight-headers-maybe ()
471 ;; highlight the headers 471 ;; highlight the headers
472 (if (or vm-highlighted-header-regexp 472 (if (or vm-highlighted-header-regexp
473 (and (vm-xemacs-p) vm-use-lucid-highlighting)) 473 (and vm-xemacs-p vm-use-lucid-highlighting))
474 (save-restriction 474 (save-restriction
475 (widen) 475 (widen)
476 (narrow-to-region (vm-headers-of (car vm-message-pointer)) 476 (narrow-to-region (vm-headers-of (car vm-message-pointer))
477 (vm-text-end-of (car vm-message-pointer))) 477 (vm-text-end-of (car vm-message-pointer)))
478 (vm-highlight-headers)))) 478 (vm-highlight-headers))))
485 (narrow-to-region (vm-headers-of (car vm-message-pointer)) 485 (narrow-to-region (vm-headers-of (car vm-message-pointer))
486 (vm-text-of (car vm-message-pointer))) 486 (vm-text-of (car vm-message-pointer)))
487 (vm-energize-headers))) 487 (vm-energize-headers)))
488 ;; display xfaces, if we can 488 ;; display xfaces, if we can
489 (if (and vm-display-xfaces 489 (if (and vm-display-xfaces
490 (vm-xemacs-p) 490 vm-xemacs-p
491 (vm-multiple-frames-possible-p) 491 (vm-multiple-frames-possible-p)
492 (featurep 'xface)) 492 (featurep 'xface))
493 (save-restriction 493 (save-restriction
494 (widen) 494 (widen)
495 (narrow-to-region (vm-headers-of (car vm-message-pointer)) 495 (narrow-to-region (vm-headers-of (car vm-message-pointer))