Re: .signature vs message.el

[Mark Borges <mdb@cdc.noaa.gov>]

>> On 09 Apr 1996 00:12:52 -0600,
>> Mark Borges(mb) wrote:
mb> Before the switch, I had a cheesy function defined on `\C-c\C-w'
mb> in mail-mode-map that would insert the contents of "~/.sig"
mb> normally, but if given a prefix argument, would insert the
mb> contents of "~/.signature" instead.

mb> What is the cleanest way to get this behavior back?

Well, this is what I came up with. Can anyone see anything cleaner?

Can message-mode-map somehow inherit from mail-mode-map (or
vice-versa), so I don't have to replicate code for VM?

--------------------------------------------------
; is there a better hook -- one that only runs once, after message has
; done its thing, e.g., message-init-hook? 

(add-hook 'message-setup-hook 'my-mail-setup)

(defun my-mail-setup ()
  (setq
   message-signature nil
   message-indent-citation-function nil
   message-citation-line-function nil
   message-cite-function 'sc-cite-original
   )
; ...other stuff...
  (define-key mail-mode-map [(control x) n] 'abbrev-hacking-next-line)
  (define-key mail-mode-map [(meta >)] 'abbrev-hacking-end-of-buffer)
  (define-key message-mode-map [(control c) (control w)] 'mdb:signature)
; so VM can see it too
  (define-key mail-mode-map [(control c) (control w)] 'mdb:signature))

;;; ******************** 
(defun mdb:signature (&optional long-sig)
  "Sign letter with contents of `mail-signature-file'.
Prefix arg means use long signature."
  (interactive "P")
  (require 'message)
    (if long-sig
	(setq message-signature-file "~/.signature")
	(setq message-signature-file "~/.sig"))
	(message-insert-signature 1)
)
--------------------------------------------------

-- 
  -mb-