;;; Commentary:
-;; RCS: $Id: mml-gpg-old.el,v 1.2 2001/10/23 09:15:17 saschal Exp saschal $
+;; RCS: $Id: mml1991.el,v 6.6 2002/02/20 00:15:32 yamaoka Exp $
;;; Code:
mml1991-mailcrypt-encrypt)
(gpg mml1991-gpg-sign
mml1991-gpg-encrypt))
- "Alist of PGP/MIME functions.")
+ "Alist of PGP functions.")
;;; mailcrypt wrapper
(defun mml1991-mailcrypt-sign (cont)
(let ((text (current-buffer))
- headers signature
- (result-buffer (get-buffer-create "*GPG Result*")))
+ headers signature
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Save MIME Content[^ ]+: headers from signing
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (setq headers (buffer-substring (point-min) (point)))
- (kill-region (point-min) (point))))
+ (progn
+ (setq headers (buffer-substring (point-min) (point)))
+ (kill-region (point-min) (point))))
(goto-char (point-max))
(unless (bolp)
(insert "\n"))
(defun mml1991-mailcrypt-encrypt (cont)
(let ((text (current-buffer))
cipher
- (result-buffer (get-buffer-create "*GPG Result*")))
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Strip MIME Content[^ ]: headers since it will be ASCII ARMOURED
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (kill-region (point-min) (point))))
+ (progn
+ (kill-region (point-min) (point))))
(mm-with-unibyte-current-buffer-mule4
(with-temp-buffer
(setq cipher (current-buffer))
(while (re-search-forward "\r+$" nil t)
(replace-match "" t t))
(set-buffer text)
- (kill-region (point-min) (point-max))
+ (kill-region (point-min) (point-max))
;;(insert "Content-Type: application/pgp-encrypted\n\n")
;;(insert "Version: 1\n\n")
- (insert "\n")
+ (insert "\n")
(insert-buffer cipher)
(goto-char (point-max))))))
(defun mml1991-gpg-sign (cont)
(let ((text (current-buffer))
- headers signature
- (result-buffer (get-buffer-create "*GPG Result*")))
+ headers signature
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Save MIME Content[^ ]+: headers from signing
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (setq headers (buffer-substring (point-min) (point)))
- (kill-region (point-min) (point))))
+ (progn
+ (setq headers (buffer-substring (point-min) (point)))
+ (kill-region (point-min) (point))))
(goto-char (point-max))
(unless (bolp)
(insert "\n"))
(quoted-printable-decode-region (point-min) (point-max))
(with-temp-buffer
(unless (gpg-sign-cleartext text (setq signature (current-buffer))
- result-buffer
- nil
- (message-options-get 'message-sender))
+ result-buffer
+ nil
+ (message-options-get 'message-sender))
(unless (> (point-max) (point-min))
(pop-to-buffer result-buffer)
(error "Sign error")))
(defun mml1991-gpg-encrypt (cont)
(let ((text (current-buffer))
cipher
- (result-buffer (get-buffer-create "*GPG Result*")))
+ (result-buffer (get-buffer-create "*GPG Result*")))
;; Strip MIME Content[^ ]: headers since it will be ASCII ARMOURED
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(if (> (point) (point-min))
- (progn
- (kill-region (point-min) (point))))
+ (progn
+ (kill-region (point-min) (point))))
(mm-with-unibyte-current-buffer-mule4
(with-temp-buffer
(unless (gpg-sign-encrypt
(while (re-search-forward "\r+$" nil t)
(replace-match "" t t))
(set-buffer text)
- (kill-region (point-min) (point-max))
+ (kill-region (point-min) (point-max))
;;(insert "Content-Type: application/pgp-encrypted\n\n")
;;(insert "Version: 1\n\n")
- (insert "\n")
+ (insert "\n")
(insert-buffer cipher)
(goto-char (point-max))))))
(provide 'mml1991)
+;; Local Variables:
+;; coding: iso-8859-1
+;; End:
+
;;; mml1991.el ends here