(mml2015-pgg-sign): Bind pgg-default-user-id to MML

sender tag, if available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6aa7704..42d3115 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-16  Simon Josefsson  <jas@extundo.com>
+
+       * mml2015.el (mml2015-pgg-sign): Bind pgg-default-user-id to MML
+       sender tag, if available.
+
 2003-04-16  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam-report.el (Module): new module for spam reporting
@@ -52,7 +57,7 @@
        specify a predicate other than false.
        (gnus-category-read): Use the new feature to create a 'default'
        category with a 'short' predicate.
-       
+
 2003-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-unique-id): Comment change.

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 34007f1..60c9e94 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -806,7 +806,9 @@
 
 (defun mml2015-pgg-sign (cont)
   (let ((pgg-errors-buffer mml2015-result-buffer)
-       (boundary (funcall mml-boundary-function (incf mml-multipart-number))))
+       (boundary (funcall mml-boundary-function (incf mml-multipart-number)))
+       (pgg-default-user-id (or (message-options-get 'message-sender)
+                                pgg-default-user-id)))
     (unless (pgg-sign-region (point-min) (point-max))
       (pop-to-buffer mml2015-result-buffer)
       (error "Sign error"))