diff options
| author | Arun Isaac <arunisaac@systemreboot.net> | 2023-01-02 17:43:12 +0000 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2023-01-02 20:34:44 +0100 |
| commit | 80b6ef81d4a913a52fbed2eb0ec1db0871114fe3 (patch) | |
| tree | 0fb441efbed0a8015d0c84c296a1dba07e9186af | |
| parent | b2a8280f158957e18d714dea78637f6504dd7613 (diff) | |
debbugs: Do not check for MIME encoded words in subject.
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.
| -rw-r--r-- | mumi/debbugs.scm | 13 |
1 files 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")))) |