plstore.el (plstore-passphrase-callback-function): Use plstore-get-file

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index deda362..b9c6633 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-27  Glenn Morris  <rgm@gnu.org>
+
+       * plstore.el (plstore-passphrase-callback-function):
+       Use plstore-get-file.
+
 2012-12-27  Andreas Schwab  <schwab@linux-m68k.org>
 
        * mml2015.el (mml2015-epg-key-image): separate attribute stream from

diff --git a/lisp/plstore.el b/lisp/plstore.el
index f130bfc..b428cab 100644 (file)
--- a/lisp/plstore.el
+++ b/lisp/plstore.el
@@ -126,8 +126,7 @@ symmetric encryption will be used.")
 
 (defun plstore-passphrase-callback-function (_context _key-id plstore)
   (if plstore-cache-passphrase-for-symmetric-encryption
-      (let* ((file (file-truename (buffer-file-name
-                                  (plstore--get-buffer plstore))))
+      (let* ((file (file-truename (plstore-get-file plstore)))
             (entry (assoc file plstore-passphrase-alist))
             passphrase)
        (or (copy-sequence (cdr entry))