[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-utils.el

[Miles Bader]

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 <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 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 <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 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)