* mml1991.el (mml1991-pgg-sign): Bind pgg-default-user-id, not

pgg-gpg-user-id.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39748b1..cc462a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-10-09  Simon Josefsson  <jas@extundo.com>
 
+       * mml1991.el (mml1991-pgg-sign): Bind pgg-default-user-id, not
+       pgg-gpg-user-id.
+
        * pgg.el (pgg-insert-url-with-w3): Ignore errors.
        (pgg-fetch-key-function): Nil if w3 is not installed.
 

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index efa707a..098599b 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; RCS: $Id: mml1991.el,v 6.10 2002/09/29 21:24:45 jas Exp $
+;; RCS: $Id: mml1991.el,v 6.11 2002/10/05 05:31:37 jas Exp $
 
 ;;; Code:
 
@@ -212,7 +212,7 @@
       (forward-line) ;; skip header/body separator
       (kill-region (point-min) (point)))
     (quoted-printable-decode-region (point-min) (point-max))
-    (unless (let ((pgg-gpg-user-id (message-options-get 'message-sender)))
+    (unless (let ((pgg-default-user-id (message-options-get 'message-sender)))
              (pgg-sign-region (point-min) (point-max) t))
       (pop-to-buffer pgg-errors-buffer)
       (error "Encrypt error"))