1 ;;; signature.el --- a signature utility for GNU Emacs
3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
7 ;; KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
8 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
10 ;; Version: $Id: signature.el,v 7.15 1997/07/04 16:41:27 morioka Exp $
11 ;; Keywords: mail, news, signature
13 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
15 ;; This program is free software; you can redistribute it and/or
16 ;; modify it under the terms of the GNU General Public License as
17 ;; published by the Free Software Foundation; either version 2, or (at
18 ;; your option) any later version.
20 ;; This program is distributed in the hope that it will be useful, but
21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 ;; General Public License for more details.
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with this program; see the file COPYING. If not, write to
27 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
28 ;; Boston, MA 02111-1307, USA.
38 (defvar signature-insert-at-eof nil
39 "*If non-nil, insert signature at the end of file.")
41 (defvar signature-delete-blank-lines-at-eof nil
42 "*If non-nil, signature-insert-at-eof deletes blank lines at the end
45 (defvar signature-load-hook nil
46 "*List of functions called after signature.el is loaded.")
48 (defvar signature-separator "-- \n"
49 "*String to separate contents and signature.
50 It is inserted when signature is inserted at end of file.")
52 (defvar signature-file-name "~/.signature"
53 "*Name of file containing the user's signature.")
55 (defvar signature-file-alist nil)
57 (defvar signature-file-prefix nil
58 "*String containing optional prefix for the signature file names")
60 (defvar signature-insert-hook nil
61 "*List of functions called before inserting a signature.")
63 (defvar signature-use-bbdb nil
64 "*If non-nil, Register sigtype to BBDB.")
69 ;;; (setq signature-file-alist
70 ;;; '((("Newsgroups" . "zxr") . "~/.signature-sun")
71 ;;; (("To" . "uramimi") . "~/.signature-sun")
72 ;;; (("Newsgroups" . "jokes") . "~/.signature-jokes")
73 ;;; (("To" . "tea") . "~/.signature-jokes")
74 ;;; (("To" . ("sim" "oku")) . "~/.signature-formal")
77 (autoload 'signature/get-sigtype-from-bbdb "tm-bbdb")
79 (defun signature/get-sigtype-interactively (&optional default)
80 (read-file-name "Insert your signature: "
81 (or default (concat signature-file-name "-"))
82 (or default signature-file-name)
85 (defun signature/get-signature-file-name ()
89 (goto-char (point-min))
90 (if (re-search-forward
91 (concat "^" (regexp-quote mail-header-separator) "$")
97 (let ((alist signature-file-alist) cell field value)
99 (setq cell (car alist)
100 field (std11-field-body (car (car cell)))
101 value (cdr (car cell)))
102 (cond ((functionp value)
103 (let ((name (apply value field (cdr cell))))
106 (concat signature-file-prefix name))
111 (if (string-match (car value) field)
114 signature-file-prefix (cdr cell)))
115 (setq value (cdr value))
118 (if (string-match value field)
121 signature-file-prefix (cdr cell)))
123 (setq alist (cdr alist))
125 signature-file-name))))
127 (defun insert-signature (&optional arg)
128 "Insert the file named by signature-file-name.
129 It is inserted at the end of file if signature-insert-at-eof is non-nil,
130 and otherwise at the current point. A prefix argument enables user to
131 specify a file named <signature-file-name>-DISTRIBUTION interactively."
133 (let ((signature-file-name
135 (or (and signature-use-bbdb
136 (signature/get-sigtype-from-bbdb arg))
138 (signature/get-sigtype-interactively))
139 (signature/get-signature-file-name))
141 (or (file-readable-p signature-file-name)
142 (error "Cannot open signature file: %s" signature-file-name))
143 (if signature-insert-at-eof
145 (goto-char (point-max))
146 (or (bolp) (insert "\n"))
147 (if signature-delete-blank-lines-at-eof (delete-blank-lines))
149 (run-hooks 'signature-insert-hook)
150 (if (= (point)(point-max))
151 (insert signature-separator)
153 (insert-file-contents signature-file-name)
154 (force-mode-line-update)
155 signature-file-name))
163 (run-hooks 'signature-load-hook)
165 ;;; signature.el ends here