bug#13264: 24.2.91; error when set plstore-cache-passphrase-for-symmetric-encryption to t

[Leo]

(setq plstore-cache-passphrase-for-symmetric-encryption t)
and start getting an error like this:

Debugger entered--Lisp error: (wrong-type-argument stringp #<buffer  plstore 
/Users/leo/.emacs.d/oauth2.plstore>)
  file-truename(#<buffer  plstore /Users/leo/.emacs.d/oauth2.plstore>)
  plstore-passphrase-callback-function((epg-context . [OpenPGP nil nil nil nil 
nil nil (plstore-passphrase-callback-function . [#<buffer  plstore 
/Users/leo/.emacs.d/oauth2.plstore> (("be779ce11027f97bfaca2c35afcb4c08" 
:secret-access-token t :secret-refresh-token t :secret-access-response t)) 
"-----BEGIN PGP MESSAGE-----\nVersion: GnuPG v1.4.12 
(Darwin)\n\njA0EAwMCllbjnrJDa/BgycAwvwmrdD/2GojxLAKvL6VZc/a2nVackxSi17RlISLY\nColDmOt9s91/6nhm73uiiUGgEvGKg8IsKd1jDiC70mPfaZYMqADi5tYMsGuEzCwP\nHbg2MBt+cie6kAaBO4+84/lWLY9ZN6bJ0LovTz7vpruSar0nXCdGJabp2tVwP/+j\nOJRmSdSZ562Hb5QSkQ9CuiotgJpPXHGuYaawxIFIAJMUDr+nhAR5ai9TE0ZLIJN6\nJE7qWVpGv3wxLFfgPuCiH+NYlIdPu/CUHq3b5QWmvSo6AerKSgrECWKZLVB4SKa1\nqfpfZPPo5YE0IKqI4rTyz0Y5\n=PmdM\n-----END
 PGP MESSAGE-----\n" nil (("be779ce11027f97bfaca2c35afcb4c08" 
:secret-access-token t :secret-refresh-token t :secret-access-response t))]) 
(plstore-progress-callback-function . "Decrypting 
/Users/leo/.emacs.d/oauth2.plstore") nil nil #<process epg> 
"/var/folders/mf/8_qnj_n146d0wxb32wdnb9jh0000gn/T/epg-output17499onV" nil 
decrypt]) SYM [#<buffer  plstore /Users/leo/.emacs.d/oauth2.plstore> 
(("be779ce11027f97bfaca2c35afcb4c08" :secret-access-token t 
:secret-refresh-token t :secret-access-response t)) "-----BEGIN PGP 
MESSAGE-----\nVersion: GnuPG v1.4.12 
(Darwin)\n\njA0EAwMCllbjnrJDa/BgycAwvwmrdD/2GojxLAKvL6VZc/a2nVackxSi17RlISLY\nColDmOt9s91/6nhm73uiiUGgEvGKg8IsKd1jDiC70mPfaZYMqADi5tYMsGuEzCwP\nHbg2MBt+cie6kAaBO4+84/lWLY9ZN6bJ0LovTz7vpruSar0nXCdGJabp2tVwP/+j\nOJRmSdSZ562Hb5QSkQ9CuiotgJpPXHGuYaawxIFIAJMUDr+nhAR5ai9TE0ZLIJN6\nJE7qWVpGv3wxLFfgPuCiH+NYlIdPu/CUHq3b5QWmvSo6AerKSgrECWKZLVB4SKa1\nqfpfZPPo5YE0IKqI4rTyz0Y5\n=PmdM\n-----END
 PGP MESSAGE-----\n" nil (("be779ce11027f97bfaca2c35afcb4c08" 
:secret-access-token t :secret-refresh-token t :secret-access-response t))])
  ............


BTW, why doesn't plstore-cache-passphrase-for-symmetric-encryption
default to epa-file-cache-passphrase-for-symmetric-encryption.

patch:

@@ -126,7 +126,7 @@
 
 (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))

Diff finished.  Mon Dec 24 17:31:44 2012