memo.xight.org

(autoload 'add-signature "c-sig" "c-sig" t)
(autoload 'delete-signature "c-sig" "c-sig" t)
(autoload 'insert-signature-eref "c-sig" "c-sig" t)          ;; 対話的に選択する．
(autoload 'insert-signature-automatically "c-sig" "c-sig" t) ;; データベースからの検索結果に従って自動的に挿入する．
(autoload 'insert-signature-randomly "c-sig" "c-sig" t)      ;; ランダムに挿入する．
 
;;; Mewでシグネチャを対話的に選択する設定
(add-hook 'mew-draft-mode-hook
  (function (lambda ()
    (define-key mew-draft-mode-map "\C-c\C-i" 'insert-signature-eref)))) 
 

(setq sig-alist '(
( "default" .
"--
Yoshiki SATO <yoshiki@example.com>
")
( "private" .
"--
佐藤 克己 <yoshiki@example.com>
Tel : XXX-XXXX-XXXX
URI : http://xight.org/
")
))
(setq sig-name-alist nil)
(setq sig-regexp-alist nil)

;;; anonymous@example.com の署名を default に設定する．
(setq sig-name-alist '(
("anonymous@example.com" . "default")
))
(setq sig-regexp-alist nil)