[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#49115: [PATCH 1/1] debbugs: Do not check for MIME encoded words in s
From: |
Arun Isaac |
Subject: |
bug#49115: [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@elephly.net>
+;;; Copyright © 2023 Arun Isaac <arunisaac@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