Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-page.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children 8619ce7e4c50
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
410 (set-face-foreground 'vm-xface "black")) 410 (set-face-foreground 'vm-xface "black"))
411 (if (re-search-forward "^X-Face:" nil t) 411 (if (re-search-forward "^X-Face:" nil t)
412 (progn 412 (progn
413 (goto-char (match-beginning 0)) 413 (goto-char (match-beginning 0))
414 (vm-match-header) 414 (vm-match-header)
415 (setq h (vm-matched-header)) 415 (setq h (concat "X-Face: " (vm-matched-header-contents)))
416 (setq g (intern h vm-xface-cache)) 416 (setq g (intern h vm-xface-cache))
417 (if (boundp g) 417 (if (boundp g)
418 (setq g (symbol-value g)) 418 (setq g (symbol-value g))
419 (set g (make-glyph h)) 419 (set g (make-glyph h))
420 (setq g (symbol-value g)) 420 (setq g (symbol-value g))
533 (current-buffer)))) 533 (current-buffer))))
534 534
535 ;; at this point the current buffer is the presentation buffer 535 ;; at this point the current buffer is the presentation buffer
536 ;; if we're using one for this message. 536 ;; if we're using one for this message.
537 537
538 (vm-unbury-buffer (current-buffer))
538 (vm-energize-urls-in-message-region) 539 (vm-energize-urls-in-message-region)
539 (vm-highlight-headers-maybe) 540 (vm-highlight-headers-maybe)
540 (vm-energize-headers-and-xfaces) 541 (vm-energize-headers-and-xfaces)
541 542
542 (if vm-honor-page-delimiters 543 (if vm-honor-page-delimiters