From 5764b5f676b5873d5f36f218e744f446d0dcf7f9 Mon Sep 17 00:00:00 2001 From: Jake Coble Date: Sat, 7 Jun 2025 18:26:53 -0400 Subject: Don't swallow last character when splitting lines. * varuga.el (varuga-insert-calendar-line): Don't swallow last character when splitting lines. * varuga-tests.el (line-limit-does-not-eat-characters): New test. Signed-off-by: Arun Isaac --- varuga.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'varuga.el') diff --git a/varuga.el b/varuga.el index 4010482..0c5070c 100644 --- a/varuga.el +++ b/varuga.el @@ -2,6 +2,7 @@ ;; Send ical calendar invites by email ;; Copyright © 2024 Arun Isaac +;; Copyright © 2025 Jake Coble ;; ;; Author: Arun Isaac ;; Version: 0.1.0 @@ -88,13 +89,12 @@ KEY is the name of the ical property and VALUE is its value." (next-octets (+ octets-so-far (string-bytes str)))) (if (< next-octets maximum-octets-per-line) - (progn - (insert str) - (setq octets-so-far next-octets)) + (setq octets-so-far next-octets) (insert "\n ") - ;; Set octets so far to 1 to account for the - ;; folding space. - (setq octets-so-far 1)))) + ;; Add an extra 1 to octets so far to account for + ;; the folding space. + (setq octets-so-far (1+ (string-bytes str)))) + (insert str))) (format "%s:%s" (upcase (symbol-name key)) value))) -- cgit v1.2.3