;;; Time-stamp: <93/02/03 12:46:31 john>

(defun signature-capture (where)
  "Capture a cute quote.
Takes it from point to the end of the article, and stores it in
~/sigs, with a form-feed after it."
  (interactive "d")
  (let ((sigs-buffer
  (save-window-excursion
    (find-file (expand-file-name "~/sigs"))
    (goto-char (point-max))
    (insert "\n\f\n")
    (goto-char (- (point-max) 3))
    (current-buffer))))
    (append-to-buffer sigs-buffer where (point-max))))

;;; end of sigs.el