@@ -40,10 +40,17 @@ (let* ((sspec (aref parsed 1)) (nick (substring (nth 0 (erc-parse-user sspec)) 1)) (tgt (car (aref parsed 4))) + (true-target (if (equal tgt (erc-current-nick)) + nick tgt)) (msg (aref parsed 5))) (when (string-match "\\(.+\\): PGP MESSAGE \\(.+\\)" msg) (when (equal (erc-current-nick) (match-string 1 msg)) - (print (decrypt (get-url-contents (match-string 2 msg)))))))) + (erc-display-message nil 'notice (find-buffer true-target) + (format "Message decrypts as: %s" + (decode-coding-string + (decrypt + (get-url-contents (match-string 2 msg))) + 'utf-8))))))) (add-hook 'erc-server-PRIVMSG-functions 'listen-for-gpg-message) erc-gpg.el bf0e8b71ad256e78cd04d4b7692ed6fc2e98839c Ben Duffield jebavarde@gmail.com http://github.com/bavardage/erc-gpg/commit/c37614e97fde1889483579ab405ee367b23aeb8b c37614e97fde1889483579ab405ee367b23aeb8b 2009-10-01T15:52:20-07:00 2009-10-01T15:52:20-07:00 Display decrypted message in the channel buffer fd5fe3f6f9c69e5392c7d75311f22118d25d7916 Ben Duffield jebavarde@gmail.com