lisp/gnus/plstore.el (plstore-passphrase-callback-function): Fix error when

  error when plstore-cache-passphrase-for-symmetric-encryption is set
  (bug#13264).

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2916b40df29e54a29bf08c7dcfbe68e7c783d5b4..46b311b7e03a780c22901a94c1b22d9b8faf8192 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-25  Leo Liu  <sdl.web@gmail.com>
+
+       * plstore.el (plstore-passphrase-callback-function): Fix error when
+       error when plstore-cache-passphrase-for-symmetric-encryption is set
+       (bug#13264).
+
 2012-12-25  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-set-global-variables): Don't copy over the summary

diff --git a/lisp/gnus/plstore.el b/lisp/gnus/plstore.el
index 6d5424e833d6964caa73e08450c67fa7a6da9f89..f130bfca853d5dd36898b42f185f08f7c22c99b2 100644 (file)
--- a/lisp/gnus/plstore.el
+++ b/lisp/gnus/plstore.el
@@ -126,7 +126,8 @@ 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 (plstore--get-buffer plstore)))
+      (let* ((file (file-truename (buffer-file-name
+                                  (plstore--get-buffer plstore))))
             (entry (assoc file plstore-passphrase-alist))
             passphrase)
        (or (copy-sequence (cdr entry))