GNU bug report logs - #49115
Mumi inserts spurious underscore in bug title

Previous Next

Full log

Message #28 received at 49115-done <at> debbugs.gnu.org (full text, mbox):

From: Arun Isaac <arunisaac <at> systemreboot.net>
To: Ricardo Wurmus <rekado <at> elephly.net>
Cc: Arun Isaac <arunisaac <at> systemreboot.net>, 49115-done <at> debbugs.gnu.org,
 guile-email <at> systemreboot.net
Subject: [PATCH 1/1] debbugs: Do not check for MIME encoded words in subject.
Date: Mon,  2 Jan 2023 17:43:12 +0000

guile-email transparently handles MIME encoded words. We do not have
to check for them.

* mumi/debbugs.scm (bug-status): Do not check for MIME encoded words
in subject.
---
 mumi/debbugs.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/mumi/debbugs.scm b/mumi/debbugs.scm
index 16bff8e..7e95ddf 100644
--- a/mumi/debbugs.scm
+++ b/mumi/debbugs.scm
@@ -1,5 +1,6 @@
 ;;; mumi -- Mediocre, uh, mail interface
 ;;; Copyright © 2020 Ricardo Wurmus <rekado <at> elephly.net>
+;;; Copyright © 2023 Arun Isaac <arunisaac <at> systemreboot.net>
 ;;;
 ;;; This program is free software: you can redistribute it and/or
 ;;; modify it under the terms of the GNU Affero General Public License
@@ -280,10 +281,10 @@ defaults to 30 days."
                      (assoc-ref properties "Submitter")
                      (assoc-ref properties "Owner")
                      (or (assoc-ref properties "Severity") "normal")
-                     (let ((subject (or (assoc-ref properties "Subject") "")))
-                       (if (string-contains subject "=?UTF-8?Q?")
-                           (match (parse-email-headers (string-append "Subject: " subject "\n"))
-                             ((('subject . sub) . rest) sub)
-                             (other subject))
-                           subject))
+                     (assq-ref
+                      (parse-email-headers
+                       (string-append "Subject: "
+                                      (or (assoc-ref properties "Subject") "")
+                                      "\n"))
+                      'subject)
                      (assoc-ref properties "Tags"))))
-- 
2.38.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.