;ELC   
;;; Compiled by per-erik.martin@telia.com on Sun Oct 29 17:38:33 2006
;;; from file /Users/pem/src/pgp/pgp.el
;;; in Emacs version 21.2.1
;;; with bytecomp version 1.1.1.4
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`pgp.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301B\302\301\207" [current-load-list pgp-vm-version "2.2.2"] 2)
#@191 *The directory where incoming emails are saved temporarily while
verifying a signature. Files are removed after verification, but
you may want to make sure this is somewhere private anyway.
(defvar pgp-tmp-directory "/tmp/" (#$ . -677))
#@107 *The command line PGP program. If it is not an explicit path, it
must be found in the PATH of the caller.
(defvar pgp-program "/usr/local/bin/pgp" (#$ . -921))
#@109 *The command line GnuPG program. If it is not an explicit path, it
must be found in the PATH of the caller.
(defvar gpg-program "/usr/local/bin/gpg" (#$ . -1088))
#@102 Sign the current composed message using PGP. The program to call
is set in the variable pgp-program.
(defalias 'pgp-vm-sign #[nil "\300\301\302\"\207" [pem-vm-sign pgp-sign-call "pgp-md5"] 3 (#$ . 1258) nil])
#@105 Sign the current composed message using Gnu PG. The program to call
is set in the variable gpg-program.
(defalias 'gpg-vm-sign #[nil "\300\301\302\"\207" [pem-vm-sign gpg-sign-call "pgp-sha1"] 3 (#$ . 1474) nil])
(defalias 'pem-vm-sign #[(signer micalg) "p\304\305!\306\216\212\307\310\311\217\210q\210\312	!\210\313\n\"\203- 	q\210ed|\210\312!\210\314\315!\2020 \316\317!,\207" [tmpbuf curbuf signer micalg get-buffer-create " *pgp-sign-temp*" ((kill-buffer tmpbuf)) x (vm-mime-encode-composition) ((error (byte-code "A@\301\230\204 \302A@!\210\302\207" [x "Message is already MIME encoded." error] 2))) insert-buffer pem-sign message "Signed. C-c C-c to send, C-x u to undo" error "Signing failed"] 3])
(defalias 'pem-sign #[(signer micalg) "eb\210\306\307Q\310	d\311#\211\204 \312\313!\202\325 \314 \315P\316\317\320e\n#\204, \321c\210\317\322e\n\311$\211&?\211'\203B \323c\210\324&\325\326(P\327Rc\210'\203V \330\331\332\"\210eb\210\310	d\311#\317\333e\n\311$\211)\203n \334 \210eb\210\310	d\311#\335\336!\210\fc\210\337 \210`*\340\332!\210\323c\210&c\210\337 \210)\203\241 \341c\210)c\210\337 \210\342*\311\"\210db\210`\316+,\fc\210\337 \210\343c\210\337\336!\210\344-*,D\"+\fc\210\345c\210\337 \210+.	*\207" [mail-header-separator header-sep end-of-head b mpb case-fold-search "^" "$" re-search-forward t error "End of header not found" pem-mime-make-multipart-boundary "\n--" nil pem-get-header-val "^MIME-Version: " "MIME-Version: 1.0\n" "^Content-Type: " "Content-Type: " "text/plain; charset=us-ascii" "multipart/signed; boundary=" "; micalg=" ";\n	protocol=\"application/pgp-signed\"" insert-char 10 1 "^Content-Transfer-Encoding: " pem-delete-whole-line beginning-of-line 2 newline open-line "Content-Transfer-Encoding: " pem-canonicalization "Content-Type: application/pgp-signature" apply "--" oldct insct micalg oldcte p1 res p2 signer] 6])
#@116 Verify the signature of the current VM message, using PGP. The program to call
is set in the variable pgp-program.
(defalias 'pgp-vm-verify-signature #[nil "\300\301!\207" [pem-vm-verify-signature pgp-verify-call] 2 (#$ . 3374) nil])
#@119 Verify the signature of the current VM message, using Gnu PG.
The program to call is set in the variable gpg-program.
(defalias 'gpg-vm-verify-signature #[nil "\300\301!\207" [pem-vm-verify-signature gpg-verify-call] 2 (#$ . 3615) nil])
(defalias 'pem-vm-verify-signature #[(verifyer) "\306\307 \310 \235\204 \311\312!\202T \212@q\210~\210\313\314e\315#\211\204) \311\316!\202S \317\320!\210`\321\314d\315#\2068 d\nb\210\322\323\315#\324\n\f$\211\205R \325!+**\207" [vmbuffers case-fold-search begm endm midm verifyer nil pem-vm-buffer-name-list buffer-name error "Current buffer is not a mail buffer" re-search-backward "^From " t "Message beginning not found" beginning-of-line 2 re-search-forward search-forward "\n\n" pem-verify-signature display-buffer buf] 6])
(defalias 'pem-verify-signature #[(verifyer begm midm endm) "\306\307	#\211\204 \310\311!\2021 \312\n!\204 \310\313!\2021 \314\n!\211\204* \310\315!\2020 \316\f	$))\207" [begm midm ct b verifyer endm pem-get-header-val "^Content-Type: " error "Missing Content-Type" pem-is-signed "Not PGP signed" pem-get-boundary-regexp "No multipart boundary" pem-verify-signature-body] 6])
(defalias 'pem-verify-signature-body #[(verifyer boundary begm endm) "b\210\306\307!\310\n	#	\311P\310\n#\312\216\f\204$ \313\314!\202\203 \204/ \313\315!\202\203 \fq\210\316e!\210\317	!\210\320	\321\"\210\322\323!\210q\210eb\210\324\325d\326#\204X \313\327!\202\203 \330\331d\326#\204f \313\332!\202\203 e`|\210\322\333\"\210\317!\210\320\321\"\210\322\323!\210\334	D\"-\207" [begm file1 boundary endm buf1 file2 make-unique-tmp-file ".pgp-temp-" pem-get-next-part ".sig" ((byte-code "\203 \304!\210	\203 \304	!\210\305\n!\203 \306\n!\210\305!\203$ \306!\210\304\207" [buf1 buf2 file1 file2 kill-buffer file-exists-p delete-file] 2)) error "Failed to get the first (message) part" "Failed to get the second (signature) part" pem-canonicalization write-file set-file-modes 384 message nil re-search-forward "^Content-Type: application/pgp-signature$" t "Second part is not a PGP signature" search-forward "\n\n" "No blank line in signature part" "File2=%s" apply buf2 verifyer] 4])
#@105 Encrypt the current composed message using PGP. The program to call
is set in the variable pgp-program.
(defalias 'pgp-vm-encrypt #[nil "\300\301\302\"\207" [pem-vm-encrypt pgp-encrypt-call nil] 3 (#$ . 5796) nil])
#@108 Encrypt the current composed message using Gnu PG. The program to call
is set in the variable gpg-program.
(defalias 'gpg-vm-encrypt #[nil "\300\301\302\"\207" [pem-vm-encrypt gpg-encrypt-call nil] 3 (#$ . 6018) nil])
#@114 Encrypt and sign the current composed message using PGP. The program to call
is set in the variable pgp-program.
(defalias 'pgp-vm-both-sign-and-encrypt #[nil "\300\301\302\"\207" [pem-vm-encrypt pgp-sign-encrypt-call t] 3 (#$ . 6243) nil])
#@117 Encrypt and sign the current composed message using Gnu PG. The program to call
is set in the variable gpg-program.
(defalias 'gpg-vm-both-sign-and-encrypt #[nil "\300\301\302\"\207" [pem-vm-encrypt gpg-sign-encrypt-call t] 3 (#$ . 6491) nil])
(defalias 'pem-vm-encrypt #[(encryptor sign) "p\304\305!\306\216\212\307\310\311\217\210q\210\312	!\210\313\n\"\203- 	q\210ed|\210\312!\210\314\315!\2020 \316\317!,\207" [tmpbuf curbuf encryptor sign get-buffer-create " *pgp-encr-temp*" ((kill-buffer tmpbuf)) x (vm-mime-encode-composition) ((error (byte-code "A@\301\230\204 \302A@!\210\302\207" [x "Message is already MIME encoded." error] 2))) insert-buffer pem-encrypt message "Encrypted. C-c C-c to send, C-x u to undo" error "Encryption failed"] 3])
(defalias 'pem-encrypt #[(encryptor sign) "eb\210\306\307Q\310	d\311#\211\204 \312\313!\202\375 \314 \315P\316\316*\317\320e\n#\204/ \321c\210\322e\n\"\211*\204@ \312\323!\210\202J *A\203J \312\324!\210\317\325e\n\311$\211+?\211,\203` \326c\210\327+\330\331Qc\210,\203p \332\333\334\"\210eb\210\310	d\311#\317\335e\n\311$\211-\203\210 \336 \210eb\210\310	d\311#\337\340!\210\fc\210\341 \210\342c\210\343c\210`.\344\334!\210\326c\210+c\210\341 \210-\203\301 \345c\210-c\210\341 \210/\203\314 \346.\311\"\210db\210\3470*@.`E\"1.b\210\fc\210\341 \210\350c\210\341\340!\210db\210\fc\210\351c\210\341 \2101.	*\207" [mail-header-separator header-sep end-of-head b mpb case-fold-search "^" "$" re-search-forward t error "End of header not found" pem-mime-make-multipart-boundary "\n--" nil pem-get-header-val "^MIME-Version: " "MIME-Version: 1.0\n" pem-get-recipients "No recipients, can't encrypt" "Encrypting for more than one receiver it not supported" "^Content-Type: " "Content-Type: " "text/plain; charset=us-ascii" "multipart/encrypted; boundary=" ";\n	protocol=\"application/pgp-encrypted\"" insert-char 10 1 "^Content-Transfer-Encoding: " pem-delete-whole-line beginning-of-line 2 newline "Content-Type: application/pgp-encrypted\n\n" "Version: 1\n" open-line "Content-Transfer-Encoding: " pem-canonicalization apply "Content-Type: application/octet-stream" "--" to-ids oldct insct oldcte p1 sign encryptor res] 6])
#@181 Decrypt the message of the current VM message, using PGP.
If the message is also signed, the signature is verified as well.
The program to call is set in the variable pgp-program.
(defalias 'pgp-vm-decrypt #[nil "\300\301!\207" [pem-vm-decrypt pgp-decrypt-call] 2 (#$ . 8705) nil])
#@184 Decrypt the message of the current VM message, using Gnu GP.
If the message is also signed, the signature is verified as well.
The program to call is set in the variable gpg-program.
(defalias 'gpg-vm-decrypt #[nil "\300\301!\207" [pem-vm-decrypt gpg-decrypt-call] 2 (#$ . 8994) nil])
(defalias 'pem-vm-decrypt #[(decryptor) "\306 \307 \235\204 \310\311!\202\322 \312p\312\212@q\210~\210\313\314e\315#\211\204. \310\316!\210\202R \317\320!\210`\321\314d\315#\206= d\fb\210\322\323\315#(\324)\f($**	\205\321 	<\203a 	@\202b 		<\205j 	A@*\211+q\210\325\326!\210eb\210\327\330\331\"\210d\211,b\210\332\333\312\334\335#!\210e,|\210\325\336!\210*\203\255 \337*!\210*q\210\340 \210\341+!\210\202\262 \337+!\210\342\343!\205\320 \344+!\210*\203\307 \344*!\210\345\n!\210\346 \210\347 ++)\207" [vmbuffers decrypt oldbuf case-fold-search begm endm pem-vm-buffer-name-list buffer-name error "Current buffer is not a mail buffer" nil re-search-backward "^From " t "Message beginning not found" beginning-of-line 2 re-search-forward search-forward "\n\n" pem-decrypt toggle-read-only 0 replace-string "\n" "\n" vm-decode-mime-layout vm-mime-parse-entity ("text/plain" "charset=us-ascii") "7bit" 1 display-buffer split-window-vertically switch-to-buffer-other-window y-or-n-p "Kill decryption buffers? " kill-buffer switch-to-buffer delete-other-windows vm-summarize midm decryptor verbuf secbuf p] 6])
(defalias 'pem-decrypt #[(decryptor begm midm endm) "\306\307	#\211\204 \310\311!\2021 \312\n!\204 \310\313!\2021 \314\n!\211\204* \310\315!\2020 \316\f	$))\207" [begm midm ct b decryptor endm pem-get-header-val "^Content-Type: " error "Missing Content-Type" pem-is-encrypted "Not PGP encrypted" pem-get-boundary-regexp "No multipart boundary" pem-decrypt-body] 6])
(defalias 'pem-decrypt-body #[(decryptor boundary begm endm) "b\210\306	\n\307#\306	\n\310#\311\216\204 \312\313!\202~ \f\204% \312\314!\202~ q\210\315\316ed#\317\230\2049 \312\320!\210\202T \321\322d\323#\204H \312\324!\210\202T \325\326d\323#\204T \312\327!\210\fq\210eb\210\315\330ed#\331\230\204j \312\332!\202~ \321\322d\323#\204x \312\333!\202~ \334`dD\"+\207" [begm boundary endm bufvers bufdecr decryptor pem-get-next-part " *temp-vers*" " *temp-decr*" ((byte-code "\203 \302!\210	\203 \302	!\210\302\207" [bufvers bufdecr kill-buffer] 2)) error "Failed to get the first (version) part" "Failed to get the second (cryptogram) part" pem-get-header-val "Content-Type: " "application/pgp-encrypted" "First part is not a pgp-encrypt control part" search-forward "\n\n" t "No blank line in control part" search-forward-regexp "^Version: 1$" "First part does not contain Version: 1" "^Content-Type: " "application/octet-stream" "Second part is not a octet-stream" "No blank line in encrypted part" apply] 4])
(defalias 'make-unique-tmp-file #[(prefix) "	\302 \303\304 !R\207" [pgp-tmp-directory prefix user-login-name number-to-string emacs-pid] 5])
(defalias 'pem-delete-whole-line #[nil "\301 \210`\301\302!\210`|)\207" [p beginning-of-line 2] 2])
(defalias 'pem-is-signed #[(ct) "\301\302\"\205 \301\303\"\207" [ct string-match "\\<multipart/signed\\>" "\\<protocol *= *\"application/pgp-signed\""] 3])
(defalias 'pem-is-encrypted #[(ct) "\301\302\"\205 \301\303\"\207" [ct string-match "\\<multipart/encrypted\\>" "\\<protocol *= *\"application/pgp-encrypted\""] 3])
(defalias 'pem-get-boundary-regexp #[(ct) "\301\302\"\205 \303\304\305\224\305\225O!\306Q\207" [ct string-match "\\<boundary *= *\\([^ 	\n;]+\\)" "^--" regexp-quote 1 "-*$"] 5])
(defalias 'pem-get-recipients #[(beg end) "\302\303\304	#\302\303\305	#\302\303\306	#!\"\"\207" [beg end pem-list-recipients pem-get-header-val "^To: " "^Cc: " "^Bcc: "] 9])
(defalias 'pem-list-recipients #[(reclist &optional lst) "\204 	\207\305	\203( \306\307#\211\203\n \305\225\fO\nB\f)\202\n \n*\207" [reclist lst r p e 0 string-match "[A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+"] 5])
(defalias 'pem-get-header-val #[(regexp beg end &optional cut) "b\210\306	\n\307#\211\205B \310\210`\311\312!\210`f\313U\204$ `f\314U\2030 \310\210`\311\312!\210\202 \f{\203= \f|\210b\210*)\207" [beg regexp end p1 p2 val re-search-forward t nil beginning-of-line 2 9 32 cut] 5])
(defalias 'pem-get-next-part #[(boundary endm name) "\306	\307#\205- \310\211\311\312!\210`\306	\307#\205, \311\313!\210`\314\f!\315\n#\210)*\207" [boundary endm p2 p1 name tmpbuf re-search-forward t nil beginning-of-line 2 0 generate-new-buffer copy-to-buffer] 4])
(defalias 'pem-canonicalization #[(p &optional encode-from) "b\210\302\303\304\"\210	\205 b\210\305\306\307\"\207" [p encode-from replace-string "\n" "\n" replace-regexp "^From" "=46rom"] 3])
#@170 Read a passphrase, echoing `.' for each character typed.
End with RET, LFD, or ESC.  DEL or C-h rubs out.  C-u kills line.
Optional DEFAULT is passphrase to start with.
(defalias 'pem-read-passphrase #[(prompt &optional default) "\306\307\211\310\311\312\f\313G\314\"#\210\315 \211\316U\204V \n\317U\204V \n\320U\204V \n\321U\2032 \322\202 \n\323U\204G \n\324U\204G \325\n!P\202 G\307V\203 \307\326O\202 \311\322!\210\311\306!\210\206g \206g \322,\207" [cursor-in-echo-area echo-keystrokes c pass prompt default nil 0 t message "%s%s" make-string 46 read-char 13 10 27 21 "" 8 127 char-to-string -1] 7 (#$ . 13728)])
(defalias 'pem-vm-buffer-name-list #[nil "\305	\"\306\n!\211\205 \307!\211\211\310P\f\311PE)*\207" [vm-primary-inbox vm-folder-directory file buffer bname expand-file-name vm-get-file-buffer buffer-name " Summary" " Presentation"] 5])
(defalias 'pem-mime-make-multipart-boundary #[nil "\303\304\305\"\306	GW\203% 	\n\307\310\311 \312\"!\nG\246HI\210T\211\202 	*\207" [i boundary vm-mime-base64-alphabet make-string 10 97 0 vm-abs lsh random -8] 8])
(defalias 'pgp-sign-call #[(start end) "\306\211\2044 \307\310!\311\f\306\312\306\313\314\315\316\n&\317U\203& \320\320\2020 \321\322!\2040 \320\306)\202 	*\207" [ok res pp start end pgp-program nil pem-read-passphrase "Passphrase: " call-process-region (t nil) "+batchmode" "+force" "-fsab" "-z" 0 t y-or-n-p "Signing failed. Try again? "] 12])
(defalias 'pgp-verify-call #[(file signature) "\304\305!\306	\n\307D\307\310\311\312&\210\212q\210eb\210\313\314!\210\313\315!\210\316\317!\210db\210))\207" [verbuf pgp-program signature file generate-new-buffer "*pgp-verify-signature*" call-process t "+batchmode" "+force" "-f" flush-lines "^File .+ has signature.*$" "^Text is assumed to be in.*$" toggle-read-only 1] 9])
(defalias 'pgp-encrypt-call #[(id start end) "\304	\n\305\306\307\310\311\312&\n\313U\207" [start end pgp-program id call-process-region t (t nil) nil "+batchmode" "+force" "-fea" 0] 11])
(defalias 'pgp-sign-encrypt-call #[(id start end) "\306\211\2046 \307\310!\311\f\312\313\306\314\315\316\317\n&\f\320U\203( \312\312\2022 \321\322!\2042 \312\306)\202 	*\207" [ok res pp start end pgp-program nil pem-read-passphrase "Passphrase: " call-process-region t (t nil) "+batchmode" "+force" "-fesa" "-z" 0 y-or-n-p "Signing/encryption failed. Try again? " id] 13])
(defalias 'pgp-decrypt-call #[(start end) "\306\307!\306\310!\311\312!\313\211\204x \314\315!\316!\"#\313\f\nD\313\317\320\321\322&\211$\323U\204: $\324U\203j \325\325\212\326\n!\203\\ q\210\327\n!\210\330\n!\210\331\332!\210\331\333!\210\334\324!\210\fq\210\334\324!\210db\210)\202t \335\336!\204t \325\313*\202 	\203\226 \212q\210\337 \323U\203\217 \340!\210\f\202\222 \fD)\202\237 \340\f!\210\340!\210\313-\207" [ok res stderr sigbuf decbuf pp generate-new-buffer "*pgp-decrypted-message*" "*pgp-decryption-info*" make-unique-tmp-file ".decrypt-stderr-" nil pem-read-passphrase "Passphrase: " call-process-region "+batchmode" "+force" "-f" "-z" 0 1 t file-exists-p insert-file delete-file flush-lines "^File is encrypted..*$" "^Key can sign..*$" toggle-read-only y-or-n-p "Decryption failed. Try again? " buffer-size kill-buffer start end pgp-program x] 13])
(defalias 'pem-proc-still-running '(macro . #[(p) "\301\302\303\304DEE\207" [p and eq 'run process-status] 6]))
(defalias 'pem-proc-exit-ok '(macro . #[(p) "\301\302\303\304DE\305\306DDF\207" [p and eq 'exit process-status zerop process-exit-status] 6]))
(defalias 'gpg-call-process #[(what start end replace &rest args) "\306\211\307\310!\203 \311!\210	\204\312\313!\314P\306\315\316\317\320\fE\"\")%&%\203\336 \321%!\322=\203\336 \323%\324\211#\210\325%&\"\210%\203\316 \321%!\322=\203\316 \326%'(#\210\327%!\210\330))\331V\203\211 %\203\211 \321%!\322=\203\211 )S)\332%\333\331#\210\202e )%\203\276 \321%!\334=\203\276 \335%!\331U\203\276 *\203\260 'b\210'(|\210\336!\210db\210\337\337\202\347 \340+\341P!\204\347 \337\306\202\347 \340+\341P!\204\347 \337\306\202\347 \342\343\f\"\210\337\306\321%!\203\363 \344%!\210\310!\203\375 \311!\210*\202 \n+\207" [pbuf ok res process-connection-type gpg-program args nil "*gpg*" get-buffer kill-buffer pem-read-passphrase "Passphrase: " "\n" apply start-process append "gpg" process-status run set-process-coding-system no-conversion process-send-string process-send-region process-send-eof 10 0 accept-process-output 1 exit process-exit-status insert-buffer t y-or-n-p " failed. Try again? " error "Failed to start %s" delete-process p pp start end cnt replace what] 7])
(defalias 'gpg-sign-call #[(start end) "\302\303	\304\305\306\307\310\311\312\313&\207" [start end gpg-call-process "Signing" nil "--detach-sig" "--armor" "--batch" "--no-tty" "--quiet" "--passphrase-fd" "0"] 12])
(defalias 'gpg-verify-call #[(file signature) "\304\305!\306	\307\310D\310\311\312\313\314\n&\n\210\212q\210eb\210\315\316!\210\315\317!\210\320\321!\210db\210))\207" [verbuf gpg-program signature file generate-new-buffer "*gpg-verify-signature*" call-process nil t "--batch" "--no-tty" "--quiet" "--verify" flush-lines "^gpg: checking .*$" "^gpg: next trustdb .*$" toggle-read-only 1] 11])
(defalias 'gpg-encrypt-call #[(id start end) "\304	\n\305\306\307\310\311\312\313\314\315&\316U\207" [start end gpg-program id call-process-region t (t nil) nil "--armor" "--batch" "--no-tty" "--quiet" "--encrypt" "--recipient" 0] 14])
(defalias 'gpg-sign-encrypt-call #[(id start end) "\303\304	\305\306\307\310\311\312\313\314\315\316\n&\207" [start end id gpg-call-process "Signing/encrypting" t "--armor" "--batch" "--no-tty" "--quiet" "--passphrase-fd" "0" "--sign" "--encrypt" "--recipient"] 15])
(defalias 'gpg-decrypt-call #[(start end) "\306\307!\306\310!\311\312!\313\211\204 \314\315!\316P\313\31767\320\321\f8\322\323\324\325\326\327\330\n&*\2119\203\346 \3319!\332=\203\346 \3339\334\211#\210\3359\"\2109\203\331 \3319!\332=\203\331 \3369:;#\210\3379!\210\340<<\341V\203\217 9\203\217 \3319!\332=\203\217 <S<\3429\343\341#\210\202k )9\203\314 \3319!\344=\203\314 \3459!\341U\203\314 \212\346\n!\203\275 q\210\347\n!\210\350\n!\210\351\343!\210\fq\210\351\343!\210)\352\352\202\360 \353\354!\204\360 \352\313\202\360 \353\354!\204\360 \352\313\202\360 \355\3568\"\210\352\313\3319!\203\374 \3579!\210*\202 	\2034\212\fq\210db\210\360\361!\210\351\341!\210\362\363!\210\351\343!\210q\210\364 \341U\203-\365!\210\f\2020\fD)\202=\365\f!\210\365!\210\313-\207" [ok res stderr sigbuf decbuf pp generate-new-buffer "*gpg-decrypted-message*" "*gpg-decryption-info*" make-unique-tmp-file ".decrypt-stderr-" nil pem-read-passphrase "Passphrase: " "\n" "/bin/sh" start-process-shell-command "gpg" "--batch" "--no-tty" "--quiet" "--passphrase-fd" "0" "--decrypt" "2>" process-status run set-process-coding-system no-conversion process-send-string process-send-region process-send-eof 10 0 accept-process-output 1 exit process-exit-status file-exists-p insert-file delete-file toggle-read-only t y-or-n-p "Decryption failed. Try again? " error "Failed to start %s" delete-process beginning-of-line -1 flush-lines "^Process gpg kill.*$" buffer-size kill-buffer shell-file-name process-connection-type gpg-program p start end cnt] 13])
#@139 Verify the clear text signature, if any, of the current VM message,
using Gnu PG. The program to call is set in the variable gpg-program.
(defalias 'gpg-vm-verify-cleartext #[nil "\305\306 \307 \235\204 \310\311!\202I \212@q\210~\210\312\313e\314#\211\204) \310\315!\202H \316\317!\210`\320\313d\314#\2068 d\nb\210\321\322\314#\323`\n#***\207" [vmbuffers case-fold-search begm endm midm nil pem-vm-buffer-name-list buffer-name error "Current buffer is not a mail buffer" re-search-backward "^From " t "Message beginning not found" beginning-of-line 2 re-search-forward search-forward "\n\n" gpg-verify-cleartext] 5 (#$ . 21113) nil])
#@240 Try to locate a Gnu PG clear text signature, starting at POINT. It searches
forward first, and then backwards. If MIN and MAX are given, they set the
boundaries of how far to search.
The program to call is set in the variable gpg-program.
(defalias 'gpg-verify-cleartext #[(point &optional min max) "\212b\210\305\306	\206 d\307#\206 \310\306\n\206 e\307#\211\203@ \311\312!\210`\305\313d\307#\211\2039 \311\314!\210\315`\"\202< \316\317!)\202C \316\320!*\207" [point max min begin end search-forward "-----BEGIN PGP SIGNED MESSAGE-----" t search-backward beginning-of-line 1 "-----END PGP SIGNATURE-----" 2 gpg-verify-region error "No end of PGP signature found" "No beginning of PGP signed message found"] 5 (#$ . 21765) "d"])
(defalias 'gpg-verify-region #[(begin end) "\306\307!\310!\311\216\312	\n#\210	q\210\313!\210\314\315\"\210\316\317!\210\310\320!\321\317\f\322D\322\323\324\325\326&	\210\212\fq\210eb\210\327\330!\210\327\331!\210\332\333!\210db\210\334\f!-\207" [file buf begin end verbuf gpg-program make-unique-tmp-file ".pgp-temp-" generate-new-buffer ((byte-code "\203 \302!\210\303	!\203 \304	!\210\302\207" [buf file kill-buffer file-exists-p delete-file] 2)) copy-to-buffer write-file set-file-modes 384 message nil "*gpg-verify-signature*" call-process t "--batch" "--no-tty" "--quiet" "--verify" flush-lines "^gpg: checking .*$" "^gpg: next trustdb .*$" toggle-read-only 1 display-buffer] 10])
(provide 'pgp)