branch: externals/debbugs
commit 40fc893f28a6a8e2ec6b6ab83423615cea7705a4
Author: Lars Ingebrigtsen <[email protected]>
Commit: Lars Ingebrigtsen <[email protected]>
Fix From addresses in debbugs-gnu
* packages/debbugs/debbugs-gnu.el: Decode From addresses found in patches.
---
debbugs-gnu.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 498202f..b50f8fe 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -2492,8 +2492,8 @@ If SELECTIVELY, query the user before applying the patch."
(quoted-printable-decode-region (point-min) (point-max))))
(setq patch-subject
(or (gnus-fetch-field "subject") patch-subject))
- (setq patch-from
- (or (gnus-fetch-field "from") patch-from))
+ (when-let ((pf (gnus-fetch-field "from")))
+ (setq patch-from (mail-decode-encoded-address-string pf))
(goto-char (point-min))
(when (re-search-forward "^[*] " nil t)
(let ((start (match-beginning 0)))
