/[emacs]/emacs/lisp/mh-e/mh-utils.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-utils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by wohler, Sat May 28 22:04:54 2005 UTC revision 1.12 by miles, Fri Jun 17 01:29:30 2005 UTC
# Line 1  Line 1 
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>
# Line 406  Argument LIMIT limits search." Line 406  Argument LIMIT limits search."
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.
# Line 1218  is used." Line 1218  is used."
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
# Line 1237  is used." Line 1237  is used."
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)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26