Re: Encrypting outgoing message but not Gcc?

[Lloyd Zusman <ljz@asfast.com>]

[-- Attachment #1: Type: text/plain, Size: 666 bytes --]

Lloyd Zusman <ljz@asfast.com> writes:

> [ ... ]
>
> I was wondering why this option didn't work for me, and I found the code
> below in yesterday's CVS.  Notice that it makes my user ID known to gpg
> by means of the `--remote-user' option.  However, this option is no
> longer used in recent versions of gpg ... it's been replaced with
> `--recipient'.
>
> I think that we need a configuration variable that allows us to specify
> one or the other of these option flags, so that the code can be made to
> work with both older and newer versions of gpg.

Here's a patch for this.  What do you folks think?  If it's suitable,
feel free to apply it to CVS.

Thanks.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: recipient/remote-user option choice --]
[-- Type: text/x-patch, Size: 1025 bytes --]

*** pgg-gpg.el.orig	Sun Dec  7 09:09:01 2003
--- pgg-gpg.el	Sun Dec  7 10:11:05 2003
***************
*** 43,48 ****
--- 43,54 ----
    :group 'pgg-gpg
    :type '(repeat (string :tag "Argument")))
  
+ (defcustom pgg-gpg-recipient-arg "--recipient"
+   "Recipient option for gpg."
+   :group 'pgg-gpg
+   :type '(choice (const :tag "New `--recipient' option" "--recipient")
+                  (const :tag "Old `--remote-user' option" "--remote-user")))
+ 
  (defvar pgg-gpg-user-id nil
    "GnuPG ID of your default identity.")
  
***************
*** 154,160 ****
  	   (if recipients
  	       (apply #'nconc
  		      (mapcar (lambda (rcpt)
! 				(list "--remote-user" rcpt))
  			      (append recipients
  				      (if pgg-encrypt-for-me
  					  (list pgg-gpg-user-id)))))))))
--- 160,166 ----
  	   (if recipients
  	       (apply #'nconc
  		      (mapcar (lambda (rcpt)
! 				(list pgg-gpg-recipient-arg rcpt))
  			      (append recipients
  				      (if pgg-encrypt-for-me
  					  (list pgg-gpg-user-id)))))))))

[-- Attachment #3: Type: text/plain, Size: 36 bytes --]



-- 
 Lloyd Zusman
 ljz@asfast.com