[mew-int 00698] Re: ~/.signature

[Tatsuya Kinoshita]

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