Index: mml2015.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml2015.el,v
retrieving revision 7.1
diff -B -w -c -r7.1 mml2015.el
*** mml2015.el	4 Jan 2004 21:51:02 -0000	7.1
--- mml2015.el	5 Mar 2007 15:51:36 -0000
***************
*** 805,811 ****
    (let ((pgg-errors-buffer mml2015-result-buffer)
  	(boundary (mml-compute-boundary cont))
  	(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)
        (error "Sign error"))
--- 805,812 ----
    (let ((pgg-errors-buffer mml2015-result-buffer)
  	(boundary (mml-compute-boundary cont))
  	(pgg-default-user-id (or (message-options-get 'mml-sender)
! 				 pgg-default-user-id))
! 	(pgg-text-mode t))
      (unless (pgg-sign-region (point-min) (point-max))
        (pop-to-buffer mml2015-result-buffer)
        (error "Sign error"))
***************
*** 825,830 ****
--- 826,832 ----
  
  (defun mml2015-pgg-encrypt (cont &optional sign)
    (let ((pgg-errors-buffer mml2015-result-buffer)
+ 	(pgg-text-mode t)
  	(boundary (mml-compute-boundary cont)))
      (unless (pgg-encrypt-region (point-min) (point-max)
  				(split-string