;ELC ;;; compiled by gsstark@portnoy on Fri Feb 2 23:53:47 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/mailcrypt-3.3/mc-toplev.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mc-toplev.el' was compiled for Emacs 19.29 or later")) (byte-code "!!ŏ$" [require mailcrypt mail-utils nil (byte-code "!" [require mailalias] 2) ((error)) autoload mc-scheme-pgp "mc-pgp" t] 5) (defalias 'mc-cleanup-recipient-headers #[(str) "\f\"\"" [mapcar #[(x) " !A@" [mail-extract-address-components x] 2] mc-split "\\([ \n]*,[ \n]*\\)+" str] 5]) (defalias 'mc-find-headers-end #[nil "eb !Q!!#!%# )" [re-search-forward "^" regexp-quote mail-header-separator "\n" looking-at "^::\n" "^\n" nil t "^##\n" point-marker] 4]) #@225 *Encrypt the current buffer. Exact behavior depends on current major mode. With \[universal-argument], prompt for User ID to sign as. With \[universal-argument] \[universal-argument], prompt for encryption scheme to use. (defalias 'mc-encrypt #[(arg) " ‰#" [mc-encrypt-region arg nil] 4 (#$ . -1023) "p"]) #@30 *Encrypt the current region. (defalias 'mc-encrypt-region #[(arg start end) " \n  \nY&! \nY9\"\"A  &-" [major-mode mc-modes-alist mode-alist encrypt mc-encrypt-generic func nil sign scheme from arg 4 read-string "User ID: " t 16 assoc completing-read "Encryption Scheme: " mc-schemes start end] 7 (#$ . -1341) "p\nr"]) #@48 *Generic function to encrypt a region of data. (defalias 'mc-encrypt-generic #[(&optional recipients scheme start end from sign) " !!\f \f!#\f!!;7\"JF!!J!S \"A\f%k!)" [start point-min-marker markerp copy-marker end point-max-marker run-hooks mc-pre-encryption-hook recipients mc-split "\\([ \n]*,[ \n]*\\)+" mc-cleanup-recipient-headers read-string "Recipients: " error "mc-encrypt-generic: recipients not string or nil" scheme mc-default-scheme assoc encryption-func from sign mc-post-encryption-hook t] 6 (#$ . -1720)]) #@204 *Encrypt a message for RECIPIENTS using the given encryption SCHEME. RECIPIENTS is a comma separated string. If SCHEME is nil, use the value of `mc-default-scheme'. Returns t on success, nil otherwise. (defalias 'mc-encrypt-message #[(&optional recipients scheme start end from sign) " eb!Q!e`}!( (ed\"#5!#@!#K!##)neb!Q!` }!)|\n\n\"!! !\" \"%!\"&&+" [mc-find-headers-end nil default-recipients headers-end re-search-forward "^" regexp-quote mail-header-separator "$" featurep mailalias mail-aliases expand-mail-aliases mapconcat identity append mc-cleanup-recipient-headers mail-fetch-field "to" t "" "bcc" "cc" ", " from "\n" "From" recipients mc-use-default-recipients read-from-minibuffer "Recipients: " error "No recipients!" start end point-max-marker mc-encrypt-generic scheme sign] 10 (#$ . -2331)]) #@90 *Decrypt a message in the current buffer. Exact behavior depends on current major mode. (defalias 'mc-decrypt #[nil " \n ĉ *" [major-mode mc-modes-alist mode-alist decrypt mc-decrypt-message func] 3 (#$ . -3262) nil]) #@186 Decrypt whatever message is in the current buffer. Returns a pair (SUCCEEDED . VERIFIED) where SUCCEEDED is t if the encryption succeeded and VERIFIED is t if it had a valid signature. (defalias 'mc-decrypt-message #[nil "-\f@A-\n \"A\n \"A\"-\fA 7!X!\n \"A @ A\"eb@U!)," [mc-schemes nil scheme limits schemes mc-message-delimiter-positions assoc msg-begin-line msg-end-line error "Found no encrypted message in this buffer." run-hooks mc-pre-decryption-hook decryption-func resultval mc-post-decryption-hook] 6 (#$ . 3500)]) #@262 *Sign a message in the current buffer. Exact behavior depends on current major mode. With one prefix arg, prompts for private key to use, with two prefix args, also prompts for encryption scheme to use. With negative prefix arg, inhibits clearsigning (pgp). (defalias 'mc-sign #[(arg) " ‰#" [mc-sign-region arg nil] 4 (#$ . -4085) "p"]) #@27 *Sign the current region. (defalias 'mc-sign-region #[(arg start end) " \n  Y'\"\"A Y3!  W%," [major-mode mc-modes-alist mode-alist sign mc-sign-generic func nil from scheme arg 16 assoc completing-read "Encryption Scheme: " mc-schemes 4 read-string "User ID: " start end 0] 7 (#$ . -4434) "p\nr"]) (defalias 'mc-sign-generic #[(withkey scheme start end unclearsig) " \n \n!\n! !-!! \"A\n\f $!" [scheme mc-default-scheme start point-min-marker markerp copy-marker end point-max-marker run-hooks mc-pre-signature-hook assoc signing-func withkey unclearsig mc-post-signature-hook] 5]) #@25 Clear sign the message. (defalias 'mc-sign-message #[(&optional withkey scheme start end unclearsig) " \neb!Q!` }!)\n' \n 0  \n\n %*" [mc-find-headers-end headers-end withkey re-search-forward "^" regexp-quote mail-header-separator "\n" mail-fetch-field "From" start end point-max-marker mc-sign-generic scheme unclearsig] 6 (#$ . 5120)]) #@89 *Verify a message in the current buffer. Exact behavior depends on current major mode. (defalias 'mc-verify #[nil " \n ĉ *" [major-mode mc-modes-alist mode-alist verify mc-verify-signature func] 3 (#$ . -5501) nil]) #@156 *Verify the signature of the signed message in the current buffer. Show the result as a message in the minibuffer. Returns t if the signature is verified. (defalias 'mc-verify-signature #[nil "-\f@A-\n \"A\n \"A\"-\fA 7!B\n \"A @ A\"," [mc-schemes nil scheme limits schemes mc-message-delimiter-positions assoc signed-begin-line signed-end-line error "Found no signed message in this buffer." verification-func] 6 (#$ . -5737)]) #@137 *Insert your public key at point. With one prefix arg, prompts for user id to use. With two prefix args, prompts for encryption scheme. (defalias 'mc-insert-public-key #[(&optional userid scheme) " \n \"Anc \"A\n!" [scheme mc-default-scheme userid assoc user-id "\n" key-insertion-func] 3 (#$ . -6210) (byte-code "\n<.\n@.\n@Y!\"\"A B\n@Y.! B )" [nil arglist current-prefix-arg 16 assoc completing-read "Encryption Scheme: " mc-schemes 4 read-string "User ID: "] 4)]) #@100 *Add all public keys in the buffer to your keyring. Exact behavior depends on current major mode. (defalias 'mc-snarf #[nil " \n ĉ *" [major-mode mc-modes-alist mode-alist snarf mc-snarf-keys func] 3 (#$ . -6731) nil]) #@53 *Add all public keys in the buffer to your keyring. (defalias 'mc-snarf-keys #[nil "e‰ɍ =΂ #!." [mc-schemes 0 nil scheme limits found start schemes done (byte-code ")@A) \"A \"A#)A7\n\"A\n \"A@A\"\\\n" [schemes scheme mc-message-delimiter-positions assoc key-begin-line key-end-line start limits throw done found snarf-func] 6) message format "%d new key%s found" 1 "" "s"] 6 (#$ . -6969) nil]) #@47 *Verify the signature in the current message. (defalias 'mc-rmail-summary-verify-signature #[nil "=\n!\fq )" [major-mode rmail-summary-mode error "mc-rmail-summary-verify-signature called in inappropriate buffer" rmail-buffer mc-verify] 2 (#$ . -7452) nil]) #@39 *Decrypt the contents of this message (defalias 'mc-rmail-summary-decrypt-message #[nil "=\n!\fq )" [major-mode rmail-summary-mode error "mc-rmail-summary-decrypt-message called in inappropriate buffer" rmail-buffer mc-decrypt] 2 (#$ . -7727) nil]) #@52 *Adds keys from current message to public key ring (defalias 'mc-rmail-summary-snarf-keys #[nil "=\n!\fq )" [major-mode rmail-summary-mode error "mc-rmail-summary-snarf-keys called in inappropriate buffer" rmail-buffer mc-snarf] 2 (#$ . -7993) nil]) #@47 *Verify the signature in the current message. (defalias 'mc-rmail-verify-signature #[nil "\n!!! !" [mode-name "RMAIL" error "mc-rmail-verify-signature called in a non-RMAIL buffer" rmail-add-label "verified" rmail-kill-label mc-verify-signature] 2 (#$ . -8260) nil]) #@39 *Decrypt the contents of this message (defalias 'mc-rmail-decrypt-message #[nil "\nÚ\f!Ǝ @ ~\n=F\n0!F !! A~!~!ed# \"eb ޱ !!\"!)*" [nil decryption-result mode-name "RMAIL" error "mc-rmail-decrypt-message called in a non-RMAIL buffer" ((byte-code "= " [major-mode rmail-edit-mode rmail-abort-edit] 2)) rmail-edit-current-message mc-decrypt-message rmail-abort-edit mc-always-replace never y-or-n-p "Replace encrypted message with decrypted? " rmail-cease-edit rmail-kill-label "edited" rmail-add-label "decrypted" "verified" generate-new-buffer "*Mailcrypt Viewing*" tmp copy-to-buffer switch-to-buffer t "From Mailcrypt-" mc-version " " current-time-string "\n" rmail-convert-file rmail-mode use-local-map copy-keymap current-local-map local-set-key "q" mc-rmail-view-quit set-buffer-modified-p] 6 (#$ . -8554) nil]) (defalias 'mc-rmail-view-quit #[nil "p! !)" [buf set-buffer-modified-p nil rmail-quit kill-buffer] 2 nil nil]) #@49 *Verify the signature in the current VM message (defalias 'mc-vm-verify-signature #[nil "t )" [vm-follow-summary-cursor vm-select-folder-buffer vm-check-for-killed-summary vm-error-if-folder-empty vm-widen-page mc-verify-signature] 1 (#$ . -9592) nil]) #@49 *Decrypt the contents of the current VM message (defalias 'mc-vm-decrypt-message #[nil "t  ˏ+ !e=B=!B e!ed# \"eb c!!))" [nil from-line vm-follow-summary-cursor vm-select-folder-buffer vm-check-for-killed-summary vm-error-if-folder-read-only vm-error-if-folder-empty vm-leading-message-separator vm-edit-message condition-data (byte-code " @" [mc-decrypt-message] 1) ((error (byte-code " \fA@\"!" [vm-edit-message-abort error message "Decryption failed: %s" condition-data] 4))) vm-edit-message-abort error "Decryption failed." mc-always-replace never y-or-n-p "Replace encrypted message with decrypted? " vm-edit-message-end generate-new-buffer "*Mailcrypt Viewing*" tmp copy-to-buffer switch-to-buffer t set-buffer-modified-p vm-mode] 4 (#$ . -9872) nil]) #@63 *Snarf public key from the contents of the current VM message (defalias 'mc-vm-snarf-keys #[nil "t )" [vm-follow-summary-cursor vm-select-folder-buffer vm-check-for-killed-summary vm-error-if-folder-empty vm-widen-page mc-snarf-keys] 1 (#$ . -10717) nil]) (defalias 'mc-gnus-summary-verify-signature #[nil " Î !~ +" [gnus-summary-select-article selected-window GnusStartBufferWindow ((select-window GnusStartBufferWindow)) pop-to-buffer gnus-article-buffer mc-verify-signature] 2 nil nil]) (defalias 'mc-gnus-summary-snarf-keys #[nil " Î !~ +" [gnus-summary-select-article selected-window GnusStartBufferWindow ((select-window GnusStartBufferWindow)) pop-to-buffer gnus-article-buffer mc-snarf-keys] 2 nil nil]) (defalias 'mc-gnus-summary-decrypt-message #[nil " !\n;\n\"' ǎ !~ + ˎ ! ~ϏK! d=b]!b d +" [gnus-summary-select-article boundp gnus-version string-match "(ding)" selected-window GnusStartBufferWindow ((select-window GnusStartBufferWindow)) pop-to-buffer gnus-article-buffer mc-decrypt-message ((select-window GnusStartBufferWindow)) gnus-summary-edit-article condition-data (byte-code " @" [mc-decrypt-message] 1) ((error (byte-code " A@\"!" [gnus-article-show-summary gnus-summary-show-article error message "Decryption failed: %s" condition-data] 4))) message "Decryption failed." gnus-article-show-summary gnus-summary-show-article mc-always-replace never y-or-n-p "Replace encrypted message on disk? " gnus-summary-edit-article-done] 3 nil nil]) #@68 Decrypt the contents of the current MH message in the show buffer. (defalias 'mc-mh-decrypt-message #[nil "!\n!! \n =?$ $!\no\f!q\f\" @ D L!!!) ii\f!i؋)\n!\n!q @ eb!!) ? \n!-" [mh-get-msg-num t msg mh-msg-filename msg-filename get-buffer mh-show-buffer show-buffer nil decrypt-okay decrypt-on-disk mc-always-replace never y-or-n-p "Replace encrypted message on disk? " create-file-buffer insert-file-contents mc-decrypt-message save-buffer message "Decryption failed." set-buffer-modified-p kill-buffer buffer-file-name ((mh-invalidate-show-buffer)) mh-show mh-invalidate-show-buffer] 4 (#$ . 12308) "P"]) #@50 *Verify the signature in the current MH message. (defalias 'mc-mh-verify-signature #[nil " \f! p!ǎ *" [mh-show selected-window mh-in-show-buffer-saved-window switch-to-buffer-other-window mh-show-buffer mh-bury-show-buffer bury-buffer ((select-window mh-in-show-buffer-saved-window)) mc-verify-signature] 2 (#$ . -13021) nil]) (defalias 'mc-mh-snarf-keys #[nil " \f! p!ǎ *" [mh-show selected-window mh-in-show-buffer-saved-window switch-to-buffer-other-window mh-show-buffer mh-bury-show-buffer bury-buffer ((select-window mh-in-show-buffer-saved-window)) mc-snarf-keys] 2 nil nil])