From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/21894 Path: main.gmane.org!not-for-mail From: =?ISO-8859-1?Q?Fran=E7ois_Pinard?= Newsgroups: gmane.emacs.gnus.general Subject: PGP with Gnus [was: Re: TinyPGP/TM] Date: 14 Mar 1999 08:14:17 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035159915 25318 80.91.224.250 (21 Oct 2002 00:25:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:25:15 +0000 (UTC) Cc: Gnus Mailing List Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id IAA01551 for ; Sun, 14 Mar 1999 08:17:13 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id HAB11251; Sun, 14 Mar 1999 07:16:32 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 14 Mar 1999 07:16:59 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id HAA04878 for ; Sun, 14 Mar 1999 07:16:49 -0600 (CST) Original-Received: from jupiter.rtsq.qc.ca (rtsq.grics.qc.ca [199.84.132.81]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id IAA01545 for ; Sun, 14 Mar 1999 08:16:39 -0500 (EST) Original-Received: from ariel.progiciels-bpi.ca by jupiter.rtsq.qc.ca (8.8.8/8.8.8) with SMTP id IAA11623; Sun, 14 Mar 1999 08:15:06 -0500 Original-Received: from iro.umontreal.ca (uucp@localhost) by ariel.progiciels-bpi.ca (950413.SGI.8.6.12/950213.SGI) via UUCP id IAA15191; Sun, 14 Mar 1999 08:17:17 -0800 Original-Received: from titan.progiciels-bpi.ca.progiciels-bpi.ca by icule.progiciels-bpi.ca (8.8.8/8.8.8) with ESMTP id IAA01412; Sun, 14 Mar 1999 08:14:23 -0500 Original-To: Thomas Hungenberg X-Face: "b_m|CE6#'Q8fliQrwHl9K,]PA_o'*S~Dva{~b1n*)K*A(BIwQW.:LY?t4~xhYka_.LV?Qq `}X|71X0ea&H]9Dsk!`kxBXlG;q$mLfv_vtaHK_rHFKu]4'<*LWCyUe@ZcI6"*wB5M@[m 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