message-sender.
* mml.el (mml-generate-mime-1): Set mml-sender too.
+2003-04-29 Simon Josefsson <jas@extundo.com>
+
+ * mml2015.el (mml2015-pgg-sign): Use mml-sender instead of
+ message-sender.
+
+ * mml.el (mml-generate-mime-1): Set mml-sender too.
+
2003-04-29 Jesper Harder <harder@ifa.au.dk>
* gnus-sum.el (gnus-summary-display-while-building): Docstring fix.
2003-04-29 Jesper Harder <harder@ifa.au.dk>
* gnus-sum.el (gnus-summary-display-while-building): Docstring fix.
mml-encrypt-alist))
sender recipients)
(when (or sign-item encrypt-item)
mml-encrypt-alist))
sender recipients)
(when (or sign-item encrypt-item)
- (if (setq sender (cdr (assq 'sender cont)))
- (message-options-set 'message-sender sender))
+ (when (setq sender (cdr (assq 'sender cont)))
+ (message-options-set 'mml-sender sender)
+ (message-options-set 'message-sender sender))
(if (setq recipients (cdr (assq 'recipients cont)))
(message-options-set 'message-recipients recipients))
(let ((style (mml-signencrypt-style (first (or sign-item encrypt-item)))))
(if (setq recipients (cdr (assq 'recipients cont)))
(message-options-set 'message-recipients recipients))
(let ((style (mml-signencrypt-style (first (or sign-item encrypt-item)))))
(defun mml2015-pgg-sign (cont)
(let ((pgg-errors-buffer mml2015-result-buffer)
(boundary (funcall mml-boundary-function (incf mml-multipart-number)))
(defun mml2015-pgg-sign (cont)
(let ((pgg-errors-buffer mml2015-result-buffer)
(boundary (funcall mml-boundary-function (incf mml-multipart-number)))
- (pgg-default-user-id (or (message-options-get 'message-sender)
+ (pgg-default-user-id (or (message-options-get 'mml-sender)
pgg-default-user-id)))
(unless (pgg-sign-region (point-min) (point-max))
(pop-to-buffer mml2015-result-buffer)
pgg-default-user-id)))
(unless (pgg-sign-region (point-min) (point-max))
(pop-to-buffer mml2015-result-buffer)