Use lexical binding.

[riece] / lisp / riece-epg.el

diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el
index 63c5997..2b8c415 100644 (file)
--- a/lisp/riece-epg.el
+++ b/lisp/riece-epg.el
@@ -1,4 +1,4 @@
-;;; 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>
@@ -109,8 +109,8 @@
     (riece-display-message
      (riece-make-message (riece-current-nickname) riece-current-channel
                         (concat "[encrypted:" string "]") nil t))
-    (let ((next-line-add-newlines t))
-      (next-line 1))))
+    (if (> (forward-line) 0)
+       (insert "\n"))))
 
 (defun riece-command-set-passphrase (identity passphrase)
   "Set PASSPHRASE associated with IDENTITY."
@@ -191,7 +191,7 @@
            :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))