Index: emacs/lisp/mh-e/mh-utils.el
diff -c emacs/lisp/mh-e/mh-utils.el:1.11 emacs/lisp/mh-e/mh-utils.el:1.12
*** emacs/lisp/mh-e/mh-utils.el:1.11 Sat May 28 22:04:54 2005
--- emacs/lisp/mh-e/mh-utils.el Fri Jun 17 01:29:30 2005
***************
*** 1,7 ****
;;; mh-utils.el --- MH-E code needed for both sending and reading
;; Copyright (C) 1993, 1995, 1997,
! ;; 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
;; Author: Bill Wohler <[EMAIL PROTECTED]>
;; Maintainer: Bill Wohler <[EMAIL PROTECTED]>
--- 1,7 ----
;;; mh-utils.el --- MH-E code needed for both sending and reading
;; Copyright (C) 1993, 1995, 1997,
! ;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Author: Bill Wohler <[EMAIL PROTECTED]>
;; Maintainer: Bill Wohler <[EMAIL PROTECTED]>
***************
*** 406,412 ****
(defvar mh-letter-font-lock-keywords
`(,@mh-show-font-lock-keywords-with-cite
! (mh-font-lock-field-data (1 'mh-letter-header-field-face prepend t))))
(defun mh-show-font-lock-fontify-region (beg end loudly)
"Limit font-lock in `mh-show-mode' to the header.
--- 406,412 ----
(defvar mh-letter-font-lock-keywords
`(,@mh-show-font-lock-keywords-with-cite
! (mh-font-lock-field-data (1 'mh-letter-header-field prepend t))))
(defun mh-show-font-lock-fontify-region (beg end loudly)
"Limit font-lock in `mh-show-mode' to the header.
***************
*** 1218,1225 ****
(mh-funcall-if-exists
insert-image (create-image
raw type t
! :foreground (face-foreground 'mh-show-xface-face)
! :background (face-background
'mh-show-xface-face))
" ")))
;; XEmacs
(mh-do-in-xemacs
--- 1218,1225 ----
(mh-funcall-if-exists
insert-image (create-image
raw type t
! :foreground (face-foreground 'mh-show-xface)
! :background (face-background 'mh-show-xface))
" ")))
;; XEmacs
(mh-do-in-xemacs
***************
*** 1237,1243 ****
(set-extent-begin-glyph
(make-extent (point) (point))
(make-glyph (vector 'xface ':data (concat "X-Face: "
x-face))))
! 'mh-show-xface-face))
;; Otherwise try external support with x-face...
((and (eq type 'pbm)
(fboundp 'x-face-xmas-wl-display-x-face)
--- 1237,1243 ----
(set-extent-begin-glyph
(make-extent (point) (point))
(make-glyph (vector 'xface ':data (concat "X-Face: "
x-face))))
! 'mh-show-xface))
;; Otherwise try external support with x-face...
((and (eq type 'pbm)
(fboundp 'x-face-xmas-wl-display-x-face)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
