From: Leo Liu Date: Tue, 25 Dec 2012 22:23:10 +0000 (+0000) Subject: lisp/gnus/plstore.el (plstore-passphrase-callback-function): Fix error when X-Git-Tag: emacs-24.3.90~173^2~7^2~493 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecfb998c179b004f515b0c4d8e98d53811a3b12a;p=emacs.git 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 2916b40df29..46b311b7e03 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2012-12-25 Leo Liu + + * 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 * 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 6d5424e833d..f130bfca853 100644 --- 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))