I saw the recent update of bbdb-pgp.el and noticed that those user variables were defvar's instead of defcustom's. So I just couldn't help myself...
BBDB patch: ChangeLog files diff command: cvs -q diff -U 0 Files affected: ChangeLog Source files diff command: cvs -q diff -uN Files affected: bits/bbdb-pgp.el Index: ChangeLog =================================================================== RCS file: /cvsroot/bbdb/bbdb/ChangeLog,v retrieving revision 2.147 diff -u -U0 -r2.147 ChangeLog --- ChangeLog 19 Aug 2002 23:23:34 -0000 2.147 +++ ChangeLog 19 Oct 2002 12:22:24 -0000 @@ -0,0 +1,7 @@ +2002-10-19 Steve Youngs <[EMAIL PROTECTED]> + + * bits/bbdb-pgp.el (bbdb-utilities-pgp): New. + (bbdb/pgp-field): defvar -> defcustom. + (bbdb/pgp-method): Ditto. + (bbdb/pgp-default-action): Ditto. + Index: bits/bbdb-pgp.el =================================================================== RCS file: /cvsroot/bbdb/bbdb/bits/bbdb-pgp.el,v retrieving revision 1.2 diff -u -u -r1.2 bbdb-pgp.el --- bits/bbdb-pgp.el 18 Oct 2002 10:54:34 -0000 1.2 +++ bits/bbdb-pgp.el 19 Oct 2002 12:22:03 -0000 @@ -105,23 +105,50 @@ Report bugs to: Kevin Davidson [EMAIL PROTECTED]") -(defvar bbdb/pgp-field 'pgp-mail +;;;###autoload +(defgroup bbdb-utilities-pgp nil + "Automatically sign and/or encrypt outgoing messages." + :link '(emacs-library-link :tag "Lisp Source File" "bbdb-pgp.el") + :group 'bbdb-utilities) + + +(defcustom bbdb/pgp-field 'pgp-mail "*Field to use in BBDB to store PGP preferences. + If this field's value in a record is \"encrypt\" then messages are -encrypted. If it is \"sign\" then messages are signed.") +encrypted. If it is \"sign\" then messages are signed." + :type 'symbol + :tag "BBDB Field" + :require 'bbdb + :group 'bbdb-utilities-pgp) -(defvar bbdb/pgp-method 'mailcrypt +(defcustom bbdb/pgp-method 'mailcrypt "*How to sign or encrypt messages. + 'mailcrypt means use Mailcrypt. 'mml-pgp means add MML tags for Message to use old PGP format 'mml-pgpmime means add MML tags for Message to use PGP/MIME -'mml-smime means add MML tags for Message to use S/MIME") +'mml-smime means add MML tags for Message to use S/MIME" + :type '(choice + (const :tag "Mailcrypt" mailcrypt :require 'mailcrypt) + (const :tag "MML PGP" mml-pgp :require 'mml) + (const :tag "MML PGP/MIME" mml-pgpmime :require 'mml) + (const :tag "MML S/MIME" mml-smime :require 'mml)) + :tag "Signing/Encryption Method" + :group 'bbdb-utilities-pgp) -(defvar bbdb/pgp-default-action nil +(defcustom bbdb/pgp-default-action nil "*Default action when sending a message and the recipient is not in BBDB. + nil means do nothing. 'encrypt means encrypt message. -'sign means sign message.") +'sign means sign message." + :type '(choice + (const :tag "Do Nothing") + (const :tag "Encrypt" encrypt) + (const :tag "Sign" sign)) + :tag "Default Action" + :group 'bbdb-utilities-pgp) (defun bbdb/pgp-get-pgp (name address) "Look up user NAME and ADDRESS in BBDB and return the PGP preference." -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------<[EMAIL PROTECTED]>---| ------------------------------------------------------- This sf.net email is sponsored by: Access Your PC Securely with GoToMyPC. Try Free Now https://www.gotomypc.com/s/OSND/DD _______________________________________________ [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/
