Problems with signing mail with smime certificate

[Bill Day]

I am trying to sign mail with an smime certificate.  I have followed
the
directions in the manual for preparing the certificate, and I am able
to
get as far as having the signature command mark the email as signed.
However, when I actually try to send the email, I get the following
error:

mml-smime-openssl-sign: Symbol's function definition is void:
smime-sign-buffer

Does anyone have any idea how I should go about troubleshooting?  I am
using emacs 23.2.1 on Arch Linux.  I will be happy to provide more
specific information upon request, although I may need a little
direction on how to provide what is needed.  My .gnus file follows"

;;(setq gnus-nntp-server nil
;;      gnus-read-active-file nil
;;      gnus-save-newsrc-file nil
;;      gnus-read-newsrc-file nil
;;      gnus-check-new-newsgroups nil)
(setq gnus-select-method
        '(nntp "news.octanews.com"
                (nntp-port-number 119)))
(setq gnus-secondary-select-methods
        '((nnimap "localhost"
                (nnimap-address "localhost"))
          (nnimap "williamsonday.org"
                (nnimap-address "williamsonday.org")
                (nnimap-stream ssl)
                (remove-prefix "INBOX."))
;;        (nnmaildir ""
;;              (directory "~/Mail/personal/INBOX"))
          (nnimap "gmail"
                (nnimap-address "imap.gmail.com")
                (nnimap-stream ssl)
                (nnimap-user "williamson.day@gmail.com"))))
(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-number
        (not gnus-thread-sort-by-date)
        gnus-thread-sort-by-total-score))
(setq gnus-summary-line-format
      "%U%R%z %d %I%(%[%-25,25n%]%) %s\n")

(gnus-add-configuration
 '(article
   (horizontal 1.0
        (vertical 60 (group 1.0))
        (vertical 1.0
    (summary 0.20 point)
    (article 1.0)))))

(gnus-add-configuration
 '(summary
   (horizontal 1.0
        (vertical 60 (group 1.0))
        (vertical 1.0 (summary 1.0 point)))))

(setq sendmail-program "/usr/local/bin/msmtp-enqueue.sh"
      mail-specify-envelope-from t
      mail-envelope-from 'header)

(setq mail-from-style 'angles
      mail-host-address "fixme.fixme"
      mail-interactive t)

(require 'supercite)
(add-hook 'mail-yank-hooks 'sc-cite-original)
(setq sc-citation-leader "")
(setq message-cite-function 'sc-cite-original)

(add-hook 'message-send-hook 'ispell-message)

(setq mail-user-agent 'gnus-user-agent)

(setq gnus-message-archive-method '(nnimap "localhost")
      gnus-message-archive-group "nnimap+localhost:Sent")

(setq message-send-mail-partially-limit nil)

(setq send-mail-function 'sendmail-send-it
      message-send-mail-function 'sendmail-send-it)


(setq mm-decrypt-option 'always)
(setq mm-verify-option 'always)
(setq gnus-buttonized-mime-types '("multipart/encrypted" "multipart/
signed"))
(setq smime-keys '((bday@gebhardtlaw.com "~/Documents/keys/
gebhardt.pem"("~/Documents/keys/gebhardt.pem"))))
;;(setq smime-CA-directory "/etc/ssl/certs")

;; Scoring

(setq bbdb/gnus-score-default 2000)
(setq gnus-score-find-score-files-function '(gnus-score-find-
bnews.span class=compcode>bbdb/gnus-score))

    (setq gnus-default-adaptive-score-alist
       '((gnus-unread-mark)
         (gnus-ticked-mark (from 4))
         (gnus-dormant-mark (from 5))
         (gnus-del-mark (from -4) (subject -1))
         (gnus-read-mark (from 4) (subject 2))
         (gnus-expirable-mark (from -1) (subject -1))
         (gnus-killed-mark (from -1) (subject -3))
         (gnus-kill-file-mark)
         (gnus-ancient-mark)
         (gnus-low-score-mark)
         (gnus-catchup-mark (from -1) (subject -1))))
(add-hook 'message-sent-hook 'gnus-score-followup-thread)
(add-hook 'message-sent-hook 'gnus-score-followup-article)

;; Signature?
(setq mail-signature t)
; replace-signature will replace the signature in an email
(defun replace-signature () (interactive)
  (let ((starthere (point)))
    (goto-char (point-min))
    (search-forward-regexp "^--text")
    (next-line 1)
    (search-forward-regexp "^--")
    (next-line 1)
    (beginning-of-line)
    (let ((beg (point)))
      (goto-char (point-max))
      (delete-region beg (point)))
    (shell-command-to-string "~/.signature")
    (insert-file "~/.sig/.home-signature")
    (goto-char starthere)))
(setq
 gnus-signature-separator
 '("^-- $" "^-- *$"
   "^-------*$"
   "^ *--------*$"
   "^________*$"
   "^========*$")
 gnus-signature-limit 20.0 ; floating point for lines
 message-signature-file "~/.signature"
 )