2002-10-10 Simon Josefsson <jas@extundo.com>
+ * mml.el (mml-parse-1): Support sender in #secure tags.
+
+ * mml1991.el (mml1991-pgg-sign): Only use message-sender if it is
+ defined.
+
* mml-sec.el (mml-smime-encrypt-buffer): Warn about combined signing.
(mml-pgp-encrypt-buffer): Support combined signing.
(let* (secure-mode
(taginfo (mml-read-tag))
(recipients (cdr (assq 'recipients taginfo)))
+ (sender (cdr (assq 'sender taginfo)))
(location (cdr (assq 'tag-location taginfo)))
(mode (cdr (assq 'mode taginfo)))
(method (cdr (assq 'method taginfo)))
(eval `(mml-insert-tag ,secure-mode
,@tags
,(if recipients "recipients")
- ,recipients))
+ ,recipients
+ ,(if sender "sender")
+ ,sender))
;; restart the parse
(goto-char location)))
((looking-at "<#multipart")
;;; Commentary:
-;; RCS: $Id: mml1991.el,v 6.12 2002/10/09 22:43:59 jas Exp $
+;; RCS: $Id: mml1991.el,v 6.13 2002/10/09 23:27:32 jas Exp $
;;; Code:
(forward-line) ;; skip header/body separator
(kill-region (point-min) (point)))
(quoted-printable-decode-region (point-min) (point-max))
- (unless (let ((pgg-default-user-id (message-options-get 'message-sender)))
+ (unless (let ((pgg-default-user-id
+ (or (message-options-get 'message-sender)
+ pgg-default-user-id)))
(pgg-sign-region (point-min) (point-max) t))
(pop-to-buffer pgg-errors-buffer)
(error "Encrypt error"))