1 |
;;; mh-utils.el --- MH-E code needed for both sending and reading |
;;; mh-utils.el --- MH-E code needed for both sending and reading |
2 |
|
|
3 |
;; Copyright (C) 1993, 1995, 1997, |
;; Copyright (C) 1993, 1995, 1997, |
4 |
;; 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Bill Wohler <wohler@newt.com> |
;; Author: Bill Wohler <wohler@newt.com> |
7 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
406 |
|
|
407 |
(defvar mh-letter-font-lock-keywords |
(defvar mh-letter-font-lock-keywords |
408 |
`(,@mh-show-font-lock-keywords-with-cite |
`(,@mh-show-font-lock-keywords-with-cite |
409 |
(mh-font-lock-field-data (1 'mh-letter-header-field-face prepend t)))) |
(mh-font-lock-field-data (1 'mh-letter-header-field prepend t)))) |
410 |
|
|
411 |
(defun mh-show-font-lock-fontify-region (beg end loudly) |
(defun mh-show-font-lock-fontify-region (beg end loudly) |
412 |
"Limit font-lock in `mh-show-mode' to the header. |
"Limit font-lock in `mh-show-mode' to the header. |
1218 |
(mh-funcall-if-exists |
(mh-funcall-if-exists |
1219 |
insert-image (create-image |
insert-image (create-image |
1220 |
raw type t |
raw type t |
1221 |
:foreground (face-foreground 'mh-show-xface-face) |
:foreground (face-foreground 'mh-show-xface) |
1222 |
:background (face-background 'mh-show-xface-face)) |
:background (face-background 'mh-show-xface)) |
1223 |
" "))) |
" "))) |
1224 |
;; XEmacs |
;; XEmacs |
1225 |
(mh-do-in-xemacs |
(mh-do-in-xemacs |
1237 |
(set-extent-begin-glyph |
(set-extent-begin-glyph |
1238 |
(make-extent (point) (point)) |
(make-extent (point) (point)) |
1239 |
(make-glyph (vector 'xface ':data (concat "X-Face: " x-face)))) |
(make-glyph (vector 'xface ':data (concat "X-Face: " x-face)))) |
1240 |
'mh-show-xface-face)) |
'mh-show-xface)) |
1241 |
;; Otherwise try external support with x-face... |
;; Otherwise try external support with x-face... |
1242 |
((and (eq type 'pbm) |
((and (eq type 'pbm) |
1243 |
(fboundp 'x-face-xmas-wl-display-x-face) |
(fboundp 'x-face-xmas-wl-display-x-face) |