From d42ef0e23ea891135f16fa6463d11cbb77ad626a Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 10 Mar 1998 18:43:26 +0000 Subject: [PATCH] semi 0.115. --- signature.el | 24 +++++++++--------------- 1 file changed, 9 insertions(+), 15 deletions(-) diff --git a/signature.el b/signature.el index 3a2446b..f06f53c 100644 --- a/signature.el +++ b/signature.el @@ -4,10 +4,10 @@ ;; Author: MORIOKA Tomohiko ;; OKABE Yasuo -;; KOBAYASHI Shuhei +;; Shuhei KOBAYASHI ;; Maintainer: Shuhei KOBAYASHI ;; Created: 1994/7/11 -;; Version: $Id: signature.el,v 7.15 1997/07/04 16:41:27 morioka Exp $ +;; Version: $Id: signature.el,v 7.16 1997/09/24 23:17:38 shuhei-k Exp $ ;; Keywords: mail, news, signature ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -52,7 +52,12 @@ It is inserted when signature is inserted at end of file.") (defvar signature-file-name "~/.signature" "*Name of file containing the user's signature.") -(defvar signature-file-alist nil) +(defvar signature-file-alist nil + "*Alist of the form: + (((FIELD . PATTERN) . FILENAME) + ...) +PATTERN is a string or list of string. If PATTERN matches the contents of +FIELD, the contents of FILENAME is inserted.") (defvar signature-file-prefix nil "*String containing optional prefix for the signature file names") @@ -63,18 +68,7 @@ It is inserted when signature is inserted at end of file.") (defvar signature-use-bbdb nil "*If non-nil, Register sigtype to BBDB.") -;;; -;;; Example: -;;; -;;; (setq signature-file-alist -;;; '((("Newsgroups" . "zxr") . "~/.signature-sun") -;;; (("To" . "uramimi") . "~/.signature-sun") -;;; (("Newsgroups" . "jokes") . "~/.signature-jokes") -;;; (("To" . "tea") . "~/.signature-jokes") -;;; (("To" . ("sim" "oku")) . "~/.signature-formal") -;;; )) - -(autoload 'signature/get-sigtype-from-bbdb "tm-bbdb") +(autoload 'signature/get-sigtype-from-bbdb "mime-bbdb") (defun signature/get-sigtype-interactively (&optional default) (read-file-name "Insert your signature: " -- 1.7.10.4