;;; APA:
;;; crypt is already loaded by sample.init.el, therefor we have to
;;; force loading crypt++ and rebuild the tables here!
(setq crypt-encryption-type 'gpg
      ;; Won't work!
      crypt-encryption-file-extension "\\.gpg\\(\\.~[.0-9]+~\\)?$"
      ;; crypt-encryption-file-extension nil
      crypt-encrypted-disable-auto-save t
      crypt-encoded-disable-auto-save nil
      crypt-bind-insert-file nil
      crypt-decode-dos-p nil
      crypt-decode-mac-p nil
      crypt-freeze-vs-fortran nil)
;;; FIXME: this is awkward, but I don't have time to think about this
;;; (2004-03-30):
(if (locate-library "crypt++")
    (load "crypt++"))
(crypt-rebuild-tables)
(crypt-bind-insert-file)
;; Needed, since setting crypt-encryption-file-extension in setq above
;; won't work.
(modify-coding-system-alist 'file "\\.gpg\\(\\.~[.0-9]+~\\)?$" 'binary)
; Cannot read in encrypted files without following line:
(modify-coding-system-alist 'process "gpg" 'binary)
; Cannot perform M-x ediff-revision on encrypted files without
; following line:

(setq crypt-auto-write-buffer t)
(setq crypt-no-extension-implies-plain nil)

I forgot the crucial line after following comment on the original paste:

; Cannot perform M-x ediff-revision on encrypted files without
; following line:
(modify-coding-system-alist 'process "cvs" 'binary)

This is useful for CVS controlled gpg files, of which I have a few.

Adrian