Mercurial > emacs
changeset 3327:e533aed58919
(mh-signature-file-name): New variable.
mh-e version 3.8.2.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 May 1993 22:56:31 +0000 |
| parents | 84fa80cf7087 |
| children | 4df33c972833 |
| files | lisp/=mh-e.el |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=mh-e.el Sun May 30 21:52:33 1993 +0000 +++ b/lisp/=mh-e.el Sun May 30 22:56:31 1993 +0000 @@ -2,10 +2,10 @@ ;;; Copyright (C) 1985, 86, 87, 88, 90, 92, 93 Free Software Foundation -(defconst mh-e-time-stamp "Time-stamp: <93/05/27 18:02:50 gildea>") +(defconst mh-e-time-stamp "Time-stamp: <93/05/30 18:37:43 gildea>") ;; Maintainer: Stephen Gildea <gildea@lcs.mit.edu> -;; Version: 3.8.1 +;; Version: 3.8.2 ;; Keywords: mail ;; GNU Emacs is distributed in the hope that it will be useful, @@ -48,7 +48,7 @@ ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu ;;; Modified by Stephen Gildea 1988. gildea@bbn.com -(defconst mh-e-RCS-id "$Header: mh-e.el,v 3.9 93/01/11 11:49:18 gildea Exp $") +(defconst mh-e-RCS-id "$Header: mh-e.el,v 3.6.1.1 93/05/30 07:36:57 gildea Exp $") ;;; Code: @@ -174,6 +174,10 @@ (defvar mh-unshar-default-directory "" "*Default for directory name prompted for by mh-unshar-msg.") +(defvar mh-signature-file-name "~/.signature" + "*Name of file containing the user's signature. +Inserted into message by \\<mh-letter-mode-map>\\[mh-insert-signature].") + ;;; Parameterize mh-e to work with different scan formats. The defaults work ;;; with the standard MH scan listings. @@ -1824,6 +1828,9 @@ If nil, only the portion of the message following the point will be yanked. If there is a region, this variable is ignored. + mh-signature-file-name (\"~/.signature\") + File to be inserted into message by \\[mh-insert-signature]. + Upon invoking mh-letter-mode, text-mode-hook and mh-letter-mode-hook are invoked with no args, if those values are non-nil. @@ -1913,9 +1920,9 @@ (defun mh-insert-signature () - "Insert the file ~/.signature at the current point." + "Insert the file named by mh-signature-file-name at the current point." (interactive) - (insert-file-contents "~/.signature") + (insert-file-contents mh-signature-file-name) (set-buffer-modified-p (buffer-modified-p))) ; force mode line update @@ -2924,4 +2931,3 @@ (provide 'mh-e) ;;; mh-e.el ends here -