From: "Steven E. Harris" <seh@panix.com>
Subject: Re: authinfo/netrc file encryption status -- GnuPG
Date: Tue, 27 Jul 2004 11:12:23 -0700 [thread overview]
Message-ID: <jk4vfg9fhfc.fsf@W003275.na.alarismed.com> (raw)
In-Reply-To: <4noem1tmmp.fsf@lifelogs.com> (Ted Zlatanov's message of "27 Jul 2004 12:56:14 -0400")
"Ted Zlatanov" <tzz@lifelogs.com> writes:
> I don't use XEmacs, so thanks for catching that. Can I get your
> changes as a patch? If it's trivial don't worry about it.
It's just that one function name swap: `make-temp-name' rather than
`make-temp-file'. I'm not sure how you'd prefer to make that
conditional.
> I just wanted you to test the gnus-encrypt.el functions on their own
> and see if they work reliably for you.
So far I've just tested them using gpg with AES, and the
encrypt/decrypt functions work mostly as expected. I'm not sure why
the "current buffer" can't be read-only when calling
`gnus-encrypt-write-file-contents', though:
,----[ Encrypting a read-only buffer ]
| Signaling: (buffer-read-only #<buffer "new">)
| delete-region(1 158)
| (progn (delete-region (point-min) (point-max)) (goto-char (point-min)) (when passphrase (insert passphrase "\n")) (insert input) (setq exit-status (apply ... ... ... program t ... nil args)) (unless (equal exit-status 0) (setq exit-status nil) (when undo-if-error ... ... ...) (with-temp-buffer ... ...)))
| (if program (progn (delete-region ... ...) (goto-char ...) (when passphrase ...) (insert input) (setq exit-status ...) (unless ... ... ... ...)) (gnus-error 5 "GPG is not installed."))
| (let ((program gnus-encrypt-gpg-path) (old-buffer-string ...) (input ...) (temp-file ...) (default-enable-multibyte-characters nil) (args ...) exit-status) (when encode (setq args ...)) (if program (progn ... ... ... ... ... ...) (gnus-error 5 "GPG is not installed.")) exit-status)
| gnus-encrypt-gpg-process-buffer("xxx" "AES" t t)
| gnus-encrypt-gpg-encode-buffer("xxx" "AES" t)
| (setq status-ok (gnus-encrypt-gpg-encode-buffer passphrase cipher t))
| (cond ((eq method ...) (setq status-ok ...)) ((eq method ...) (setq status-ok ...)))
| (let* ((model ...) (method ...) (cipher ...) (contents ...) (passphrase ...) status-ok) (cond (... ...) (... ...)) (if status-ok (gnus-message 9 "%s was encrypted with %s (cipher %s)" file ... cipher) (gnus-error 5 "%s was NOT encrypted with %s (cipher %s)" file ... cipher)) (write-file file nil))
| gnus-encrypt-write-file-contents("~/.authinfo")
| eval((gnus-encrypt-write-file-contents "~/.authinfo"))
| edit-and-eval-command("Redo: " (toggle-debug-on-error nil) (command-history . 1))
| repeat-complex-command(1)
| call-interactively(repeat-complex-command)
`----
> See attached new version, I think that's OK now.
Yes, that looks more consistent now.
> So test the internal gnus-encrypt.el functions again, and if they
> work OK for you I'll add them to netrc.el so they're used
> automatically (based on the gnus-encrupt-file-alist contents).
They do work as advertised. Please let me know when you'd like me to
try out the netrc.el integration.
--
Steven E. Harris
next prev parent reply other threads:[~2004-07-27 18:12 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-07-21 18:25 Steven E.Harris
2004-07-23 16:22 ` Ted Zlatanov
2004-07-23 17:16 ` Steven E. Harris
2004-07-23 17:00 ` Ted Zlatanov
2004-07-23 21:39 ` Steven E. Harris
2004-07-27 16:56 ` Ted Zlatanov
2004-07-27 18:12 ` Steven E. Harris [this message]
2004-07-30 16:52 ` Ted Zlatanov
2004-08-02 23:06 ` Jeremy Maitin-Shepard
2004-08-03 17:09 ` Ted Zlatanov
[not found] ` <jk465858idw.fsf@W003275.na.alarismed.com>
[not found] ` <4n4qnl8mnw.fsf@lifelogs.com>
[not found] ` <jk4ekmp1iym.fsf@W003275.na.alarismed.com>
2004-08-03 17:11 ` Ted Zlatanov
2004-08-03 21:47 ` Steven E. Harris
2004-08-04 16:54 ` authinfo encryption through netrc.el works now (was: authinfo/netrc file encryption status -- GnuPG) Ted Zlatanov
2004-08-04 17:55 ` authinfo encryption through netrc.el works now Simon Josefsson
2004-08-05 22:09 ` Ted Zlatanov
2004-08-06 17:43 ` Ted Zlatanov
2004-08-06 18:07 ` Simon Josefsson
2004-08-04 18:37 ` Steven E. Harris
2004-08-05 22:05 ` Ted Zlatanov
2004-08-05 22:59 ` Steven E. Harris
2004-08-06 17:45 ` Ted Zlatanov
2004-08-06 18:18 ` Simon Josefsson
2004-08-06 21:57 ` Ted Zlatanov
2004-08-04 22:55 ` authinfo/netrc file encryption status -- GnuPG Steven E. Harris
2004-08-06 17:31 ` Ted Zlatanov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=jk4vfg9fhfc.fsf@W003275.na.alarismed.com \
--to=seh@panix.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).