Mercurial > emacs
comparison lisp/gnus/mml1991.el @ 65281:ef29fb1d87ed
(mc-pgp-always-sign): Add defvar.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 31 Aug 2005 13:10:00 +0000 |
| parents | fafd692d1e40 |
| children | 1077b8039c32 |
comparison
equal
deleted
inserted
replaced
| 65280:4ec96459e1b5 | 65281:ef29fb1d87ed |
|---|---|
| 29 ;;; Code: | 29 ;;; Code: |
| 30 | 30 |
| 31 (eval-when-compile | 31 (eval-when-compile |
| 32 (require 'cl) | 32 (require 'cl) |
| 33 (require 'mm-util)) | 33 (require 'mm-util)) |
| 34 | |
| 35 (defvar mc-pgp-always-sign) | |
| 34 | 36 |
| 35 (autoload 'quoted-printable-decode-region "qp") | 37 (autoload 'quoted-printable-decode-region "qp") |
| 36 (autoload 'quoted-printable-encode-region "qp") | 38 (autoload 'quoted-printable-encode-region "qp") |
| 37 | 39 |
| 38 (defvar mml1991-use mml2015-use | 40 (defvar mml1991-use mml2015-use |
| 180 (while (looking-at "^Content[^ ]+:") (forward-line)) | 182 (while (looking-at "^Content[^ ]+:") (forward-line)) |
| 181 (unless (bobp) | 183 (unless (bobp) |
| 182 (delete-region (point-min) (point))) | 184 (delete-region (point-min) (point))) |
| 183 (mm-with-unibyte-current-buffer | 185 (mm-with-unibyte-current-buffer |
| 184 (with-temp-buffer | 186 (with-temp-buffer |
| 185 (flet ((gpg-encrypt-func | 187 (flet ((gpg-encrypt-func |
| 186 (sign plaintext ciphertext result recipients &optional | 188 (sign plaintext ciphertext result recipients &optional |
| 187 passphrase sign-with-key armor textmode) | 189 passphrase sign-with-key armor textmode) |
| 188 (if sign | 190 (if sign |
| 189 (gpg-sign-encrypt | 191 (gpg-sign-encrypt |
| 190 plaintext ciphertext result recipients passphrase | 192 plaintext ciphertext result recipients passphrase |
| 268 (forward-line)) | 270 (forward-line)) |
| 269 (unless (bobp) | 271 (unless (bobp) |
| 270 (delete-region (point-min) (point))) | 272 (delete-region (point-min) (point))) |
| 271 (mm-decode-content-transfer-encoding cte) | 273 (mm-decode-content-transfer-encoding cte) |
| 272 (unless (pgg-encrypt-region | 274 (unless (pgg-encrypt-region |
| 273 (point-min) (point-max) | 275 (point-min) (point-max) |
| 274 (split-string | 276 (split-string |
| 275 (or | 277 (or |
| 276 (message-options-get 'message-recipients) | 278 (message-options-get 'message-recipients) |
| 277 (message-options-set 'message-recipients | 279 (message-options-set 'message-recipients |
| 278 (read-string "Recipients: "))) | 280 (read-string "Recipients: "))) |