diff options
-rw-r--r-- | mumi/debbugs.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/mumi/debbugs.scm b/mumi/debbugs.scm index 263b4e5..16bff8e 100644 --- a/mumi/debbugs.scm +++ b/mumi/debbugs.scm @@ -251,7 +251,6 @@ defaults to 30 days." (subject bug-subject) (tags bug-tags)) -(define qp-pattern "=\\?UTF-8\\?Q\\?([^?]+)\\?=") (define (bug-status bug-id) (and-let* ((bug-id (if (number? bug-id) bug-id (string->number bug-id))) @@ -283,11 +282,8 @@ defaults to 30 days." (or (assoc-ref properties "Severity") "normal") (let ((subject (or (assoc-ref properties "Subject") ""))) (if (string-contains subject "=?UTF-8?Q?") - (or (false-if-exception - (utf8->string - (quoted-printable-decode - (regexp-substitute/global #f qp-pattern - subject 'pre 1 'post)))) - subject) + (match (parse-email-headers (string-append "Subject: " subject "\n")) + ((('subject . sub) . rest) sub) + (other subject)) subject)) (assoc-ref properties "Tags")))) |