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

["François Pinard" <pinard@iro.umontreal.ca>]

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