pgg-remove-passphrase-cache

[中川 誠]

中川＠コンパック(株)です。

emiko-1_13-199911260630 を利用しています。

pgg-remove-passphrase-cache の中で (intern key pgg-passphrase-cache) を
実行していますが、ここは (intern-soft key pgg-passphrase-cache) でないと
まずいのではないでしょうか。

passphrase-cache にパスワードが残っている状態で何度か署名をおこなうと、
pgg-add-passphrase-cache が複数回呼ばれるために、結果として
pgg-remove-passphrase-cache が複数回呼ばれてしまう事態が発生するのだと想
像しています。

私は (setq pgg-passphrase-cache-expiry 600) として使用しているのですが、
時どき

Symbol's value as variable is void: 2DB01EE9

というエラーが出て、署名できなくなります。そうなった時のバックトレースも
添付いたします。

# 何故これまではこの現象に遭遇しなかったのかが謎なのですが．．．。

-------------- next part --------------
Signaling: (void-variable 2DB01EE9)
  symbol-value(2DB01EE9)
  (and pgg-cache-passphrase key (setq key (pgg-truncate-key-identifier key)) (symbol-value (intern-soft key pgg-passphrase-cache)))
  (or (and pgg-cache-passphrase key (setq key ...) (symbol-value ...)) (funcall pgg-read-passphrase prompt))
  pgg-read-passphrase("PGP passphrase for 0x2DB01EE9: " "2DB01EE9")
  (let* ((pgg-pgp-user-id ...) (passphrase ...) (comment ...) (args ...)) (pgg-pgp-process-region start end passphrase pgg-pgp-program args) (pgg-process-when-success (goto-char ...) (when ... ...)))
  (lambda (scheme start end &optional clearsign) (let* (... ... ... ...) (pgg-pgp-process-region start end passphrase pgg-pgp-program args) (pgg-process-when-success ... ...)))([pgg-scheme-pgp [0 0 0 0 0 0 0]] 166 1647 nil)
  apply((lambda (scheme start end &optional clearsign) (let* (... ... ... ...) (pgg-pgp-process-region start end passphrase pgg-pgp-program args) (pgg-process-when-success ... ...))) ([pgg-scheme-pgp [0 0 0 0 0 0 0]] 166 1647 nil))
  luna-send([pgg-scheme-pgp [0 0 0 0 0 0 0]] sign-region [pgg-scheme-pgp [0 0 0 0 0 0 0]] 166 1647 nil)
  (save-restriction (narrow-to-region start end) (luna-send entity (quote sign-region) entity (point-min) (point-max) (or ... cleartext)))
  (if (interactive-p) (let (...) (with-temp-buffer ...)) (save-restriction (narrow-to-region start end) (luna-send entity ... entity ... ... ...)))
  (pgg-save-coding-system start end (luna-send entity (quote sign-region) entity (point-min) (point-max) (or ... cleartext)))
  (let* ((entity ...) (status ...)) (when (interactive-p) (pgg-display-output-buffer start end status)) status)
  pgg-sign-region(166 1647)
  (let ((pgg-default-user-id ...)) (pgg-sign-region (point-min) (point-max)))
  (or (let (...) (pgg-sign-region ... ...)) (throw (quote mime-edit-error) (quote pgp-error)))
  (let* ((from ...) (ret ...) (ctype ...) (encoding ...) (pgp-boundary ...) micalg) (goto-char beg) (insert (format "Content-Type: %s\n" ctype)) (if encoding (insert ...)) (insert "\n") (or (let ... ...) (throw ... ...)) (setq micalg (cdr ...) micalg (if micalg ... "")) (goto-char beg) (insert (format "
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         multipart/signed
サイズ:     3744 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/19991130/2cc0fdfc/attachment.bin>
-------------- next part --------------
-- 
/***   Compaq Computer K.K.                        ***/
/***   Network and Systems Integration Servieces   ***/
/***   Nakagawa, Makoto（中川　誠）                ***/
/*  F6 E1 41 25 49 DF A8 82  D4 94 4F 0C 95 6B D7 57 */
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     364 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/19991130/2cc0fdfc/attachment.pgp>