Mercurial > emacs

diff lisp/gnus/mml1991.el @ 68762:970bf6e6463b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-62 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 22-26) - Update from CVS - Merge from emacs--devo--0
author Miles Bader <miles@gnu.org>
date Fri, 10 Feb 2006 05:08:29 +0000
parents 1077b8039c32
children 322c5c5027dc
line wrap: on
line diff
--- a/lisp/gnus/mml1991.el	Fri Feb 10 00:09:18 2006 +0000
+++ b/lisp/gnus/mml1991.el	Fri Feb 10 05:08:29 2006 +0000
@@ -229,7 +229,8 @@
   (defvar pgg-output-buffer))
 
 (defun mml1991-pgg-sign (cont)
-  (let (headers cte)
+  (let ((pgg-text-mode t)
+	headers cte)
     ;; Don't sign headers.
     (goto-char (point-min))
     (while (not (looking-at "^$"))
@@ -261,7 +262,8 @@
     t))
 
 (defun mml1991-pgg-encrypt (cont &optional sign)
-  (let (cte)
+  (let ((pgg-text-mode t)
+	cte)
     ;; Strip MIME Content[^ ]: headers since it will be ASCII ARMOURED
     (goto-char (point-min))
     (while (looking-at "^Content[^ ]+:")