XEmacs doesn't have temporary-file-directory.

diff --git a/epg.el b/epg.el
index 16005c3..c25de81 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1195,7 +1195,10 @@ of PREFIX, and expanding against `temporary-file-directory' if necessary),
 is guaranteed to point to a newly created empty file.
 You can then use `write-region' to write new data into the file."
     (let (tempdir tempfile)
-      (setq prefix (expand-file-name prefix temporary-file-directory))
+      (setq prefix (expand-file-name prefix
+                                    (if (featurep 'xemacs)
+                                        (temp-directory)
+                                      temporary-file-directory)))
       (unwind-protect
          (let (file)
            ;; First, create a temporary directory.