1 |
;;; mml1991.el --- Old PGP message format (RFC 1991) support for MML |
;;; mml1991.el --- Old PGP message format (RFC 1991) support for MML |
2 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2005 |
3 |
|
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Sascha Lüdecke <sascha@meta-x.de>, |
;; Author: Sascha Lüdecke <sascha@meta-x.de>, |
6 |
;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue) |
;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue) |
220 |
|
|
221 |
;; pgg wrapper |
;; pgg wrapper |
222 |
|
|
223 |
(defvar pgg-output-buffer) |
(eval-when-compile |
224 |
(defvar pgg-errors-buffer) |
(defvar pgg-default-user-id) |
225 |
|
(defvar pgg-errors-buffer) |
226 |
|
(defvar pgg-output-buffer)) |
227 |
|
|
228 |
(defun mml1991-pgg-sign (cont) |
(defun mml1991-pgg-sign (cont) |
229 |
(let (headers cte) |
(let (headers cte) |