[mew-int 00698] Re: ~/.signature
Tatsuya Kinoshita
tats at example.com
Fri Jan 25 07:25:03 JST 2002
In message [mew-int 00696], on Thu, 24 Jan 2002,
Francesco Scaglioni <fgs at example.com> wrote:
> Is there a way of being real-time selective with ~/.signature. eg
> being able to select from ~/.signature_1 or ~/.signature_2 at the time
> the signature is attached.
I'm using Mew's `config' feature.
A sample of ~/.mew.el:
----
(setq mew-config-alist
'(
("default"
("signature-file" . "~/.mew-sign");; "~/.signature" by default
)
("ja"
("signature-file" . "~/.mew-sign-ja")
)
("ja2"
("signature-file" . "~/.mew-sign-ja2")
)
))
;; mew-draft-insert-signature:
;; C-c C-i : current case (original)
;; C-c i : "ja" case
;; C-u C-c i : input case
(define-key mew-draft-body-map "\C-ci" 'my-mew-insert-signature-ja)
;;;(define-key mew-draft-body-map "\C-ci" 'my-mew-insert-signature-with-case)
(defun my-mew-insert-signature-ja (&optional arg)
(interactive "P")
(if arg
(my-mew-insert-signature-with-case)
(my-mew-insert-signature-with-case "ja")))
(defun my-mew-insert-signature-with-case (&optional case)
(interactive "P")
(let ((mew-tinfo (copy-sequence mew-tinfo)))
(mew-tinfo-set-case
(or case
(mew-input-case (mew-tinfo-get-case) "Signature")))
(mew-draft-insert-signature)))
----
--
Tatsuya Kinoshita
More information about the Mew-int
mailing list