From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/22787 Path: main.gmane.org!not-for-mail From: =?ISO-8859-1?Q?Fran=E7ois_Pinard?= Newsgroups: gmane.emacs.gnus.general Subject: Re: PGP with Gnus [was: Re: TinyPGP/TM] Date: 23 Apr 1999 19:49:11 -0400 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 1035160643 31157 80.91.224.250 (21 Oct 2002 00:37:23 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:37:23 +0000 (UTC) Cc: Forum of ding/Gnus users Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id TAA17155 for ; Fri, 23 Apr 1999 19:51:40 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id SAB17910; Fri, 23 Apr 1999 18:50:58 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 23 Apr 1999 18:51:13 -0500 (CDT) 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 SAA29503 for ; Fri, 23 Apr 1999 18:51:03 -0500 (CDT) 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 TAA17135 for ; Fri, 23 Apr 1999 19:50:55 -0400 (EDT) Original-Received: by jupiter.rtsq.qc.ca (8.8.8/8.8.8) id TAA13544; Fri, 23 Apr 1999 19:49:11 -0400 Original-To: Stainless Steel Rat , "Edward J. Sabol" 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 é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" 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