TinyPGP/TM

TinyPGP/TM

[Thomas Hungenberg]

Hello!

Yesterday I decided to try tinypgp because I was tired of using the
PGP implementation of TM, so I fetched tiny-tools.tar.gz from
ftp://cs.uta.fi/pub/ssjaaa/ and compiled/installed it.

Unfortunately I had to realize that neither this package nor the
ftp-directory (as said in the documentation) contained the files
"tm-edit-tipgp.el" and "tm-tipgp-setup.el" for plugging tipgp into TM.
:-((

I found a package "tm-tipgp-1.122.tar.gz" with these files on some
ftp-servers but they seem to be rather too old because the version of
tinypgp I installed is 2.101 and does not contain some functions
needed by the old tm-tipgp-setup.el.

Where can I find a recent version of the two tm-tipgp-*.els which work
with tinypgp 2.101 ?!


      - Thomas

--
Thomas Hungenberg -- Student of Applied Computer Science
Private homepage: http://home.pages.de/~th/ -- ICQ-UIN: #3294439
PGP encrypted mail welcome! -- PGP-Public-Key on my homepage!

PGP with Gnus [was: Re: TinyPGP/TM]

[François Pinard]

Thomas Hungenberg <th@hansa.rhein.de> writes:

> Where can I find a recent version of the two tm-tipgp-*.els which work
> with tinypgp 2.101 ?!

Hello, Thomas.  I know I'm not really replying to your question, but I'm
nevertheless trying to be useful.  I'm using `mailcrypt.el' with PGP 5.0 and
it works rather well for me.  According to my notes (hopefully up-to-date :-)

   http://www.nb.net/~lbudney/linux/software/mailcrypt/mailcrypt-3.5b7.tar.gz

and installation was quite straightforward, no patch needed.

I use the same configuration files on a few different machines (and some
friends also use my files :-), so I gave myself a bit of portability.
Here is my PGP related `.bash_login' stuff:

---------------------------------------------------------------------->
setprog ()
{
  saveifs="$IFS"; IFS="$IFS:"
  for dir in $PATH; do
    if test -z "$dir"; then
      dir=`pwd`
    fi
    if test -x $dir/$2; then
      setenv $1 $dir/$2
      break
    fi
  done
  IFS="$saveifs"
}

setprog PGP pgp
# If we have `pgpe', then we have PGP5.
setprog PGPE pgpe
----------------------------------------------------------------------<

Here is my related `.emacs' stuff:

---------------------------------------------------------------------->
(unless (boundp 'PGP) (setq PGP (getenv "PGP")))

;;;; `Mailcrypt' mode.

(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(autoload 'mc-sign-message "mc-toplev")

(setq mc-always-replace t
      mc-pgp-always-sign t
      mc-pgp-path PGP
      mc-read-mode-string ""
      mc-write-mode-string "")

(when PGP
  (add-hook 'rmail-mode-hook 'mc-install-read-mode)
  (add-hook 'rmail-summary-mode-hook 'mc-install-read-mode)
  (when (getenv "PGPE")
    (eval-after-load "mailcrypt"
      '(mc-setversion "pgp50")))
  (eval-after-load "sendmail"
    '(add-hook 'mail-mode-hook 'mc-install-write-mode))
  (eval-after-load "message"
    '(add-hook 'message-mode-hook 'mc-install-write-mode))
  (eval-after-load "gnus-sum"
    '(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)))
----------------------------------------------------------------------<

Here is my `.gnus' related stuff:

---------------------------------------------------------------------->
(setq ;; [...]
      gnus-treat-strip-pgp t)

(add-hook 'gnus-article-hide-pgp-hook
	  (lambda ()
	    (save-excursion
	      (set-buffer gnus-original-article-buffer)
	      (mc-verify))))
----------------------------------------------------------------------<

My only problem with this, so far, is that it does not snarf keys (it does
not extract keys from messages to put them on my key ring).

Oh, there is another optional bit about interactively deciding how I sign
each message.  Here it is, for completeness.

---------------------------------------------------------------------->
(defconst fp-signature-type
  (cond ((member user-login-name '("bourbeau" "payette" "pinard")) 'ask)
	(t 'clear))
  "Possible values are 'clear, 'pgp, 'none or 'ask.")

(defun fp-sign-message ()
  (let* ((request (if PGP "Signature (c-clear, p-pgp, n-none)? [c] "
		    "Signature (y/n)? [y] "))
	 (replies (if PGP '((?c . clear) (?p . pgp) (?n . none)
			    (?y . clear) (?  . clear) (?\C-m . clear))
		    '((?y . clear) (?n . none)
		      (?c . clear) (?  . clear) (?\C-m . clear))))
	 (signature-type (if (eq fp-signature-type 'ask)
			     (let ((cursor-in-echo-area t)
				   (reply 0))
			       (while (not (assq reply replies))
				 (message request)
				 (setq reply (read-char-exclusive)))
			       (cdr (assq reply replies)))
			   fp-signature-type)))
    (cond ((eq signature-type 'clear) (mail-signature nil))
	  ((eq signature-type 'pgp) (mc-sign-message)))))

(defun fp-mail-send-routine ()
  ;; [...]
  (or mail-signature (fp-sign-message)))

(defun fp-message-send-routine ()
  ;; [...]
  (or message-signature (fp-sign-message))
  ;; [...]
  )

(eval-after-load "sendmail"
  '(progn
     ;; [...]
     (add-hook 'mail-send-hook 'fp-mail-send-routine)))

(eval-after-load "message"
  '(progn
     ;; [...]
     (add-hook 'message-send-hook 'fp-message-send-routine)))
----------------------------------------------------------------------<

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard

Re: PGP with Gnus [was: Re: TinyPGP/TM]

[Stainless Steel Rat]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

* François Pinard <pinard@iro.umontreal.ca>  on Sun, 14 Mar 1999
|    http://www.nb.net/~lbudney/linux/software/mailcrypt/mailcrypt-3.5b7.tar.gz

Not up to date.  Mailcrypt 3.5.1 is more recent, and is a full release.

| I use the same configuration files on a few different machines (and some
| friends also use my files :-), so I gave myself a bit of portability.
| Here is my PGP related `.bash_login' stuff:

Ummm... try the Emacs-Lisp variable mc-default-scheme, which can be set
with something a bit more simply straight from Emacs-Lisp:

(cond ((locate-file "gpg" exec-path)
       (setq mc-default-scheme 'mc-scheme-gpg))
      ((locate-file "pgpe" exec-path)
       (setq mc-default-scheme 'mc-scheme-pgp5))
      ((locate-file "pgp" exec-path)
       (setq mc-default-scheme 'mc-scheme-pgp))
      )
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v0.9.4 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE267vOgl+vIlSVSNkRAil5AJ9dQLnEx7LSwwSd/ND9uFvGSA78YQCgt2RZ
UyMUcfGD4IbJpLHHX5DZn+M=
=/PP3
-----END PGP SIGNATURE-----

-- 
Rat <ratinox@peorth.gweep.net>    \ Ingredients of Happy Fun Ball include an
Minion of Nathan - Nathan says Hi! \ unknown glowing substance which fell to
PGP Key: at a key server near you!  \ Earth, presumably from outer space.

Re: PGP with Gnus [was: Re: TinyPGP/TM]

[François Pinard]

Stainless Steel Rat <ratinox@peorth.gweep.net> écrit [many good things].

Thanks for your feedback!  (I'm hesitant to call you either Stainless or Rat.
I'm a bit old fashioned, presumably :-).

> (cond ((locate-file "gpg" exec-path)

It would be nice, indeed, but there is no such `locate-file' function here,
on this Emacs 20.3.6 pretest.

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard

Re: PGP with Gnus [was: Re: TinyPGP/TM]

[Stainless Steel Rat]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

* François Pinard <pinard@iro.umontreal.ca>  on Sun, 14 Mar 1999
| Thanks for your feedback!  (I'm hesitant to call you either Stainless or
| Rat.  I'm a bit old fashioned, presumably :-).

Rat is all right.

| It would be nice, indeed, but there is no such `locate-file' function
| here, on this Emacs 20.3.6 pretest.

Hmmm... locate-file is probably an XEmacsism, then.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v0.9.4 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE27F1Rgl+vIlSVSNkRAhJTAKC9I8EySM9YXZ//dvpZZ86Qpt9eGACfXdWC
jggxjIYzDWoMAZzz43IS7J4=
=htgO
-----END PGP SIGNATURE-----

-- 
Rat <ratinox@peorth.gweep.net>    \ Warning: pregnant women, the elderly, and
Minion of Nathan - Nathan says Hi! \ children under 10 should avoid prolonged
PGP Key: at a key server near you!  \ exposure to Happy Fun Ball.

Re: PGP with Gnus [was: Re: TinyPGP/TM]

[Edward J. Sabol]

Excerpts from mail: (14-Mar-99) Re: PGP with Gnus [was: Re: TinyPGP/TM] by =?ISO-8859-1?Q?Fran=E7ois Pinard?=
>> (cond ((locate-file "gpg" exec-path)
>
> It would be nice, indeed, but there is no such `locate-file' function here,
> on this Emacs 20.3.6 pretest.

In Emacs, I believe you can use the following instead:

(require 'executable)
(cond ((executable-find "gpg")
       ...))

Hope this helps.

Later,
Ed

Re: PGP with Gnus [was: Re: TinyPGP/TM]

[François Pinard]

Stainless Steel Rat <ratinox@peorth.gweep.net> écrit:

> | I use the same configuration files on a few different machines (and some
> | friends also use my files :-), so I gave myself a bit of portability.
> | Here is my PGP related `.bash_login' stuff:

> Ummm... try the Emacs-Lisp variable mc-default-scheme, which can be set
> with something a bit more simply straight from Emacs-Lisp:

> (cond ((locate-file "gpg" exec-path)
>        (setq mc-default-scheme 'mc-scheme-gpg))
>       ((locate-file "pgpe" exec-path)
>        (setq mc-default-scheme 'mc-scheme-pgp5))
>       ((locate-file "pgp" exec-path)
>        (setq mc-default-scheme 'mc-scheme-pgp))
>       )

"Edward J. Sabol" <sabol@alderaan.gsfc.nasa.gov> writes:

> > It would be nice, indeed, but there is no such `locate-file' function
> > here, on this Emacs 20.3.6 pretest.

> In Emacs, I believe you can use the following instead:

> (require 'executable)
> (cond ((executable-find "gpg")
>        ...))

> Hope this helps.

Hi, people.  Yes it did, thanks to both of you.  Here is what I'm going
to try (will test it for real once back home :-).



(if (fboundp 'locate-file)
    (defun executable-find (command)
      (locate-file command exec-path))
  (autoload 'executable-find "executable"))

(unless (boundp 'PGP) (setq PGP (or (executable-find "pgp")
				    (executable-find "gpg"))

(when PGP
  (eval-after-load "mailcrypt"
    '(mc-setversion (cond ((executable-find "gpg") "gpg")
			  ((executable-find "pgpe") "5.0")
			  ((executable-find "pgp") "2.6")))))

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard