--- pgg-gpg.el 02 Mar 2007 00:43:33 +0100 7.27 +++ pgg-gpg.el 12 Mar 2007 18:24:20 +0100 @@ -120,7 +120,7 @@ (beginning-of-line) (while (looking-at ".*\n") ;the input line is finished (save-excursion - (if (looking-at "\\[GNUPG:] \\([A-Z_]+\\)\\>.*") + (if (looking-at "\\[GNUPG:] \\([A-Z_]+\\)\\> ?\\(.*\\)") (let* ((status (match-string 1)) (symbol (intern-soft (concat "pgg-gpg-status-" status)))) @@ -128,8 +128,12 @@ (setq pgg-gpg-pending-status-list nil)) (if (and symbol (fboundp symbol)) - (funcall symbol process (buffer-substring - (match-beginning 1) - (match-end 0))))))) + (funcall symbol process + ;; Status value is in UTF-8. + (decode-coding-string + (encode-coding-string + (match-string 2) + (car (process-coding-system process))) + 'utf-8)))))) (forward-line)) (setq pgg-gpg-read-point (point)))))