Index: epa-file.el
===================================================================
RCS file: /cvs/root/epg/epa-file.el,v
retrieving revision 1.59
diff -w -u -r1.59 epa-file.el
--- epa-file.el	5 Feb 2008 06:31:24 -0000	1.59
+++ epa-file.el	6 Feb 2008 02:45:51 -0000
@@ -105,6 +105,8 @@
 (defun epa-file-passphrase-callback-function (context key-id file)
   (if (and epa-file-cache-passphrase-for-symmetric-encryption
 	   (eq key-id 'SYM))
+      (progn
+	(setq file (file-truename file))
       (let ((entry (assoc file epa-file-passphrase-alist))
 	    passphrase)
 	(or (copy-sequence (cdr entry))
@@ -116,7 +118,7 @@
 	      (setq passphrase (epa-passphrase-callback-function context
 								 key-id nil))
 	      (setcdr entry (copy-sequence passphrase))
-	      passphrase)))
+		passphrase))))
     (epa-passphrase-callback-function context key-id nil)))
 
 (defun epa-file-handler (operation &rest args)