sender tag, if available.
+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
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.
(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"))