![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pgp.el1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [PGP] / pgp / contrib / emacs|
Return to pgp.el1 CVS log | Up to [PGP] / pgp / contrib / emacs |
1.1 ! root 1: To: [email protected] (Derek Atkins) ! 2: In-reply-to: [email protected]'s message of 1 Mar 1993 03:59:41 GMT ! 3: Subject: Request for Mailer Scripts ! 4: BCC: jtkohl ! 5: Full-name: John T Kohl ! 6: X-US-Snail: DEC, 110 Spit Brook Road, M/S ZKO3-3/U14, Nashua, NH 03062 ! 7: --text follows this line-- ! 8: here's some elisp I got from Bill Sommerfeld, and hacked up a bit ! 9: myself: ! 10: ;;; ! 11: ;;; wrapper for the "Pretty-Good-Privacy" program. ! 12: ;;; ! 13: ! 14: (defvar pgp-program (expand-file-name "/usr/local/bin/pgp") ! 15: "*Name of the PGP executable") ! 16: (defvar pgp-sender-name "jtkohl@zk3" ! 17: "*Name of secret key to use for signing/encrypting messages with PGP") ! 18: ! 19: (require 'rmail) ! 20: (require 'terminal) ! 21: (require 'backquote) ! 22: ! 23: (defvar pgp-encrypt-mail t) ! 24: (defvar pgp-sign-mail t) ! 25: (defvar pgp-output-mode-map nil ! 26: "Keymap used in PGP Output mode") ! 27: ! 28: (defvar pgp-finished) ! 29: (make-variable-buffer-local 'pgp-finished) ! 30: (set-default 'pgp-finished nil) ! 31: (defvar termhook-finished) ! 32: (make-variable-buffer-local 'termhook-finished) ! 33: (set-default 'termhook-finished nil) ! 34: ! 35: (defun pgp-output-quit () ! 36: (interactive) ! 37: (let ((buffer (current-buffer))) ! 38: (switch-to-buffer ! 39: (if (and (boundp 'pgp-prev-buffer) (bufferp pgp-prev-buffer)) ! 40: pgp-prev-buffer ! 41: (other-buffer buffer))) ! 42: (bury-buffer buffer))) ! 43: ! 44: (defun pgp-keymap-init () ! 45: (setq pgp-output-mode-map (make-keymap)) ! 46: (suppress-keymap pgp-output-mode-map) ! 47: (define-key pgp-output-mode-map " " 'scroll-up) ! 48: (define-key pgp-output-mode-map "\177" 'scroll-down) ! 49: (define-key pgp-output-mode-map "q" 'pgp-output-quit)) ! 50: ! 51: (if (not pgp-output-mode-map) ! 52: (pgp-keymap-init)) ! 53: ! 54: (defun pgp-output-mode () ! 55: (interactive) ! 56: (fundamental-mode) ! 57: (setq mode-name "PGP-Output") ! 58: (setq major-mode 'pgp-output-mode) ! 59: (setq buffer-read-only t) ! 60: (setq buffer-auto-save-file-name nil) ! 61: (use-local-map pgp-output-mode-map)) ! 62: ! 63: ! 64: ;; a "continuation".. what we do after pgp is done.. ! 65: ;; this could set the current buffer (the terminal emulator one) ! 66: ;; into a new major mode (pgp-after-mode) to let you do things like: ! 67: ;; a) easily dismiss the pgp window ! 68: ;; b) view any output files. ! 69: ;; c) see what the "labelling" on the files was ! 70: ;; (i.e., signature, encrypted); this shows up in mode line, not file! ! 71: ! 72: (defun pgp-continue-frob (out-filename prev-buffer) ! 73: (cond ((file-exists-p out-filename) ! 74: (set-buffer (get-buffer-create "*PGP Output*")) ! 75: (make-variable-buffer-local 'pgp-prev-buffer) ! 76: (setq pgp-prev-buffer nil) ! 77: (setq buffer-read-only nil) ! 78: (erase-buffer) ! 79: (insert-file-contents out-filename) ! 80: (delete-file out-filename) ! 81: (switch-to-buffer "*PGP Output*") ! 82: (pgp-output-mode) ! 83: (setq pgp-prev-buffer prev-buffer)) ! 84: (t (message "PGP command completed with no output file" )))) ! 85: ! 86: (defun pgp-continue-in-place (out-file buf min max cont) ! 87: (cond ((file-exists-p out-file) ! 88: (switch-to-buffer buf) ! 89: (goto-char min) ! 90: (delete-region min max) ! 91: (insert-file-contents out-file) ! 92: (delete-file out-file) ! 93: (apply cont nil)) ! 94: (t (message "PGP command completed with no output file")))) ! 95: ! 96: (defun pgp-mail-continue () ! 97: (mail-to) ! 98: (insert (save-excursion ! 99: (set-buffer "*PGP*") ;!!! ! 100: (goto-char (point-min)) ! 101: (re-search-forward "Recipient's") ! 102: (re-search-forward "user ID: \\(.*$\\)") ! 103: (buffer-substring (match-beginning 1) (match-end 1))))) ! 104: ! 105: (defvar pgp-base-file-name nil ! 106: "Default base file name for PGP temp files; defaults to a file in ! 107: /tmp with your UNIX user id in it.") ! 108: ! 109: (defun pgp-check-tempname () ! 110: (if pgp-base-file-name ! 111: () ! 112: (setq pgp-base-file-name (format "/tmp/pgp%d" (user-real-uid))))) ! 113: ! 114: (defun pgp-frob-region-1 (min max cont1 &optional opt1 opt2) ! 115: (pgp-check-tempname) ! 116: (let ((temp-filename (format "%s.txt" pgp-base-file-name)) ! 117: (out-filename (format "%s.asc" pgp-base-file-name)) ! 118: (prev-buffer (current-buffer))) ! 119: (if (file-exists-p temp-filename) ! 120: (delete-file temp-filename)) ! 121: (if (file-exists-p out-filename) ! 122: (delete-file out-filename)) ! 123: (write-region min max temp-filename) ! 124: ! 125: (let ((buf (get-buffer-create "*PGP*"))) ! 126: (switch-to-buffer buf) ! 127: (erase-buffer) ! 128: (let ((terminal-mode-hook ! 129: (function ! 130: (lambda () ! 131: (make-variable-buffer-local 'terminal-finished-hook) ! 132: (setq terminal-finished-hook (apply cont1 out-filename prev-buffer nil)) ! 133: (setq termhook-finished t) ! 134: (if (and ! 135: (boundp 'pgp-finished) ! 136: pgp-finished) ! 137: (let ((nhooks terminal-finished-hook)) ! 138: (fundamental-mode) ; in the *PGP* buffer; nukes hooks! ! 139: (run-hooks 'nhooks))))))) ! 140: (terminal-emulator buf ! 141: pgp-program ! 142: (nconc (list "-o" out-filename) ! 143: opt1 ! 144: (list temp-filename) ! 145: opt2)))))) ! 146: ! 147: (defun pgp-frob-region (min max &optional opt1 opt2) ! 148: (pgp-frob-region-1 min max ! 149: (function ! 150: (lambda (out-filename buf) ! 151: (` (lambda () ! 152: (pgp-continue-frob ! 153: (, out-filename) ! 154: (, buf)))))) ! 155: opt1 opt2)) ! 156: ! 157: (defun pgp-frob-region-in-place (min max &optional opt1 opt2 cont) ! 158: (let ((cur-buf (current-buffer))) ! 159: (pgp-frob-region-1 min max ! 160: (function ! 161: (lambda (out-filename buf) ! 162: (` (lambda () ! 163: (pgp-continue-in-place (, out-filename) ! 164: (, cur-buf) ! 165: (, min) ! 166: (, max) ! 167: (quote (, cont))))))) ! 168: opt1 opt2))) ! 169: ! 170: (defun pgp-encrypt-ascii-region (min max to) ! 171: (interactive "r\nsRecipient name: ") ! 172: (pgp-frob-region min max (list "-eaw") (list to))) ! 173: ! 174: (defun pgp-decrypt-ascii-region (min max) ! 175: (interactive "r") ! 176: (pgp-frob-region min max nil nil)) ! 177: ! 178: (defun pgp-sign-ascii-region (min max) ! 179: "Sign the region with PGP, using cleartext signatures." ! 180: (interactive "r") ! 181: (pgp-frob-region min max (list "-swat") nil)) ! 182: ! 183: (defun pgp-encrypt-ascii-buffer (to) ! 184: "Encrypt a buffer and use PGP armor for the output." ! 185: (interactive "sRecipient name: ") ! 186: (pgp-encrypt-ascii-region (point-min) (point-max) to)) ! 187: ! 188: (defun pgp-decrypt-ascii-buffer () ! 189: "Apply PGP to the current buffer." ! 190: (interactive) ! 191: (pgp-decrypt-ascii-region (point-min) (point-max))) ! 192: ! 193: (defun pgp-sign-encrypt-ascii-buffer (to) ! 194: (interactive "sRecipient name: ") ! 195: (pgp-frob-region (point-min) (point-max) (list "-seaw") (list to))) ! 196: ! 197: (defun pgp-sign-ascii-buffer () ! 198: "Sign the current buffer with PGP, using cleartext signatures." ! 199: (interactive) ! 200: (pgp-sign-ascii-region (point-min) (point-max))) ! 201: ! 202: (defun pgp-sign-encrypt-ascii-buffer-in-place (to) ! 203: (interactive "s(in place) Recipient name: ") ! 204: (pgp-frob-region-in-place (point-min) (point-max) (list "-seaw") (list to))) ! 205: ! 206: (defun pgp-sign-encrypt-ascii-region (min max to) ! 207: (interactive "r\nsRecipient name: ") ! 208: (pgp-frob-region min max (list "-seaw") (list to))) ! 209: ! 210: (defvar pgp-mail-frob-flags "-easw" ! 211: "*Flags to pass to pgp for frobbing mail.") ! 212: ! 213: (defun pgp-frob-mail (to) ! 214: "Take an in-progress mail message and 'frob' it." ! 215: (interactive "sMail Recipient name: ") ! 216: (goto-char (point-min)) ! 217: (re-search-forward mail-header-separator) ! 218: (goto-char (match-beginning 0)) ! 219: (forward-line 1) ! 220: (save-excursion ! 221: (insert (buffer-substring (point-min) (point)))) ! 222: (pgp-frob-region-in-place (point) (point-max) ! 223: (list pgp-mail-frob-flags "-u" pgp-sender-name) ! 224: (list to) ! 225: 'pgp-mail-continue)) ! 226: ! 227: (global-set-key "\C-c\C-p\C-e" 'pgp-encrypt-ascii-buffer) ! 228: (global-set-key "\C-c\C-p\C-r" 'pgp-encrypt-ascii-region) ! 229: (global-set-key "\C-c\C-p\C-s" 'pgp-sign-ascii-buffer) ! 230: (global-set-key "\C-c\C-p\C-m" 'pgp-frob-mail) ! 231: (global-set-key "\C-c\C-p\C-d" 'pgp-decrypt-ascii-buffer) ! 232: ! 233: (global-set-key "\C-cpm" 'pgp-frob-mail) ! 234: (define-key rmail-mode-map "V" 'pgp-decrypt-ascii-buffer) ! 235: ! 236: ;;; How to deal with the race? the sentinel may get called ! 237: ;;; *before* terminal-emulator finishes its initialization. So we set ! 238: ;;; up a local variable here so that our terminal-mode-hook will undo ! 239: ;;; the damage if PGP is finished. ! 240: ;; ! 241: ;; from terminal.el, modified: ! 242: ! 243: (defun te-sentinel (process message) ! 244: (cond ((eq (process-status process) 'run)) ! 245: ((null (buffer-name (process-buffer process)))) ;deleted ! 246: (t (let ((b (current-buffer)) ! 247: (done-hooks (and ; added: WES ! 248: (boundp 'terminal-finished-hook) ! 249: terminal-finished-hook))) ! 250: (save-excursion ! 251: (set-buffer (process-buffer process)) ! 252: (setq buffer-read-only nil) ! 253: (goto-char (point-max)) ! 254: (delete-blank-lines) ! 255: (delete-horizontal-space) ! 256: (insert "\n*******\n" message "*******\n") ! 257: (fundamental-mode) ; added/moved: WES/JTK ! 258: (setq pgp-finished t) ; JTK ! 259: (sit-for 1)) ! 260: (if (and (eq b (process-buffer process)) ! 261: (waiting-for-user-input-p)) ! 262: (progn (goto-char (point-max)) ! 263: (recenter -1))) ! 264: (run-hooks 'done-hooks))))) ;added: WES ! 265: ! 266:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.