X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmml1991.el;h=506a3b14941b874c865cbb66903b7803e7ad0933;hb=b8919795651bfa256ac107d02c79f46de8cc52af;hp=60c315611fd084bb1c60128fa45caa148f072644;hpb=cfb4bca4dfc02eecaa89986bb0744cd96aec2815;p=gnus

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index 60c315611..506a3b149 100644
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -234,13 +234,14 @@
       (delete-region (point-min) (point)))
     (quoted-printable-decode-region (point-min) (point-max))
     (unless (let ((pgg-default-user-id
-		   (or (message-options-get 'message-sender)
+		   (or (message-options-get 'mml-sender)
 		       pgg-default-user-id)))
 	      (pgg-sign-region (point-min) (point-max) t))
       (pop-to-buffer pgg-errors-buffer)
       (error "Encrypt error"))
     (delete-region (point-min) (point-max))
-    (insert-buffer-substring pgg-output-buffer)
+    (mm-with-unibyte-current-buffer
+      (insert-buffer-substring pgg-output-buffer))
     (goto-char (point-min))
     (while (re-search-forward "\r+$" nil t)
       (replace-match "" t t))