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> |
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) |