2000-10-29 10:35:08 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mml2015.el (mml2015-mailcrypt-sign): Use mc-sign-generic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ef9b5a..e00c162 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-29 10:35:08  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml2015.el (mml2015-mailcrypt-sign): Use mc-sign-generic.
+
 2000-10-29 09:42:05  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-srvr.el (gnus-browse-foreign-server): Show level mark.

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index f2e92b9..28425bc 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -87,10 +87,11 @@
       (unless (funcall mml2015-verify-function)
        (error "Verify error.")))))
 
-(defvar mml2015-mailcrypt-prefix 0)
+(autoload 'mc-sign-generic "mc-toplev")
 
 (defun mml2015-mailcrypt-sign (cont)
-  (mailcrypt-sign mml2015-mailcrypt-prefix)
+  (mc-sign-generic (message-options-get 'message-sender)
+                  nil nil nil nil)
   (let ((boundary 
         (funcall mml-boundary-function (incf mml-multipart-number)))
        (scheme-alist (funcall (or mc-default-scheme