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

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

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

revision 1.14 by lektu, Thu Jun 16 15:04:53 2005 UTC revision 1.15 by miles, Fri Jun 17 01:29:30 2005 UTC
# Line 1  Line 1 
1  ;;; mh-mime.el --- MH-E support for composing MIME messages  ;;; mh-mime.el --- MH-E support for composing MIME messages
2    
3  ;; Copyright (C) 1993, 1995,  ;; Copyright (C) 1993, 1995,
4  ;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc.  ;; 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 1059  to highlight the signature in a MIME par Line 1059  to highlight the signature in a MIME par
1059        (when (re-search-backward regexp nil t)        (when (re-search-backward regexp nil t)
1060          (mh-do-in-gnu-emacs          (mh-do-in-gnu-emacs
1061            (let ((ov (make-overlay (point) (point-max))))            (let ((ov (make-overlay (point) (point-max))))
1062              (overlay-put ov 'face 'mh-show-signature-face)              (overlay-put ov 'face 'mh-show-signature)
1063              (overlay-put ov 'evaporate t)))              (overlay-put ov 'evaporate t)))
1064          (mh-do-in-xemacs          (mh-do-in-xemacs
1065            (set-extent-property (make-extent (point) (point-max))            (set-extent-property (make-extent (point) (point-max))
1066                                 'face 'mh-show-signature-face))))))                                 'face 'mh-show-signature))))))
1067    
1068  (mh-do-in-xemacs  (mh-do-in-xemacs
1069   (defvar dots)   (defvar dots)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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