-;;; riece-epg.el --- Encrypt/decrypt messages add-on
+;;; riece-epg.el --- Encrypt/decrypt messages add-on -*- lexical-binding: t -*-
;; Copyright (C) 2006 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(autoload 'epg-encrypt-string "epg")
(autoload 'epg-passphrase-callback-function "epg")
(autoload 'epg-context-set-passphrase-callback "epg")
+(autoload 'epg-cancel "epg")
(eval-when-compile
(autoload 'riece-command-send-message "riece-commands"))
t)))
(riece-display-message
(riece-make-message (riece-current-nickname) riece-current-channel
- (concat "[decrypted:" string "]") nil t))
- (let ((next-line-add-newlines t))
- (next-line 1))))
+ (concat "[encrypted:" string "]") nil t))
+ (if (> (forward-line) 0)
+ (insert "\n"))))
(defun riece-command-set-passphrase (identity passphrase)
"Set PASSPHRASE associated with IDENTITY."
(progn
(riece-message-set-text
message
- (format "[decrypted:%s]"
+ (format "[encrypted:%s]"
(riece-epg-decrypt-string-for-identity
context string (riece-message-target message)))))
(error
:notify #'riece-epg-encrypted-button-notify
(get-text-property start 'riece-epg-encryption-target)))))))
-(defun riece-epg-encrypted-button-notify (widget &rest ignore)
+(defun riece-epg-encrypted-button-notify (widget &rest _ignore)
(let* ((from (marker-position (widget-get widget :from)))
(to (marker-position (widget-get widget :to)))
(target (widget-get widget :value))
(delete-region from to)
(save-excursion
(goto-char from)
- (insert "[decrypted:" plain "]")))))
+ (insert "[encrypted:" plain "]")))))
(defun riece-epg-requires ()
(if (memq 'riece-button riece-addons)